$
$*********************************************      set basics
$
&dimen -DIMEN meters m-tons
&DEVICE -g_default device   -oecho no
&TITLE Test of Correct vs Appriximate Ballasting
$
$*********************************************      read model
$
inmodel
&apply @ 100
&instate -con 20 0 0
&status -hard
&status compartment
&status n_map -hard
$
$*********************************************      build events
$
&set type = -simple
&loop i 1 2
   &comp %type -perc @ 25
   &status compartment
   &equi
   &stat
   &event_store %i
   &set type = -correct
&endloop
$
$*********************************************      before
$
STRUCTURE
   lcase -process simple 1 slosh 2
   exp_aload
   s_rest ~@
   ssolve
END
$
$*********************************************      str post
$
STRPOST
   plate_po -detail
END
$
$*********************************************      all done
$
&fini
