      // Begin block of Loads
      // begin of selection blocks For 1)Load nodes
*Set Var nLoadTemp=0
*#Set Cond Neumann_Temperature_for_Point *nodes *or(1,Int) *or(2,Real) *CanRepeat 
*#If(CondNumEntities(Int)>0)
*#// selection has *CondNumEntities entities
*#loop nodes *OnlyInCond
*#If(Cond(Temperature_Component,Int)!=0)
*#format "LOAD SIMPLE node %i dof 2 VALUE %20.10f" Function *oiSel
*#NodesNum *Cond(Temperature,Real)
*#Set Var nLoadTemp=Operation(nLoadTemp+1)
*#EndIf
*#End nodes
*#EndIf

*Set Cond Neumann_Temperature_for_Line *elems *or(1,Int) *or(2,Real) *CanRepeat 
*#nodes *or(1,Int) *or(2,Real) *CanRepeat 

*Set Var oMinLineNumber=100000
*Set Var LastLineNumber=0
      // begin of selection blocks For 2)Load lines
*Set Cond Neumann_Temperature_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(Temperature_Component,Int)==1)
*If(oMinIndexElemGroups!=oMaxIndexElemGroups)
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 FROM *oMinIndexElemGroups TO *oMaxIndexElemGroups VALUE Y *Cond(Temperature,Real) NODES *\
*Else
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 *OneGroupID VALUE Y *Cond(Temperature,Real) NODES *\
*EndIf
*Format "%i%i"
			"$N$I*IntervalNum LineNumber:*oMinLineNumber" Line Function *oiSel  MERGE //  NO_ELEM_OUTPUT 
*Set Var nLoadTemp=Operation(nLoadTemp+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_Temperature_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(Temperature_Component,Int)==1)
Load BOUNDARY group *groupID VALUE Y *Cond(Temperature,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 nLoadTemp=Operation(nLoadTemp+1)
*EndIf

*End elems
*EndIf
*EndIf
