$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$
$   ----------    Sample of Roll Decay Simulation --------
$
$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$
$*********************************************      SET BASIC PARAMETERS
$
&dimen -DIMEN FEET KIPS
&DEVICE   -g_default dev
&TITLE Sample of Heave Decay
&subtitle Using Defaults Except for Newmark Method
$
$*********************************************      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 -5 0 0 0
$
$*********************************************     Env. and Time Domain
$
&ENV null -time 20  .125
$&describe body tbrg -fact 0
TDOM -newmar
&DCPTIME Time For Time Domain
$
$*********************************************     Time Domain Post
$
PRCPOST
  TRAJ
    REPORT -event 0 9999 .25
    p 1 7 -n
  END
END
&DCPTIME Time For Time Post Processing
$
$*********************************************     All Done
$
&FINI