// begin block of Supports
*Set Cond Dirichlet_Temperature_for_Point   *nodes *or(1,Int) *or(2,Real) 
*Add Cond Dirichlet_Temperature_for_Line    *nodes *or(1,Int) *or(2,Real) 
*Add Cond Dirichlet_Temperature_for_Surface *nodes *or(1,Int) *or(2,Real) 
*If(ndime==3)
*Add Cond Dirichlet_Temperature_for_Volume  *nodes *or(1,Int) *or(2,Real) 
*EndIf
*If(CondNumEntities(Int)>0)
// selection has *CondNumEntities entities
*# LOAD CASE ID *nSupport NAME "Supports for Load Step #*nSupport"
*loop nodes *OnlyInCond
*If(Cond(Temperature_Component,Int)==1)
SUPPORT *\
*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
SIMPLE node *NodesNum dof 2 VALUE *Cond(Temperature,Real) *\
*If(Cond(Values_are_absolute,Int)==1)
 TOTAL_VALUE_DEFINED
*Else

*EndIf 
*#Function *oiSel
*#
*Set Var nSupportTemp=Operation(nSupportTemp+1)
*EndIf
*End nodes
*EndIf
