$
$*********************************************      basics
$
&dimen -dimen feet kips
$
$*********************************************      read model
$
inmodel
&instate -con 20
&weig -comp 0
&set wc1   = &number(real 50*576/1e4)
&set wc2   = 0
&set wc3   = &number(real 30*576/50/50/1e4)
&set rc1   = 0
&set rc2   = 5
&set rc3   = 0
&set w_mom = -w_coef %wc1 %wc2 %wc3
&set r_mom = -r_coef %rc1 %rc2 %rc3
$Weight = 576.12, KG = .00, and Wind Speed = 100.  Knots
&status size
hstat
    cform -draft 2 50
       report
       end
    rarm 3 10         -wind 100 %w_mom
       report
       end
    rarm 3 10         -wind 100 %w_mom %r_mom
       report
       end
    rarm 3 10 -yaw 90 -wind 100 %w_mom
       report
       end
    rarm 3 10 -yaw 45 -wind 100 %w_mom
       report
       end
   &comp -flood @
   equi
    rarm 3 10         -wind 100 %w_mom
       report
       end
    rarm 3 10 -yaw 90 -wind 100 %w_mom
       report
       end
    rarm 3 10 -yaw 45 -wind 100 %w_mom  -echo yes
       report
       end
$
$*********************************************      all done
$
&fini
