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

  The Q1 uses SOURCE In-Form statements.

  The Q1 contains PHOTON USE commands
  ENDDIS  
  PHOTON USE
  p
 
 
 
  gr ou z 1
  con c1 z 1 fil;0.01
  msg                     C1  CONTOURS
  msg Press Enter to continue
  pause
  con off;red
  con infr z 1 fil;0.01
  msg                     IN-FORM CONTOURS
  MSG Press E to end
  ENDUSE

load(z121) 
text(In-Form equivalent of PLANT case Z604
libref=721

    ** The next line de-activates PLANT **
namsat=none
SOLUTN(PLNT,Y,N,N,N,N,Y)

     ** The following settings have been chosen as being
        preferable to those of z121, in respect of convergence
        and printout.                                         **            
SOLVE(INFR)
LSWEEP=25
  
     ** In-Form formulae of z121 **
  INFORM13BEGIN

(SOURCE of INFR at ABSORB is SIGMA*(0-INFR) with LINE)
 
(SOURCE of INFR at SORCE is SOURC)
 
(SOURCE of INFR at SPIL is RATE with FIXV)
  INFORM13END
DISTIL=T
EX(U1)=1.000E+00; EX(C1)=5.743E-01
EX(INFR)=5.742E-01; EX(PLNT)=1.000E+00
STOP