!
!D      write (6,*) "      ---> ScanAnayzer/generalHead.f90 "
!
!D      write (6,*) "           commandToSave: ", commandToSave
!
      c1 = commandToSave
      Call SIC_LOWER(c1)
!D      write (6,*) "           c1: ",            c1
      c1 = c1(1:lenc(c1))//".xml file generated by paKo "//pakoVersion
!D      write (6,*) "           c1: ",            c1
!
      Call pakoXMLwriteStartXML("1.0",                                 &
     &                          "VOTABLE", "VOTable.dtd", "1.0",       &
     &                         comment=c1(1:lenc(c1)),                 & 
     &                         error=errorXML)
!
      Call writeXMLversion
!
      Call pakoXMLwriteStartElement("RESOURCE","observingBlock",       &
     &                         comment="generated by paKo",            &
     &                         space="after",                          &
     &                         error=errorXML)
!
