$
$*********************************************      basics
$
$
$ ---------- initialize ----------
$
&device -g_default device   -oecho no
&title  test of jacket transport
&dimen -dimen feet kips
$
$ ---------- analysis ----------
$
$
$*********************************************      read model
$
inmodel
&status param
&instate -con 12 0 0.57
&apply @
&weight -compute 12.5
&status note
&status categoryeg
&status d_categoryeg -both
&summ
  cat -part jacket
  cat -brief -part jacket
  beam vortex -brief -part @
  point_sum prop scf
end
&status
&status part
hydro
   g_press  -heading  90    \
       -period 4 5 5.5 6 6.5 7 7.5 8 8.5 9 9.5 10 10.5 \
               11 13 15 20
end
freq_resp
   rao
end
struct
   lcase -rao
   s_part @ jacket tiedown @
   s_rest none
   ssolve
end
strpost
   &data env
      env sea090_6 -sea issc  90 12 6 -use_m
   end_&data
   cases -spec sea090_6
   &select :node -select *j@
   &select :load -select sea@
   &dcptime
   cases -amod  1.33 @
   &status amod
   beam code -node :node -load :load -standard 1 1e10 0 1
   &pict iso -type struct -color ratio -ratio 0 99999 -anot s_ratio
   &type Beam Results &str_post(e_check)
   &dcptime time for code check
   joint code crush -node :node -load :load -standar 1 1e10 0 1
   &pict iso -type struct -color ratio -ratio 0 99999 -anot p_ratio -point yes
   &type Joint Results &str_post(j_check)
   &dcptime time for joint check
   &select :load -select sea@ frqmean
   beam load  -load :load -class ~tiedown
   &type Tiedown Loads &str_post(e_load)
end
$
$*********************************************      all done
$
&fini
