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

  It uses SOURCE In-Form statement.
  
  The Q1 contains PHOTON USE commands
  ENDDIS  
  PHOTON USE
  p
 
 
 
  gr ou z 1
  ve z 1 sh
  msg                    Velocity distribution:
  MSG Press  to continue
  pause
  clear
  msg                    Fuel distribution :
  con fuel z 1 fil;0.01
  msg Press e to END
  ENDUSE

load(z133) 
text(In-Form equivalent of PLANT case Z133
libref=733
   
  INFORM13BEGIN
    ** The next line de-activates PLANT **
namsat=none
REAC=SKIP

     ** In-Form formulae which are equivalent to the
        PLANT formulae of z133                      **

PATCH(IREAC,PHASEM,1,NX,1,NY,1,NZ,1,LSTEP)
(SOURCE of FUEL at IREAC is 4.0*EP/(KE+1.E-10)*(0-FUEL))
  INFORM13END
     ** The following settings have been chosen as being
        preferable to those of z133, in respect of convergence
        and printout.                                         **
RELAX(FUEL,FALSDT,0.01)
  
DISTIL=T
EX(P1)=1.159E+01; EX(U1)=1.252E+01; EX(V1)=2.344E-01
EX(KE)=1.666E+01; EX(EP)=5.617E+01; EX(H1)=7.500E+05
EX(TMP1)=5.000E+02; EX(RHO1)=6.991E-01; EX(OXID)=9.927E-01
STOP