AUTOPLOT USE
  file
  phi 5
 
  da 1
  p1
 
  da 1
  den1
 
  da 1
  gasu
 
  da 1
  r1
 
  screen
  msg pressure profile
  pl 1
  msg press  to continue
  pause
  screen
  msg density
  pl 2
  msg press  to continue
  pause
  screen
  msg gas velocity
  pl 3
  msg press  to continue
  pause
  screen
  msg gas volume fraction
  pl 4
  msg press e to END
  enduse
 
L(W879)
TEXT(CF=1.E7 RHO2=1.E3 POUT=-.5 :        W880
TITLE
RHO2=1000.0
COVAL(INLET,P2,FIXFLU,50.0)
COVAL(OUTLET,P1,1.E3,-0.5);COVAL(OUTLET,P2,1.E3*RHO2/RHO1A,-0.5)