&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 .125
beam one ~tube *1 *2
beam two ~tube *2 *3
~plate plate .01
plate ~plate *1 *2 *4
&rep_sel  -sn p   36.31 1.0E+04  3.63 1.0E+07  2.30 1.0E+08 \
          -thick 0.865 0.250 999.00    
beam tstbeam -sn p -scfa 100 100 100 100 200 300 400 500  \
                   -scfb 100 200 300 ~tube *2 *4