#cls
text(In-Form Equivalent Of PLANT Case Z129
title
libref=729
  
  DISPLAY
  
  This In-Form case does what Z129 does, but without fortran coding
  or re-compilation.
  
  First, case z129 is loaded. Then NAMSAT = NONE is set, to 
  deactivate.

  The Q1 uses SOURCE In-Form statement.

  The Q1 contains PHOTON USE commands
  ENDDIS  
  PHOTON USE
  P
 
 
 
  rot z ang 180;rot x ang 90
  gr ou x 1
  gr ou x 1 y 1 4 z 7 12
  set vec ref 0.1
  vec x 1 sh
  msg(            Velocity distribution
  msg( Press ENTER to continue
  pause;
  vec off;red
  con h1 x 1 fil;.0001
  msg(             Temperature contours
  msg( Press E to finish
  ENDUSE

load(z129) 
text(In-Form equivalent of PLANT case Z129
libref=729

  INFORM13BEGIN
    ** The next line de-activates PLANT **
namsat=none
BOUSS=SKIP
LSWEEP=400
LITER(V1)=2;LITER(W1)=2;LITER(H1)=2
RELAX(H1,FALSDT,0.01)
  
     ** In-Form formulae which are equivalent to the
        PLANT formulae of z129                      **

PATCH(iBOUSS,PHASEM,1,1,1,NY,1,NZ,1,1)
(SOURCE of W1 at iBOUSS is -9.81*(0-H1)/300000)
  INFORM13END
DISTIL=T
 EX(P1  )=2.251E-04; EX(V1  )=5.917E-03; EX(W1  )=1.908E-02
 EX(H1  )=4.053E+03; EX(VPOR)=9.400E-01
 STORE(PRPS)
 EX(PRPS)=1.282E+01
SOLUTN(P1,P,P,Y,P,P,P)
SOLUTN(H1,P,P,Y,P,P,P)
STOP