`Example for Intermediate Stages of Flooding
proj inter
read fv.gf

macro load  `sets the initial tank loads
 load (wt1.s, wt2.s, db1.s) 0
 load (db1.s) .5
/

macro inter
 type flood
 solve
 type intact
 cont * SEA`adj. load to keep WT constant while switching SPGR
 load intermed: %1
 solve
 \------ Intermediate Stage %1 ------\
 status
 cont *`reset initial tank SPGR
 .load      `reset initial tank load
/

macro final
 type flood
 solve
 \------ Final Stage -----\
 status
/

`Establishing condition:
draft 7
vcg 9
solve weight, lcg
.load

\------ Intact Condition -----\
solve
status

`Designating tanks to be flooded
tanks wt1.s, wt2.s, db1.s


.inter .1
.inter .5
.inter 1
.final
type int
solve
\------ Return to Intact -----\
status