#cls
text(In-Form Equivalent Of Case 240
title
libref=782
  
  DISPLAY
  
  This In-Form case does what 240 does. It illustrates the settings
  of a input mass flow with use of In-Form statements.
  
  First, case 240 is loaded.
  Then IN=SKIP is set, to deactivate INPUT command.
  Also COVAL(NORTH,W1,0.0,0.0) is set to remove wall friction, so 
  that the solution must be the easy-to-check:
     W1 = WIN  and  P1 = 5.0            throughout.
  Then, the following In-Form statement is provided:

  (SOURCE of P1 at INFIN is :RHO1:*:WIN:)
  (SOURCE of W1 at INFIN is :RHO1:*:WIN:*:WIN:)
  (SOURCE of TEMP at INFIN is :RHO1:*:WIN:*:TIN:)

  where RHO1 is density,
        WIN is input W1 velocity,
        TIN is input temperature.
    
  The Q1 contains PHOTON USE commands    
  ENDDIS  

load(240) 
text(In-Form equivalent of case 240
libref=782

    ** The next line de-activates INLET of case 240 **
IN    = SKIP                  
COVAL(NORTH,W1,0.0,0.0)
   INFORM13BEGIN     
     ** In-Form formulae which are equivalent to INPUT of 240 **

REAL(WIN,TIN); WIN=5.0; TIN=9.0
PATCH(INFIN,LOW,#1,#1,#1,#NREGY,#1,#1,1,1)
(SOURCE of P1 at INFIN is :RHO1:*:WIN:)
(SOURCE of W1 at INFIN is :WIN: with ONLYMS)
(SOURCE of TEMP at INFIN is :TIN: with ONLYMS)
   INFORM13END     

DISTIL=T; EX(P1)=5.000E+00; EX(V1)=5.214E-08
EX(W1)=5.000E+00; EX(TEMP)=7.454E+00
  PHOTON USE
  p;;
 
  ve x 1 sh
  gr x 1
  msg Velocity vectors
  msg Hit Enter to continue
  pause;  con temp x 1 fi;.0001
  msg Temperature contours
  ENDUSE
STOP