$
$*********************************************      basics
$
&dimen -dimen feet kips
&device    -oecho no
$
$*********************************************      read model
$
inmodel
&apply @
&instate -cond  300 0 90
medit
   ~fix fix x y z
   &loop node ( **S00001 **S00002 **S00003 **S00004 \
                **S00005 **S00006 **S00007 **S00008 \
                *br1 *br2 )
      connector ~fix %node
   &endloop
   ~rx fix rx
   rest ~rx *br1
   sp_beam ~sp -eleme su@ *spf *sps
end
&status config
&status force
&event 1
struct
    lcase -process 1
    ssolve
end
strpost
   beam load stress -detail -ele s@
end
$
$*********************************************      all done
$
&fini
