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

  The Q1 uses the In-Form statements:
      STORED and PROPERTY.

  The Q1 contains PHOTON USE commands
  ENDDIS  
  PHOTON USE
  p
 
 
 
  msg             Numerical solution  velocity contours
  con U Z 1 fi;0.001
  msg Press Enter to continue
  PAUSE
  CLEAR
  con UEXC Z 1 fi;0.001
  msg               Exact solution  velocity contours
  msg Press e to END
  ENDUSE

load(z113) 
text(In-Form equivalent of PLANT case Z113
libref=713

    ** The next line de-activates PLANT **
namsat=none
  
     ** In-Form formulae which are equivalent to the
        PLANT formulae of z113                      **
  INFORM9BEGIN
enul=1 ! cancel call to GROUND
(PROPERTY var VISL is EXP(-1.*TEMP))
  INFORM9END
  INFORM7BEGIN
(STORED of UEXC is (EXP(1.)+1.)/(EXP(1.)-1.)$
*(EXP(XG)-1.)-XG*EXP(XG))

(STORED of TEMP is XG)
  INFORM7END
DISTIL=T
EX(UEXC)=5.546E-01; EX(TEMP)=5.000E-01; EX(U)=5.580E-01
STOP