#cls
text(Extract fin.-vol. equations and diffusion coefficients
title
libref=703
  DISPLAY
  
  This In-Form case does what 700 does and in addition extracts
  coefficients of finite-volume temperatures equations from EARTH
  and memorize them inside AECO, AWCO, ANCO, ASCO, APCO and GAMM
  variables.
  
  First, case 700 is loaded. 
  Then, STORED In-Form lines provides for extract of finite-volume
  equations coefficients and diffusion coefficients of temperature.
    
  The Q1 contains PHOTON USE commands    
  ENDDIS  
load(700) 
text(Extract fin.-vol. equations and diffusion coefficients
libref=703
  
     ** Storage of intermediate variable

STORE(AECO, AWCO, ANCO, ASCO, APCO, GAMM)

  INFORM7BEGIN
     ** Extract of finite-volume temperature equations coefficients

(STORED of AECO is AECO(TEMP))
(STORED of AWCO is AWCO(TEMP))
(STORED of ANCO is ANCO(TEMP))
(STORED of ASCO is ASCO(TEMP))
(STORED of APCO is APCO(TEMP))

     ** Extract of diffusion coefficients of temperature

(STORED of GAMM is GAMM(TEMP))
  INFORM7END

DISTIL=T
EX(P1)=3.442E-02;EX(U1)=1.276E-01;EX(V1)=8.064E-02
EX(TEMP)=6.309E-01; EX(GAMM)=6.418E-04; EX(APCO)=1.696E-03
EX(ASCO)=1.000E-03; EX(ANCO)=1.000E-03; EX(AWCO)=8.424E-04
EX(AECO)=8.424E-04; EX(VISL)=4.492E-04
  PHOTON USE
  p;;;

  con aeco z 1 fi;.00001
  msg AE coefficients of temperature equation
  msg Hit Enter to continue
  pause
  con del; red
  con awco z 1 fi;.00001
  msg AW coefficients of temperature equation
  msg Hit Enter to continue
  pause
  con del; red
  con anco z 1 fi;.00001
  msg AN coefficients of temperature equation
  msg Hit Enter to continue
  pause
  con del; red
  con asco z 1 fi;.00001
  msg AS coefficients of temperature equation
  msg Hit Enter to continue
  pause
  con del; red
  con apco z 1 fi;.00001
  msg AP coefficients of temperature equation
  msg Hit Enter to continue
  pause
  con del; red
  con gamm z 1 fi;.00001
  msg Diffusion coefficients of temperature equation
  ENDUSE
STOP