$
$*********************************************      basics
$
&dimen -dimen feet kips
$
$*********************************************      read model
$
inmodel
&instate -con -1.61 0 0
medit
   ~pinx gspr x 1e5 z 1e5
   ~piny gspr y 1e5
   connector bs ~pinx *bs
   connector bp ~pinx *bp
   connector sp ~piny *sp
end
&status g_connector
&equi
&status config
&status f_connector
&status force
&env -time 15 .5 -sea regular 90 5 7
tdom
prcpost
   traj
      report loca
   end
   con
     report
   end
end
struct
   lcase -process 15
   ssolve
end
strpost
   joint d
   restraint
end
$
$*********************************************      all done
$
&fini
