```
#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

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
```