$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$  This is an example on how to use the ROD element to define
$  the tendons for a TLP.  The ROD element used here is very basic.
$  It uses the TLP model generated in the vessel modeling samples.
$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$*********************************************      dimensions
$
&dimensions -dimen feet kips
$
$*********************************************      basic parameters
$
&device   -oecho no -auxin &info(c_path)/../ves_mod/results/tlp_bld.ans/mod00001.txt
$
$ ******************************     read model, basic model summary
$
inmodel
&summary
   compart_sum e_piece mesh
end_&summary
$
$ ********************************************      position tlp
$
$ ****************     free-floating condition of tlp if not tethered
&instate -condition tlp 34.5 0 0
$
$ ****************        compute weight, cg that achieves untethered   
&weight -compute tlp 40 50 50 50
$
$ ******************************     set draft for tethered condition
&instate -condition tlp 40 0 0
&status
$
$ ********************     make nodes on tlp to connect tendons to    
$
medit
&describe body TLP
   *ne  215/2  215/2 0
   *nw  215/2 -215/2 0
   *se -215/2  215/2 0
   *sw -215/2 -215/2 0
end
&type ne &point(coord *ne -g)
&type nw &point(coord *nw -g)
&type se &point(coord *se -g)
&type sw &point(coord *sw -g)
&set ne = &point(coord *ne -g)
&set nw = &point(coord *nw -g)
&set se = &point(coord *se -g)
&set sw = &point(coord *sw -g)
$
$*******************************************    define connectors
$
medit
   ~tendon ROD 15.88 0.9 -refine  60 -len  960   -depan 1000
   &loop p (ne nw se sw)
$
$***********    next three lines, set/reports anchor/pile location
$
      &set anc = &token(1:2 %(%(p))) -1000
      *anc%p  %anc
      &type anc%p  %anc
$
$***************************************    make/report connection
$
      CONNECTOR tend%p ~tendon *%p *anc%(p)
      &type CONNECTOR tend%p ~tendon *%p *anc%(p)
   &endlopp
end
$
$ *******************************************     set tendon length
$
&connector tend@ -l_ten 500
$
$ *******************************************      report on forces
$
&status force
&status f_connect
&finish