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

  ENDDIS  
load(791)
text(In-Form equivalent of library case 791
libref=368
  
    Next actions deactivate "neighbour technique" entries.
NEW1=SKIP
NEE1=SKIP
NEPLUS=SKIP
NEMINUS=SKIP
NEOLD=SKIP

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

  INFORM13BEGIN                                           
  
    Flow of shell fluid
PATCH(INEW1,CELL,2,NX,1,1,1,1,1,1000)
(SOURCE 1STH at INEW1 is FLO1*(1STH[-1]-1STH) with LINE)
 
  The equivalent of it is the following In-Form statement
  (SOURCE 1STH at INEW1 is FLO1*(WEST(1STH)-1STH) with LINE)

    Flow of tube fluid
PATCH(INEE1,CELL,1,NX-1,1,1,1,1,1,1000)
(SOURCE 2NDH at INEE1 is FLO2*(2NDH[+1]-2NDH) with LINE)
 
  The equivalent of it is the following In-Form statement
  (SOURCE 2NDH at INEE1 is FLO2*(EAST(2NDH)-2NDH) with LINE)

    Heat-exchange with tube fluid, throughout the exchanger.
PATCH(INEPLUS,VOLUME,1,NX,1,NY,1,NZ,1,1000)
(SOURCE 1STH at INEPLUS is COEF12*(2NDH-1STH) with LINE)
 
    Heat-exchange with shell fluid, throughout the exchanger.
PATCH(INEMINUS,VOLUME,1,NX,1,NY,1,NZ,1,1000)
(SOURCE 2NDH at INEMINUS is COEF12*(1STH-2NDH) with LINE)

    A small volume porosity is used to nullify the effect of
    the built-in transient terms, which are replaced
    by the use of the special patch named NEOLD below.
REAL(COEF); COEF=CAP1/DELT
PATCH(INEOLD,VOLUME,1,NX,1,NY,1,NZ,1,LSTEP)
(SOURCE 1STH at INEOLD is COEF*(OLD(1STH)-1STH) with LINE)
(SOURCE 2NDH at INEOLD is COEF*(OLD(2NDH)-2NDH) with LINE)

  INFORM13END

DISTIL=T; EX(1STH)= 0.; EX(2NDH)=0.; EX(VPOR)=0.; EX(EPOR)=0.
STOP