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

  Then, the viscosity to be calculated in accordance with the formula.
  Finally, provision is made for the formula to be printed in the
  "field-values print-out", by setting the formula as the "long-
  name" of viscosity.
    
  The Q1 uses the In-Form statements:
      PROPERTY and LONGNAME.

  The Q1 contains PHOTON USE commands
  ENDDIS  
  PHOTON USE
  p;;;;
 
  set vec ref 0.3;gr z 1;vec z 1 sh
  msg                     Velocity vectors
  msg Press  to continue
  pause;gr off;vec off;red;gr ou z 1
  msg Temperature contours
  con TEMP z 1 fil;.001
  msg Press Enter to continue
  pause;con off;red
  msg              Viscosity contours
  con VISL z 1 fil;.001
  msg Press e to END
  ENDUSE

load(z100) 
text(In-Form equivalent of PLANT case Z100
libref=700
     ** The next line de-activates PLANT **
namsat=none
  
     ** In-Form property formulae which are equivalent to the
        PLANT formulae of z100                               **
  INFORM9BEGIN
enul=1 ! cancel call to GROUND
(PROPERTY of VISL is :ENULR:*EXP(:EXPO:*(TEMP-:TEMPR:)))
(LONGNAME of VISL is :ENULR:*EXP(:EXPO:*(TEMP-:TEMPR:)))
  INFORM9END
DISTIL=T
EX(P1)=3.442E-02; EX(U1)=1.276E-01; EX(V1)=8.064E-02
EX(TEMP)=6.309E-01; EX(VISL)=4.492E-04

STOP