$
$*********************************************      basics
$
&device   -g_default device -oecho no
&dimen -dimen feet kips
$
$*********************************************      read model
$
inmodel
&name load
&instate -con 15
&weight -compute 0
medit
   ~wire tensel 1 -len 1000
   connec ~wire -anch 180 1000 *m
end
&conne @ -l_ten 1
hydro
    g_press
end
&env -sea regular 180 24.6  12  -time 1200 .125 find
&status sea
tdom
&type slams &slam(check)
prcpost
    traj -even 0 9000 1
       report loca accel
       plot 1 5 6 7 -rax 8 9 10 -n
       end
    ldg ldg *1 -force @ -even 0 9000 1.
       report
       vl
       statistics 1 107 108 109
       statistics 1 44 45 46
       plot 1 44 45 46 -rax 79 80 81 -n
end
$
$*********************************************      all done
$
&fini
