$
$*********************************************      set devices
$
&title Test of Different Ways to Flood
&dimen -dimen feet kips
&device   -oecho no
$
$*********************************************      read model
$
inmodel
&instate -con 10 0 1
$
$*********************************************      loop percentages
$
&loop pf ( 10 80 )
$
$*********************************************      loop types
$
   &loop type ( correct app_none approximate app_worst \
                        fcg_none full_cg  fcg_worst )
      &cutype Setting Type To %type %pf Percent Full
      &compartment -%type -percen @ %pf
      &if %type .eq. correct &then
         &weight -compute
      &endif
      st_cmp
   &endloop
$
$*********************************************      test input
$
&cutype Setting Type To Input  %pf Percent Full
&compartment -input 8 12 333 -25 30  -percen tankp1  %pf
st_cmp
$
$*********************************************      test no_flood
$
&cutype Setting no_flood %pf Percent Full
&compartment -approx @
st_cmp
&compartment -no_flood @
st_cmp
$
$*********************************************      end loops
$
&endloop
$
$*********************************************      all done
$
&fini
