*# begin block of points forces
*#
      // begin of selection blocks For 1)Load Points
*Set Var nLoad1D=0
*Set Cond Load_Force_for_Point *nodes 
*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(1,Real)!=0.0)
*If(Cond(X-Force,Real)!=0.0)
*format "LOAD SIMPLE node %i dof 1 /** %s **/ VALUE %20.10f"
*NodesNum *Cond(Coordinate_System) *Cond(X-Force,Real)
*Set Var nLoad1D=Operation(nLoad1D+1)
*EndIf
*#If(Cond(2,Real)!=0.0)
*If(Cond(Y-Force,Real)!=0.0)
*format "LOAD SIMPLE node %i dof 2 /** %s **/ VALUE %20.10f"
*NodesNum *Cond(Coordinate_System) *Cond(Y-Force,Real)
*Set Var nLoad1D=Operation(nLoad1D+1)
*EndIf
*#If(Cond(3,Real)!=0.0)
*If(Cond(Z-Force,Real)!=0.0)
*format "LOAD SIMPLE node %i dof 3 /** %s **/ VALUE %20.10f"
*NodesNum *Cond(Coordinate_System) *Cond(Z-Force,Real)
*Set Var nLoad1D=Operation(nLoad1D+1)
*EndIf
*EndIf
*End nodes
*EndIf
*#
*# begin block of points moments
*#
      // begin of selection blocks For 1)Load Points
*Set Var nLoad1D=0
*Set Cond Load_Moment_for_Point *nodes 
*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-Moment,Real)!=0.0)
*format "LOAD SIMPLE node %i dof 4 VALUE %20.10f"
*NodesNum *Cond(X-Moment,Real)
*Set Var nLoad1D=Operation(nLoad1D+1)
*EndIf
*If(Cond(Y-Moment,Real)!=0.0)
*format "LOAD SIMPLE node %i dof 5 VALUE %20.10f"
*NodesNum *Cond(Y-Moment,Real)
*Set Var nLoad1D=Operation(nLoad1D+1)
*EndIf
*If(Cond(Z-Moment,Real)!=0.0)
*format "LOAD SIMPLE node %i dof 6 VALUE %20.10f"
*NodesNum *Cond(Z-Moment,Real)
*Set Var nLoad1D=Operation(nLoad1D+1)
*EndIf
*EndIf
*End nodes
*EndIf
*#
*#
*# begin block of lines forces
*#
*set var oflagElmIDMerge=1
*If(GenData(Show_Surface_Loads_In_Post-Processor,Int)==0)
*set var oflagElmIDMerge=0
*EndIf
*#
*# begin block of surfaces forces
*#
*Set Var nLoad3D=0
*Set Var nLoadCND3D=0
      // begin of selection blocks For 2)Load Line and Surfaces
*# *or(2,Int) *or(3,Real) *or(4,Int) *or(5,Real)*or(6,Int) *or(7,Real)  *or(8,Real) *or(9,Real) *or(10,Real) *or(12,Int) *or(13,Int) 
*Set Cond Load_Force_for_Line *elems *CanRepeat 
*Set Var nLoad2D=CondNumEntities(Int)
*include ..\include.src.bas\Load_Boundary_for.bas
*#
*If(ndime==3)
*Set Cond Load_Force_for_Surface *elems *CanRepeat 
*include ..\include.src.bas\Load_Boundary_for.bas
*EndIf
*If(ndime==3)
*Set Cond Load_Force_for_Surface_2D_Shell *elems *CanRepeat 
*include ..\include.src.bas\Load_Boundary_for.bas
*EndIf
*#
*#// nLoad2D=*nLoad2D
*#// nLoad2D+3D=*CondNumEntities(Int)
