&describe body temp vessel
pgen -location 0 0 0 0 0 90 -cs_wind 1 1 1 -cs_curr 1 1 1 -tanaka 0
   plane 0 200 400 -rect 0 20 100
end
~supo fix
rest ~supo *1
*1 0 0 0
*2 0      200.00 0
*3 000.00 400.00 0
&default -nuse @
~tube wbox 1200 25*12 1 1 1
beam ~tube *1 *2 *3
&describe compart tank
pgen -location 0 0 0 0 0 90 -cs_wind 1 1 1 -cs_curr 1 1 1
   plane 0 200 400 -rect 0 20 100
end