*# begin block of points forces
*#
*If(ApplyInSubincrement==1)
*Set Var nVel=0
*endif

      // begin of selection blocks For 1)Vel points
*Set Cond Velocity_for_Point   *nodes 
*Add Cond Velocity_for_Line    *nodes *or(1,Real) *or(2,Real) *or(3,Real) *or(4,Int) *or(5,Int) 
*Add Cond Velocity_for_Surface *nodes *or(1,Real) *or(2,Real) *or(3,Real) *or(4,Int) *or(5,Int) 
*Add Cond Velocity_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(Vel_CONST_X,Real)!=0.0)
*Format "SUPPORT TYPE VELOCITY SIMPLE node %i dof 1 VALUE %20.10f"
*NodesNum *Cond(Vel_CONST_X,Real) 
*endif
*If(Cond(Vel_CONST_Y,Real)!=0.0)
*Format "SUPPORT TYPE VELOCITY SIMPLE node %i dof 2 VALUE %20.10f"
*NodesNum *Cond(Vel_CONST_Y,Real) 
*endif
*If(Cond(Vel_CONST_Z,Real)!=0.0)
*Format "SUPPORT TYPE VELOCITY SIMPLE node %i dof 3 VALUE %20.10f"
*NodesNum *Cond(Vel_CONST_Z,Real) 
*endif
*Set Var nVel=Operation(nVel+1)
*EndIf
*End nodes
*EndIf
*#
