$
$*********************************************      basics
$
&dimen -dimen feet kips
$
$*********************************************      read model
$
inmodel
&instate -loc 0 0 300
medit
   ~pin  fix  x y z
   connector a ~pin    *two
end
&env test  -time 2.75 .01
tdom -newmar -no_cap
prcpost
  traj
    vlist
    report
  end
 conforce
    rep
 end
 ldgfor test -force @
    report
 end
end
$
$*********************************************      all done
$
&fini
