$
$*********************************************      basics
$
&dimen -dimen feet kips
&set release = .true.
$
$*********************************************      read model
$
inmodel
&instate -con 10
medit
   ~wire b_cat 3  -len 4000 -depanc 500
   connector pbml  -goa 0 -12*50 ~wire *b1 -anc 180+45 1500
   connector sbml  -goa 0  12*50 ~wire *b1 -anc 180-45 1500
   connector psml  -goa 0 -12*50 ~wire *s5 -anc    +45 1500
   connector ssml  -goa 0  12*50 ~wire *s5 -anc    -45 1500
   ~rod rod 28 1.2  -len 2700-1  -refine 6   -depanc 2700+10 \
                  -wtplen .364 -emod 30e3 -displ .279 \
                  -dragdia 38.25 -amasdia 38.25 -buoydia 0
   connector tend ~rod -a_loca &point(*mpool -g)-2700 *mpool
end
&conne tend -l_ten 900
&status f_rod
&env -curr 4
&status f_rod
&status dg_connector tend
&status f_connector
&if %release &then
   &conne tend -zero
   &status f_rod
   &status dg_connector tend
   &status f_connector
&endif
&status f_connector
&status f_rod
&status dg_connector tend
$
$*********************************************      all done
$
&fini
