*# begin block of points forces
*#
      // begin of selection blocks For 1)Accel points
*If(ApplyInSubincrement==1)
*Set Var nAccel=0
*endif
*Set Cond Acceleration_for_Point   *nodes 
*Add Cond Acceleration_for_Line    *nodes *or(1,Real) *or(2,Real) *or(3,Real) *or(4,Int) *or(5,Int) 
*Add Cond Acceleration_for_Surface *nodes *or(1,Real) *or(2,Real) *or(3,Real) *or(4,Int) *or(5,Int) 
*Add Cond Acceleration_for_Volume  *nodes *or(1,Real) *or(2,Real) *or(3,Real) *or(4,Int) *or(5,Int) 
*# CanRepeat 
*If(CondNumEntities(Int)>0)
      // selection has *CondNumEntities entities
*loop nodes *OnlyInCond
*If(Cond(Apply_in_Subincrement,int)==ApplyInSubincrement)
*If(Cond(Accel_CONST_X,Real)!=0.0)
SUPPORT TYPE ACCELERATION *\
*If(strcmp(Cond(Accel_FUNCTION_X_DEFINITION),"NONE")!=0)
*Cond(Accel_FUNCTION_X_TYPE) *\
*Set Var oMujMat=tcl(TK_FindMaterialNumber *Cond(Accel_FUNCTION_X_MAT) "Accleration_for")
 FUNCTION *Operation(25250000+oMujMat) *\
*Endif
*Format "SIMPLE node %i dof 1 VALUE %20.10f"
*NodesNum *Cond(Accel_CONST_X,Real) 
*endif
*If(Cond(Accel_CONST_Y,Real)!=0.0)
SUPPORT TYPE ACCELERATION *\
*If(strcmp(Cond(Accel_FUNCTION_Y_DEFINITION),"NONE")!=0)
*Cond(Accel_FUNCTION_Y_TYPE) *\
*Set Var oMujMat=tcl(TK_FindMaterialNumber *Cond(Accel_FUNCTION_Y_MAT) "Accleration_for")
 FUNCTION *Operation(25250000+oMujMat) *\
*Endif
*Format "SIMPLE node %i dof 2 VALUE %20.10f"
*NodesNum *Cond(Accel_CONST_Y,Real) 
*endif
*If(Cond(Accel_CONST_Z,Real)!=0.0)
SUPPORT TYPE ACCELERATION *\
*If(strcmp(Cond(Accel_FUNCTION_Z_DEFINITION),"NONE")!=0)
*Cond(Accel_FUNCTION_Z_TYPE) *\
*Set Var oMujMat=tcl(TK_FindMaterialNumber *Cond(Accel_FUNCTION_Z_MAT) "Accleration_for")
 FUNCTION *Operation(25250000+oMujMat) *\
*Endif
*Format "SIMPLE node %i dof 3 VALUE %20.10f"
*NodesNum *Cond(Accel_CONST_Z,Real) 
*endif
*Set Var nAccel=Operation(nAccel+1)
*EndIf
*End nodes
*EndIf
*#
