!
      write (6,*) "      ---> StartXML/pointingSubscans.f90 "
      write (6,*) "number of SS segment:   ", nSegments
      write (6,*) "number of OTF subscans: ", vars(iValue)%nOtf
!
      call pakoXMLwriteStartElement("RESOURCE","subscans",             &
     &                         comment="generated by paKo",            &
     &                         space ="before",                        &
     &                         error=errorXML)
!
      do ii = 1, nSegments, 1
!
         write (6,*) "      segList(ii)%ssType:   ", segList(ii)%ssType
         write (6,*) "      segList(ii)%segType:  ", segList(ii)%segType
!
         if (segList(ii)%ssType.eq.ss%otf .and.                          &
     &       segList(ii)%segType.eq.seg%linear) then
            Include 'StartXML/otfLinearXML.f90'
         end if
!
      end do
!
      call pakoXMLwriteEndElement("RESOURCE","subscans",              &
     &                         error=errorXML)
!





