!
!  Id: startXML/swTipXML.inc,v 1.1.12.2  2013-03-26  Hans Ungerechts
!  Id: startXML/swTipXML.inc,v 0.93      2005-11-05  Hans Ungerechts
!
!
!!$Call queryReceiver(rec%Bolo, isConnected)
!!$!
!!$If (isConnected) Then
!!$   !
!!$   Call pakoXMLwriteStartElement("RESOURCE","switching",                         &
!!$        &                         comment="generated by paKo",                   &
!!$        &                         space ="before",                               &
!!$        &                         error=errorXML)                                !
!!$   !
!!$   valueC = swMode%total
!!$   Call pakoXMLwriteElement("PARAM","mode",valueC,                               &
!!$        &                         dataType="char",                               &
!!$        &                         error=errorXML)                                !
!!$   !
!!$   Write (valueC,*) 1
!!$   Call pakoXMLwriteElement("PARAM","nPhases",valueC,                            &
!!$        &                         dataType="int",                                &
!!$        &                         unit="--",                                     &
!!$        &                         error=errorXML)                                !
!!$   !
!!$   Write (valueC,*) 0.5
!!$   Call pakoXMLwriteElement("PARAM","timePerPhase",valueC,                       &
!!$        &                         "s", "float",                                  &
!!$        &                         error=errorXML)                                !
!!$   !
!!$   Call pakoXMLwriteEndElement  ("RESOURCE","switching",                         &
!!$        &                         space="after",                                 &
!!$        &                         error=errorXML)                                !
!!$   !
!!$Else
   !
   !!D Write (6,*) " TIP: will write total power params ..."
   Call writeXMLswTotalPower(programName,LINE,commandToSave,                     &
        &        iUnit, ERROR)                                                   !
   !
!!$End If
