*Set Var nTemperatura=0
*Set Var LastGroupID=0
*#
*Set Cond Temperature_for_Reinf_Line         *elems 
*If(CondNumEntities(Int)>0)
// selection has *CondNumEntities entities
*# LOAD CASE ID *nTemperatura NAME "Volume Temperatura *nTemperatura"
*Set Var nshells=0
*Set Var nbeam=0
*loop elems *OnlyInCond
*If(Cond(Apply_in_Subincrement,int)==ApplyInSubincrement  || strcmp(GenData(Calculation_Analysis),"Static")==0) 
*#If(Cond(1,Real)!=0.0)
*If(Cond(dT,Real)!=0.0 || strcmp(Cond(Space_function),"LINEAR")==0)
*#
*# include ..\include.src.bas\CurrentElementGroupID.bas
*#
*# Set Var groupID=Operation(ElemsMat*IncrMaterialID+CurrentType)
*If(ElemsMatProp(Embedded_Reinforcement,Int)==0)
*#
*If(strcmp(ElemsMatProp(Geometrical_Non-Linearity),"LINEAR")==0)
*Set Var CurrentType=Operation(ElemsNnode*1)
*Else
*Set Var CurrentType=Operation(ElemsNnode+AddingNonLinElemID)
*EndIf
*Set Var groupID=Operation(ElemsMat*IncrMaterialID+CurrentType)
*#
*Else
*Set Var groupID=Operation(InitCablesID+Cond(Entity_number,Int))
*EndIf
*If(LastGroupID!=groupID)
*# && strcmp(Cond(Type),"1D")==0
*If(strcmp(Cond(Space_function),"CONSTANT")==0)
Load TEMPERATURE GROUP *groupID VALUE *Cond(dT,Real)
*Else
*#If(strcmp(Cond(Space_function),"LINEAR")==0)
Load TEMPERATURE GROUP *groupID *\
CONST *Cond(Constant,Real) *\
COEFF_X *Cond(COEFF_X,Real) *\
COEFF_Y *Cond(COEFF_Y,Real) *\
COEFF_Z *Cond(COEFF_Z,Real) VALUE 1.0  
*endif
*Set Var LastGroupID=groupID
*Set Var nTemperatura=Operation(nTemperatura+1)
*EndIf
*EndIf
*EndIf
*End elems
*EndIf
*#
*# 2D and 3D
*#
*Set Cond Temperature_for_2DElem_Surface     *elems 
*If(ndime==3)
*Add Cond Temperature_for_Volume             *elems 
*EndIf
*If(CondNumEntities(Int)>0)
// selection has *CondNumEntities entities
*# LOAD CASE ID *nTemperatura NAME "Volume Temperatura *nTemperatura"
*Set Var nshells=0
*Set Var nbeam=0
*loop elems *OnlyInCond
*If(Cond(Apply_in_Subincrement,int)==ApplyInSubincrement  || strcmp(GenData(Calculation_Analysis),"Static")==0) 
*#If(Cond(1,Real)!=0.0)
*If(Cond(dT,Real)!=0.0 || strcmp(Cond(Space_function),"LINEAR")==0)
*#
*include ..\include.src.bas\CurrentElementGroupID.bas
*#
*Set Var groupID=Operation(ElemsMat*IncrMaterialID+CurrentType)
*# If(LastGroupID!=groupID)
*# && strcmp(Cond(Type),"1D")==0
*If(strcmp(Cond(Space_function),"CONSTANT")==0)
Load TEMPERATURE GROUP *groupID ELEMENT *ElemsNum VALUE *Cond(dT,Real)
*Else
*#If(strcmp(Cond(Space_function),"LINEAR")==0)
Load TEMPERATURE GROUP *groupID ELEMENT *ElemsNum *\
CONST *Cond(Constant,Real) *\
COEFF_X *Cond(COEFF_X,Real) *\
COEFF_Y *Cond(COEFF_Y,Real) *\
COEFF_Z *Cond(COEFF_Z,Real) VALUE 1.0  
*endif
*Set Var nTemperatura=Operation(nTemperatura+1)
*Set Var LastGroupID=groupID
*# EndIf
*EndIf
*EndIf
*End elems
*EndIf
