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


