$
$*********************************************      set basics
$
&set export = .true.
&dimen -dimen feet kips
&device     -oecho no
$
$*********************************************      read model
$
inmodel
&instate -con 10
&if %export &then
   hydro
      g_pres -period 8.84 -heading 180
      e_press
   end
&endif
freq_resp
  rao  -period 8.84 -heading 180
  equ_sum
end
struc
   lcase -rao
   s_rest ~supo
   ssolve
end
&data env
   env one -sea regular 180 1 8.84 -time 8.85 .01
   env two -sea regular 180 .001 8.84 -time 8.85 .01
end_&data
strpost
   cases -time  one sag 8.84 hog 4.42
   cases -time  two harbor 5
   &select :node -select *@
   &select :dog -s hog sag harbor
   restraint load -load :dog -detail
   &select :class -select ~conn
   beam load -load :dog -class ~conn
end
$
$*********************************************      all done
$
&finish
