*# // begin Write_Initial_Cond_Dynamic_nodes.bas
*#
*If(CondNumEntities(Int)>0)
// selection has *CondNumEntities entities
*# *If(ndime==3)
NODAL SETTING  
*loop nodes *OnlyInCond
*If(ndime==3)
node *NodesNum  ACCEL *Cond(Accel_Const_X) *Cond(Accel_Const_Y) *Cond(Accel_Const_Z)
*Else
node *NodesNum  ACCEL *Cond(Accel_Const_X) *Cond(Accel_Const_Y)
*EndIf
*Set Var nInitCond=Operation(nInitCond+1)
*End nodes
*#
*EndIf
*# // end Write_Initial_Cond_Dynamic_nodes.bas


