&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
~supo gspr x 100 y 100 z 100 rx 5000 ry 5000 rz 5000
rest ~supo */1
*11 000 0 000
*21 200 0 000
*31 400 0 000
*12 000 0 020
*22 200 0 020
*32 400 0 020
&default -nuse @
~tube tube 1200 1
beam ~tube *11 *21 *31
beam ~tube *12 *22 *32
~conn tube 60 2
beam ~conn *11 *12
beam ~conn *21 *22
beam ~conn *31 *32
#weight   6*4266.67 32 120 120  -cen 200 0 10