*Set Var nDisplacement=0
*#
*Set Cond Displacement_for_Point   *nodes *or(2,Real) *or(3,Real) *or(4,Real) *or(5,Real) 
*Add Cond Displacement_for_Line    *nodes *or(2,Real) *or(3,Real) *or(4,Real) *or(5,Real) 
*If(ndime==3)
*Add Cond Displacement_for_Surface *nodes *or(2,Real) *or(3,Real) *or(4,Real) *or(5,Real) 
*EndIf
*If(CondNumEntities(Int)>0)
// selection has *CondNumEntities entities
*loop nodes *OnlyInCond
*If(Cond(Apply_in_Subincrement,int)==ApplyInSubincrement || strcmp(GenData(Calculation_Analysis),"Static")==0) 
*If(Cond(X-Displacement,Real)!=0.0)
SUPPORT *\
*If(strcmp(Cond(Displ_FUNCTION_X_DEFINITION),"NONE")!=0)
*Cond(Displ_FUNCTION_X_TYPE) *\
*Set Var oMujMat=tcl(TK_FindMaterialNumber *Cond(Displ_FUNCTION_X_MAT) "Displacement_for")
FUNCTION *Operation(25250000+oMujMat) *\
*Endif
*Format "SIMPLE node %i dof 1 /** %s **/ VALUE %20.10f"
*NodesNum *Cond(Coordinate_System) *Cond(X-Displacement,Real) *\
*If(Cond(Values_are_absolute,Int)==1)
 TOTAL_VALUE_DEFINED
*Else

*EndIf 
*Set Var nDisplacement=Operation(nDisplacement+1)
*EndIf
*If(Cond(Y-Displacement,Real)!=0.0)
SUPPORT *\
*If(strcmp(Cond(Displ_FUNCTION_Y_DEFINITION),"NONE")!=0)
*Cond(Displ_FUNCTION_Y_TYPE) *\
*Set Var oMujMat=tcl(TK_FindMaterialNumber *Cond(Displ_FUNCTION_Y_MAT) "Displacement_for")
FUNCTION *Operation(25250000+oMujMat) *\
*Endif
*Format "SIMPLE node %i dof 2 /** %s **/ VALUE %20.10f"
*NodesNum *Cond(Coordinate_System) *Cond(Y-Displacement,Real) *\
*If(Cond(Values_are_absolute,Int)==1)
 TOTAL_VALUE_DEFINED
*Else

*EndIf 
*Set Var nDisplacement=Operation(nDisplacement+1)
*EndIf
*If(Cond(Z-Displacement,Real)!=0.0)
SUPPORT *\
*If(strcmp(Cond(Displ_FUNCTION_Z_DEFINITION),"NONE")!=0)
*Cond(Displ_FUNCTION_Z_TYPE) *\
*Set Var oMujMat=tcl(TK_FindMaterialNumber *Cond(Displ_FUNCTION_Z_MAT) "Displacement_for")
FUNCTION *Operation(25250000+oMujMat) *\
*Endif
*Format "SIMPLE node %i dof 3 /** %s **/ VALUE %20.10f"
*NodesNum *Cond(Coordinate_System) *Cond(Z-Displacement,Real) *\
*If(Cond(Values_are_absolute,Int)==1)
 TOTAL_VALUE_DEFINED
*Else

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