#cls
text(In-Form equivalent of library case 118
libref=366
title
  DISPLAY
  
  This In-Form case does what 118 does, but without use of
  neighbour technique.
  
  It uses the In-Form functions:
      SOURCE and LOW.

  ENDDIS  

load(118)
text(In-Form equivalent of library case 118
libref=366
  
  Next actions deactivate "neighbour technique" entries.
NEL1=SKIP

    Thereafter the following In-Form formulae replace actions
    of the neighbour technique:

  INFORM13BEGIN

PATCH(iNEL1,LOW,1,1,1,1,2,NZ,1,LSTEP)
(SOURCE H1 at iNEL1 is FLO1*(H1[,,-1]-H1) with LINE)

  The equivalent of it is the following In-Form statement
  (SOURCE H1 at iNEL1 is FLO1*(LOW(H1)-H1) with LINE)

  INFORM13END

DISTIL=T; EX(H1)=1.789E+01; EX(VPOR)=9.001E-01; EX(NPOR)=3.433E+01
STOP