*Set Var nRotation=0
*#
*Set Cond Rotation_for_Point   *nodes *or(2,Real) *or(3,Real) *or(4,Real) *or(5,Real) 
*Add Cond Rotation_for_Line    *nodes *or(2,Real) *or(3,Real) *or(4,Real) *or(5,Real) 
*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-Rotation,Real)!=0.0)
SUPPORT *\
*If(strcmp(Cond(Rot_FUNCTION_X_DEFINITION),"NONE")!=0)
*Cond(Rot_FUNCTION_X_TYPE) *\
*Set Var oMujMat=tcl(TK_FindMaterialNumber *Cond(Rot_FUNCTION_X_MAT) "Rotation_for")
FUNCTION *Operation(25260000+oMujMat) *\
*Endif
*Format "SIMPLE node %i dof 4 /** %s **/ VALUE %20.10f"
*NodesNum *Cond(Coordinate_System) *Cond(X-Rotation,Real) *\
*If(Cond(Values_are_absolute,Int)==1)
 TOTAL_VALUE_DEFINED
*Else

*EndIf 
*Set Var nRotation=Operation(nRotation+1)
*EndIf
*If(Cond(Y-Rotation,Real)!=0.0)
SUPPORT *\
*If(strcmp(Cond(Rot_FUNCTION_Y_DEFINITION),"NONE")!=0)
*Cond(Rot_FUNCTION_Y_TYPE) *\
*Set Var oMujMat=tcl(TK_FindMaterialNumber *Cond(Rot_FUNCTION_Y_MAT) "Rotation_for")
FUNCTION *Operation(25260000+oMujMat) *\
*Endif
*Format "SIMPLE node %i dof 5 /** %s **/ VALUE %20.10f"
*NodesNum *Cond(Coordinate_System) *Cond(Y-Rotation,Real) *\
*If(Cond(Values_are_absolute,Int)==1)
 TOTAL_VALUE_DEFINED
*Else

*EndIf 
*Set Var nRotation=Operation(nRotation+1)
*EndIf
*If(Cond(Z-Rotation,Real)!=0.0)
SUPPORT *\
*If(strcmp(Cond(Rot_FUNCTION_Z_DEFINITION),"NONE")!=0)
*Cond(Rot_FUNCTION_Z_TYPE) *\
*Set Var oMujMat=tcl(TK_FindMaterialNumber *Cond(Rot_FUNCTION_Z_MAT) "Rotation_for")
FUNCTION *Operation(25260000+oMujMat) *\
*Endif
*Format "SIMPLE node %i dof 6 /** %s **/ VALUE %20.10f"
*NodesNum *Cond(Coordinate_System) *Cond(Z-Rotation,Real) *\
*If(Cond(Values_are_absolute,Int)==1)
 TOTAL_VALUE_DEFINED
*Else

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