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

  The Q1 uses SOURCE and STORED In-Form statements.

  The Q1 contains PHOTON USE commands
  ENDDIS  

load(z132)
text(In-Form equivalent of PLANT case Z132
libref=752

    ** The next line de-activates PLANT **
namsat=none
CHEM=SKIP

     ** The following settings have been chosen as being
        preferable to those of z132, in respect of convergence. **
RELAX(U1,FALSDT,0.01)
RELAX(V1,FALSDT,0.01)
RELAX(W1,FALSDT,0.01)
  
     ** In-Form formulae which are equivalent to the
        PLANT formulae of z132                      **
  INFORM13BEGIN
PATCH(iCHEM,VOLUME,1,NX,1,NY,1,NZ,1,LSTEP)
(SOURCE of AM at iCHEM is -2.5*BM*AM with LINE)
(SOURCE of BM at iCHEM is -5.55*AM*BM with LINE)
(SOURCE of CM at iCHEM is 0.215*(24.9*AM*BM-CM) with LINE)
(SOURCE of EM at iCHEM is 0.18*CM with LINE)
  INFORM13END
  
  INFORM7BEGIN
(STORED of DM is 1.-AM-BM-CM-EM)
  INFORM7END
DISTIL=T
EX(P1)=6.688E+00; EX(U1)=4.603E-02; EX(V1)=1.216E-01
EX(W1)=6.147E-02; EX(AM)=2.177E-01; EX(BM)=3.421E-02
EX(CM)=2.139E-01; EX(DM)=2.968E-01; EX(EM)=2.374E-01
EX(H1)=4.780E-01; EX(VPOR)=4.738E-01; EX(HPOR)=4.738E-01
EX(NPOR)=4.123E-01; EX(EPOR)=4.164E-01
  PHOTON USE
  p
 
 
 
  vi 0 0 1
  gr ou z 2
  ve z 2 sh
  msg                    Velocity distribution:
  msg  Press Enter to continue
  pause;vec off;red
  msg                    A- comp. concentration :
  con am z 2 fil;0.001
  msg  Press Enter to continue
  pause;con off;red
  msg                    B- comp. concentration :
  con bm z 2 fil;0.001
  msg  Press Enter to continue
  pause;con off;red
  msg                    C- comp. concentration :
  con cm z 2 fil;0.001
  msg  Press Enter to continue
  pause;con off;red
  msg                    D- comp. concentration :
  con dm z 2 fil;0.001
  msg  Press Enter to continue
  pause;con off;red
  msg                    E- comp. concentration :
  con em z 2 fil;0.001
  msg  Press Enter to continue
  pause
  cl;vi 1 1 1;vi 1 0 0
  gr ou x 5
  ve x 5 sh
  msg                    Velocity distribution:
  msg  Press Enter to continue
  pause;vec off;red
  msg                    A- comp. concentration :
  con am x 5 fil;0.001
  msg  Press Enter to continue
  pause;con off;red
  msg                    B- comp. concentration :
  con bm x 5 fil;0.001
  msg  Press Enter to continue
  pause;con off;red
  msg                    C- comp. concentration :
  con cm x 5 fil;0.001
  msg  Press Enter to continue
  pause;con off;red
  msg                    D- comp. concentration :
  con dm x 5 fil;0.001
  msg  Press Enter to continue
  pause;con off;red
  msg                    E- comp. concentration :
  con em x 5 fil;0.001
  pause
  msg Press e to END
  ENDUSE
STOP