$
$*********************************************      basics
$
&dimen -dimen feet kips
&parameter -amctub 1.8
$
$*********************************************      read model
$
inmodel
&instate -loc 0 0 -45
&status
&env sea -sea issc 90 10 7.5 -sprea 2
&describe body jacket -spe_multip 1.
freq_resp
   rao -heading  90 135 180 -spectr sea
   equ_sum
   fr_point
      rep
      end
   st_point sea
      report
      end
end
$
$*********************************************      all done
$
&finish
