$
$*********************************************      set basics
$
&device -oecho no
&dimen -dimen feet kips
$
$*********************************************      read model
$
inmodel
&apply @
&instate -con 10
&equi
&status config -hard
&status map
hydro
   g_press -period 5 7 9 11 13 15 17  +
       -heading 0 45 90 135 180 225 270 315 360
end
   freq_resp
   rao
   &data env
      env pbeam -sea issc -90 10 10 -use_mean yes
      env mbeam -sea issc  90 10 10 -use_mean yes
   end_&data
  equ_sum
   fr_point
      report
      end
   st_point mbeam
      report
      end
end
&dcptime time for frq post
struc
   lcase -rao
   ssolve
end
&status map
strpost
   cases -spectra pbeam mbeam
   &selec :l -s pbeam mbeam frqmeana
   joint displa -load :l
   restraint loads -load :l -detail
   beam loads  -load :l -detail
end
$
$*********************************************      all done
$
&finish
