&describe body temp
pgen -cs_wind 1 1 1 -cs_curr 1 1 1 -tanaka 0
   plane 0 200 400 -rect 0 20 100
end
&rep_sel  -sn W   36.31 1.0E+04  3.63 1.0E+07  2.30 1.0E+08 \
          -thick 0.865 0.250 999.00    
~supo fix
rest ~supo *1
*1 0 0 0 $-del
*2 200 0 0
*3 400 0 000
*4 200 0 200
&default -nuse @
~tube tube 1200 1
beam ~tube *1 *2 *3
~pla plate 1.0
ed_class ~pla plate .01
plate ~pla *1 *2 *4
~tb tube 1200 1   -len 100
beam tstbeam ~tube   *2 *4
ed_element tstbeam -scfa 100 100 100 100 200 300 400 500  \
                   -scfb 200 300 400 -sn@ tp
#weight     25500 32 120 120                 -cen 200 0 38.33