$
$*********************************************      basics
$
&dimen -dimen feet kips
$
$*********************************************      read model
$
inmodel
&default -prob 1/10
medit
 assembly lleg *db2 *db1 barge 0  25 20 -tpin 0 300  25 20 -frict .05
 assembly lleg *db4 *db3 barge 0 -25 20 -tpin 0 300 -25 20 -frict .05
end
$&instate jacket -loc      200 0 10
&instate barge  -loc      00 0 -10
&instate jacket -move 200
&status
&status config
&status f_lway
hydro
   g_press barge -heading 90 -period 6  7 8 9 10 11 12 13
end
freq_resp
 rao
 &describe body barge
 fr_point 200 0 20
   report
 end
 fr_cfo &lleg1-1
    report
 end
 st_cfor @ -sea issc 90 10 6 -e_period 7 8 9 10 11 12 13
    report
 end
$
$*********************************************      all done
$
&finish
