#cls
text(In-Form equivalent of PLANT case Z623
title
libref=776
  
  DISPLAY
  
  In-Form, like PLANT, can provide formulae for the z-interval in
  parabolic flows. This is illustrated here.
  
  It uses the In-Form functions:
      ZGRID.
  
  ENDDIS
  PHOTON USE
  p;  parphi;;;
 
  msg        PLANE JET
  msg
  msg        ADAPTIVE Z-DIRECTION STEP SIZE
  gr  x 1;vec x 1 sh
  msg Press e to END
  enduse
load(z623) 
text(In-Form equivalent of PLANT case Z623
libref=776

     ** The next line de-activates PLANT **
namsat=none
  
  INFORM7BEGIN
  !!!!! note the use of the IF condition !!!!!
(ZGRID of DZ is 0.1*YVLAST with IF(IZ.LE.2))
(ZGRID of DZ is DZL*(1.-0.02*TEMP[,1,-1]/:TJET:) with IF(IZ.GT.2))

  INFORM7END

DISTIL=T
EX(P1)=1.937E-01; EX(V1)=3.902E-01; EX(W1)=3.505E+00
EX(TEMP)=3.793E-01; EX(LEN1)=2.228E-02; EX(ENUT)=1.811E-02
STOP