$
$*********************************************      set basics
$
&dimen -dimen feet kips
&title Test of Tube Tank Flooding
&device  -g_default scr -oecho no
$
$*********************************************      read model
$
inmodel
&summary
   comp
end
&compart -correct -per ttank 50
&status v_compartment
&loop lo ( 0 -1 -2 -3 )
   &instate -loc 0 0 %lo
   &stat
   &status force
   &status compartment
&endloop
&loop an ( 0 45 90 )
   &instate -loc 0 0 0 0 %an
   &stat
   &status force
   &status compartment
&endloop
&instate -loc 0 0 -50 0 90
&loop per ( 75 100 )
   &cutype Setting Slosh %per
   &compart -correct -per ttank %per
   &stat
   &status force
   &status compartment
&endloop
&loop per ( 75 100 )
   &cutype Setting V_OPEN %per
   &compart -correct -open_val -per ttank %per
   &stat
   &status force
   &status compartment
&endloop
$
$*********************************************      all done
$
&fini
