*Set Var oflagElmIDMerge=1
*If(GenData(Show_Surface_Loads_In_Post-Processor,Int)==0)
*Set Var oflagElmIDMerge=0
*EndIf

*Set Cond Neumann_Humidity_for_Line *elems *CanRepeat 
*If(ndime==3)
*Add Cond Neumann_Humidity_for_Surface *elems *CanRepeat 
*EndIf
*#
*If(CondNumEntities(Int)>0)
*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%s%i%i"
   "$N$I*IntervalIndex *ElemsType *ElemsNnode *Cond(Boundary)Num*Cond(Entity_number,Int) ElemNum*ElemsNum" *Cond(Boundary) *tcl(TK_BoundaryMerge *oflagElmIDMerge)
*Set Var nLoadHum=Operation(nLoadHum+1)
*EndIf
*#
*End elems
*EndIf

*Set Cond Neumann_Temperature_for_Line *elems *CanRepeat 
*If(ndime==3)
*Add Cond Neumann_Temperature_for_Surface *elems *CanRepeat 
*EndIf
*#
*If(CondNumEntities(Int)>0)
*Set Var nshells=0
*Set Var nbeam=0
*loop elems *OnlyInCond
*#
*include ..\include.src.bas\CurrentElementGroupID.bas
*#

*If(Cond(Temperature_Component,Int)==1)
Load *\
*If(strcmp(Cond(Activate_Incremental_FUNCTION_TYPE),"FUNCTION_FROM_MATERIAL")==0)
*Set Var oMujMat=tcl(TK_FindMaterialNumber *Cond(Incremental_FUNCTION_MAT) "NeumannTemperature")
FUNCTION *Operation(25250000+oMujMat) *\
*EndIf 
BOUNDARY group *groupID VALUE Y *Cond(Temperature,Real) NODES *\
*Format "%i%i%i%s%i%i"
   "$N$I*IntervalIndex *ElemsType *ElemsNnode *Cond(Boundary)Num*Cond(Entity_number,Int) ElemNum*ElemsNum" *Cond(Boundary) *tcl(TK_BoundaryMerge *oflagElmIDMerge)
*Set Var nLoadTemp=Operation(nLoadTemp+1)
*EndIf
*#
*End elems
*EndIf
