$
$*********************************************      basics
$
&dimen -dimen feet kips
&device -g_default device -oecho no
$
$*********************************************      read model
$
inmodel
&names holes
&status v_compartment
&status down
&status nwt_down
hstatics
   &instate -condition 16
   &status b_w
   &weight -define  23208 97.33 0 37.72
   equi
   rarm 2.5 15 -echo n -wind 100
      report
      end
   rarm 2.5 15 -echo n -wind 100  -cen_lat 90 0 7.89
      report
      end
   rarm 2.5 15 -echo n -wind 100  -u_current
      report
      end
   rarm 2.5 15 -echo n -wind 100  -u_current initial
      report
      end
end
$
$*********************************************      all done
$
&finish
