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

  The Q1 uses PROPERTY In-Form statements.

  The Q1 contains PHOTON USE commands
  ENDDIS  
  PHOTON USE
  p
 
 
 
  vec x 1 sh
  con temp x 1 sh;int 30
  msg             Velocity vectors and temperaturee
  msg  Press Enter to continue
  ENDUSE

load(z123) 
text(In-Form equivalent of PLANT case Z123
libref=723

    ** The next line de-activates PLANT **
namsat=none
PRNDTL(TEMP)=-GRND2
LSWEEP=120
  
     ** In-Form property formulae which are equivalent to the
        PLANT formulae of z123                               **
  INFORM9BEGIN
enul=1 ! cancel call to GROUND
(PROPERTY var VISL is VISC)
(PROPERTY var PRNDTL(TEMP) is -DIFS)
  INFORM9END
lsg57=t
DISTIL=T
EX(P1)=5.036E+07; EX(V1)=7.972E-05; EX(W1)=7.603E-03
EX(DIFS)=2.980E-06; EX(VISC)=3.333E+09; EX(TEMP)=1.913E+00
STOP