$
$*********************************************      basics
$
&dimen -dimen feet kips
&pb_parm -l_mass
$
$*********************************************      read model
$
inmodel
&instate -condition 9
&dcptime time to medit
medit
   ~rod rod 6 2.99  -len 1000  -refine 10 -depanc 500 \
                    -wtplen .064 -drag 6 -buoy 0 -amas 6
   ~rod rod 6 2.99  -len 1000  -refine 20 -depanc 500 \
                    -wtplen .064 -drag 6 -buoy 0 -amas 6
   ~rod rod 6 2.99  -len 1000  -refine 5 -depanc 500 \
                    -wtplen .064 -drag 6 -buoy 0 -amas 6
   ~wire b_cat 6    -dep 500 -len 3000  \
                    -wtplen .064 -drag 6 -buoy 0 -amas 6
   connector ps ~wire   *mlb -anc  -45   20
   connector pb ~wire   *mlc -anc -135   20
   connector sb ~wire   *mld -anc  135   20
   connector ss ~rod    *mla -anc   45   20
end
&dcptime time to define connectors
&connector @ -a_tension 300
hydro
   g_press -period 4 6 8 10 12 14 16 18 20 25 30 50 \
      -heading 90
end
freq_resp
    rao  $ -rod_steep 20 4 5
    fr_point 0 0 0
       report
       end
    fr_cf sb
       report
       end
    fr_cf ss
       report
       end
    st_cfor @ -sea issc 90 10 6 -use_mean
       report
       end
    st_rfor ss -sea issc 90 10 6 -use_mean
       report
       end
    st_rstr ss -sea issc 90 10 6 -use_mean
       report
       end
$
$*********************************************      all done
$
&fini
