*Set Var nLumpedMass=0
*Set Cond Lumped_Mass_for_Point *nodes 
*If(CondNumEntities(Int)>0)
// selection has *CondNumEntities entities
*loop nodes *OnlyInCond
*If(Cond(Apply_in_Subincrement,int)==ApplyInSubincrement)
*#Set Var LumpedMass=Operation(LumpedMass+1)
*#If(Cond(1,Real)!=0.0)
*If(Cond(Dof-X_Value,Real)!=0.0)
*Format "LOAD TYPE LUMPED_MASS SIMPLE node %i dof 1 /** %s **/ VALUE %20.10f"
*NodesNum *Cond(Coordinate_System) *Cond(Dof-X_Value,Real)
*Set Var nLumpedMass=Operation(nLumpedMass+1)
*EndIf
*#If(Cond(2,Real)!=0.0)
*If(Cond(Dof-Y_Value,Real)!=0.0)
*Format "LOAD TYPE LUMPED_MASS SIMPLE node %i dof 2 /** %s **/ VALUE %20.10f"
*NodesNum *Cond(Coordinate_System) *Cond(Dof-Y_Value,Real)
*Set Var nLumpedMass=Operation(nLumpedMass+1)
*EndIf
*#If(Cond(3,Real)!=0.0)
*If(Cond(Dof-Z_Value,Real)!=0.0)
*Format "LOAD TYPE LUMPED_MASS SIMPLE node %i dof 3 /** %s **/ VALUE %20.10f"
*NodesNum *Cond(Coordinate_System) *Cond(Dof-Z_Value,Real)
*Set Var nLumpedMass=Operation(nLumpedMass+1)
*EndIf
*EndIf
*End nodes
*EndIf
