$
$*********************************************      basics
$
&dimen -dimen feet kips
$
$*********************************************      read model
$
inmodel
&instate -con 20
&summ
   compar tubtank
end
&weig -comp 0
hstat
    rarm 3 10 -wind 100 -stop
       report
       end
    rarm 3 10 -yaw 90 -wind 100 -stop
       report
       end
    rarm 3 10 -yaw 45 -wind 100 -stop
       report
       end
   &comp -flood @
   equi
    rarm 3 10 -wind 100 -stop
       report
       end
    rarm 3 10 -yaw 90 -wind 100 -stop
       report
       end
    rarm 3 10 -yaw 45 -wind 100 -stop
       report
       end
$
$*********************************************      all done
$
&fini
