$
$*********************************************      basic stuff
$
&device -g_default device -oecho no
&dimen -dimen feet kips
&default -depth 100
$
$*********************************************      read model
$
inmodel
$
$*********************************************      set location
$
&instate -loc 0 0 -12 10 10
s_loop config   
s_loop draft
s_loop compartment
$
$*********************************************      &equi
$
&loop opt ('-ITER_MA','-MOVE_MA','-TOLERAN','-OMEGA  ','-DEFAULT' \
            '-IGNORE ','-MAXITER','-MAXMOVE')
   &type &equi - option %opt Value = &&equi(%opt)
&endloop
$
$*********************************************      gen drift
$
hydro
   g_mdrift test_bod test_bod -md_type form
end
$
$*********************************************      status body
$
&cutype Checking &DESCRIBE BODY
s_loop BODY
&describe body -wave_run yes -fact_conv 0 -peri_use 8 \
               -spe_mult 4 -fm_mor 5                  \
               -md_phase 90 -md_force .98 .25 .33     \
               -sp_height 20 30 40                    \
               -sp_orient 1 0 0 0 1 0
s_loop BODY
$
$*********************************************      cat summary
$
&summary
   cat
end
$
$*********************************************      forces
$
&cutype Testing Wind Current Force
&loop dir ( 90  45 0 )
   &subtitle Wind/Current Direction = %dir
   &env -wind 100 %dir -curr 10 %dir -sea issc %dir 10 8
   s_loop FORCE
   &subtitle
&endloop
$
$*********************************************      system status
$
&cutype Checking BODY Statuses
s_loop FORCE CONFIGUR POINTS   PART     \
       DRAFT B_MATRIX A_MATRIX D_MATRIX
$
$*********************************************      &body
$
&cutype Checking the &BODY String Function
$
$*********************************************      &body force
$
&status force
b_loop F_EXTRA F_APPLIE F_CONTEN F_WIND F_V_DRAG F_WAVE  F_W_DRIFT \
       F_R_DRAG F_BUOYAN F_WEIGHT F_DEFORM F_INERTI F_AINERT    \
       F_CINERT F_FLEX_C F_RIGID_ F_TOTAL
$
$*********************************************      weight
$
b_loop B_WEIGHT B_CG B_RADII  B_MATRIX
$
$*********************************************      a_weight
$
b_loop A_WEIGHT A_CG A_RADII  A_matrix
$
$*********************************************      d_weight
$
b_loop D_WEIGHT D_CG D_RADII  D_MATRIX
$
$*********************************************      misc
$
&type E_NODES      &body(E_NODES  test_bod )
&type MAX_BUOY     &body(MAX_BUOY )
&type MAX_CB       &body(MAX_CB   )
&type CURRENT      &body(CURRENT  )
&type P_NAME       &body(P_NAME   test_bod )
&type E_PIECES     &body(e_pieces test_bod )
&type I_PIECES     &body(i_pieces test_bod )
&type G_ROLL       &body(g_roll   test_bod )
&type I_VECTOR     &body(i_vector test_bod )
b_loop EXTREMES
$
$*********************************************      down flooding
$
&type MIN_DOWN     &body(MIN_DOWN )
&type MIN_WT_DOWN  &body(MIN_WT_DOWN )
&type MIN_NWT_DOWN &body(MIN_NWT_DOWN )
&type WT_DOWN      &body(wt_down  test_bod )
&type NWT_DOWN     &body(nwt_down test_bod )
s_loop  down  nwt_down
$
$*********************************************      location
$
&type MXSUBMER     &body(MXSUBMER test_bod )
&type BOTCLEAR     &body(BOTCLEAR test_bod )
&type DRAFT        &body(DRAFT    test_bod )
&type LOCATION     &body(LOCATION test_bod )
&type VELOCITY     &body(VELOCITY test_bod )
$
$*********************************************      disp cb
$
&type GM           &body(GM       test_bod )
&type DISPLACE     &body(DISPLACE test_bod )
b_loop CB
$
$*********************************************      all done
$
&fini
