      // Begin block of Loads
*Set Var oMinLineNumber=100000
*Set Var LastLineNumber=0
      // begin of selection blocks For 2)Load lines
*Set Cond Neumann_Humidity_for_Line *nodes *or(1,Int) *or(2,Real) *CanRepeat 
*If(CondNumEntities(Int)>0)
      // selection has *CondNumEntities entities
*loop nodes *OnlyInCond
*If(oMinLineNumber>Cond(Entity_number,Int)&&Cond(Entity_number,Int)>LastLineNumber)
*Set Var oMinLineNumber=Cond(Entity_number,Int)
*EndIf
*End nodes

*loop nodes *OnlyInCond
*If(oMinLineNumber==Cond(Entity_number,Int))

*If(Cond(Humidity_Component,Int)==1)
*If(oMinIndexElemGroups!=oMaxIndexElemGroups)
Load BOUNDARY group FROM *oMinIndexElemGroups TO *oMaxIndexElemGroups VALUE X *Cond(Humidity,Real) NODES *\
*Else
Load BOUNDARY group *OneGroupID VALUE X *Cond(Humidity,Real) NODES *\
*EndIf
*Format "%i%i"
			"$N$I*IntervalNum LineNumber:*oMinLineNumber" Line MERGE //  NO_ELEM_OUTPUT  // Function *oiSel
*Set Var nLoadHum=Operation(nLoadHum+1)
*EndIf

*break
*EndIf
*End nodes
 ;
*Set Var LastLineNumber=oMinLineNumber
*EndIf

*If(ndime==3)
      // begin of selection blocks For 3)Load surfaces
*#
*Set Cond Neumann_Humidity_for_Surface *elems *or(1,Int) *or(2,Real) *CanRepeat 
*#
*If(CondNumEntities(Int)>0)
      // selection has *CondNumEntities entities
*Set Var nshells=0
*Set Var nbeam=0
*loop elems *OnlyInCond
*#
*include ..\include.src.bas\CurrentElementGroupID.bas
*#

*If(Cond(Humidity_Component,Int)==1)
Load BOUNDARY group *groupID VALUE X *Cond(Humidity,Real) NODES *\
*Format "%i%i%i%i%i"
			"$N$I*IntervalIndex *ElemsType *ElemsNnode NeumannSurfaceNum*Cond(Entity_number,Int) ElemNum*elemsnum" SURFACE  MERGE //  NO_ELEM_OUTPUT  // Function *oiSel
*Set Var nLoadHum=Operation(nLoadHum+1)
*EndIf

*End elems
*EndIf
*EndIf
