$
$*********************************************      basics
$
&dimen -dimen feet kips
$
$*********************************************      read model
$
inmodel
&env
&instate -loc barge 0 0 -20 0 0 0 \
        -loc jacket  50 200 10 0 0 0
medit
    ~sling sling  3 -len 325
    ~boom sling   3 -len 325
    ~airt h_cat   2 -len 10
    connector airt1  ~airt  -a_locat 10+&node(*1 -g) *1
    connector airt2  ~airt  -a_locat &node(*1 -g)+10 *1
    &connector air@ -l_ten 10
    &describe body ground
    connector boom ~boom *b1
    connector sling1 ~sling *7
    connector sling2 ~sling *9
    connector sling3 ~sling *10
    connector sling4 ~sling *12
    assembly t-h boom sling1 sling2 sling3 sling4 -init
end
&conne &boom -l_ten 7377
&weight -compute barge 10 50 150 150
&status tip
&status f_connector
hydro
   g_press barge -head 90 -period 5 6 7 8 9 10 11
end
freq_resp
   rao
    &describe body barge
    fr_point
       report
       end
    &describe body jacket
    fr_point
       report
       end
    fr_cfor sling1
       rep
       end
    fr_cfor boom
       rep
       end
    st_cfor @ -sea issc 90 10 4 -e_period 5 6 7 8 9
       rep
       end
$
$*********************************************      all done
$
&fini
