DISPLAY
  As for case L100, but with optional value of FLOWA
 
  ENDDIS
#$L100
mesg(Insert desired value of FLOWA, between 0.0 & 1.0
readvdu(flowa,real,:flowa:)
TEXT(WSR, 1D Population; Flowa=:Flowa:  
  re-set flow boundary conditions
FLOWB=1.0-FLOWA  
COVAL(INFLOWA,P1,FIXFLU,FLOWA)
COVAL(INFLOWB,P1,FIXFLU,FLOWB)
LIBREF=101
DISTIL=T
stop