// begin block of Supports
*Set Cond Dirichlet_Humidity_for_Point   *nodes *or(1,Int) *or(2,Real) 
*Add Cond Dirichlet_Humidity_for_Line    *nodes *or(1,Int) *or(2,Real) 
*Add Cond Dirichlet_Humidity_for_Surface *nodes *or(1,Int) *or(2,Real) 
*If(ndime==3)
*Add Cond Dirichlet_Humidity_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(Humidity_Component,Int)==1)
SUPPORT SIMPLE node *NodesNum dof 1 VALUE *Cond(Humidity,Real) Function *oiSel *\
*If(Cond(Values_are_absolute,Int)==1)
 TOTAL_VALUE_DEFINED
*Else

*EndIf 
*Set Var nSupportHum=Operation(nSupportHum+1)
*EndIf
*End nodes
*EndIf
