*# // begin Write_Initial_Cond_Dynamic.bas
*Set Var nInitCond=0
*#
*Set Var IntervalIndex=0
*loop intervals
*Set Var IntervalIndex=Operation(IntervalIndex+1)
*If(IntervalIndex==1)
*#
*#
*# // projizdim interval *IntervalIndex
*# // predchozi cond *Cond
*Set Cond Initial_Velocity_for_Volume *nodes 
*Add Cond Initial_Velocity_for_Surface *nodes 
*Add Cond Initial_Velocity_for_Line *nodes 
*Add Cond Initial_Velocity_for_Point *nodes   
*include ..\include.src.bas\Write_Initial_Cond_Dynamic_nodes_vel.bas
*#
*Set Cond Initial_Acceleration_for_Volume *nodes  
*Add Cond Initial_Acceleration_for_Surface *nodes   
*Add Cond Initial_Acceleration_for_Line *nodes    
*Add Cond Initial_Acceleration_for_Point *nodes   
*include ..\include.src.bas\Write_Initial_Cond_Dynamic_nodes_accel.bas
*EndIf
*# //break
*#break
*End Intervals
*# // end Write_Initial_Cond_Dynamic.bas
*# // ----------------------------------------