$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$
$   ----------    Sample of Roll Decay Simulation --------
$
$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$
$*********************************************      SET BASIC PARAMETERS
$
&dimen -DIMEN FEET KIPS
&DEVICE   -g_default device
&TITLE Sample of Roll Decay
&subtitle Using -CS_CURR 1 1 1
$
$*********************************************      Read Model
$
INMODEL
$
$*********************************************      Set Initial Condition
$
&INSTATE -loc 0 0 -0 0 0 0
&weight -compute 0 32 129 129
hydro
   g_press -heading 90
end
&INSTATE -loc 0 0 -0 5 0 0
$
$*********************************************     Env. and Time Domain
$
&ENV null -time 120 .25
TDOM
&DCPTIME Time For Time Domain
$
$*********************************************     Time Domain Post
$
PRCPOST
  TRAJ
    REPORT -event 0 9999 1.
    p 1 8 -n
  END
END
&DCPTIME Time For Time Post Processing
$
$*********************************************     All Done
$
&FINI