  !
  !   Id: focusSubscansXML.inc, v1.2.3 2014-09-24 Hans Ungerechts
  !   Id: focusSubscansXML.inc, v1.2.0 2012-06-21 Hans Ungerechts
  !
  !D   Write (6,*) "      --> focusSubscansXML.inc, v1.2.3 2014-09-24 " 
  !
  Call pakoXMLwriteStartElement("RESOURCE","subscans",                           &
       &                         comment="generated by paKo",                    &
       &                         space ="before",                                &
       &                         error=errorXML)                                 !
  !
  Do ii = 1, nSegments, 1
     !
     !D      Write (6,*) "          ii: ", ii,                                           &
     !D           &      segList(ii)%ssType, segList(ii)%segType, segList(ii)%flagTune   !
     !
     If (segList(ii)%ssType.Eq.ss%tune .And.                                     &
          &       segList(ii)%segType.Eq.seg%track) Then                         !
        Include 'inc/startXML/trackXML.inc'
     End If
     !
     If (segList(ii)%ssType.Eq.ss%onFocus .And.                                  &
          &       segList(ii)%segType.Eq.seg%track) Then                         !
        Include 'inc/startXML/onFocusXML.inc'
     End If
     !
  End Do
  !
  Call pakoXMLwriteEndElement("RESOURCE","subscans",                             &
       &                         error=errorXML)                                 !
  !



