L(W872)
TEXT(CF=0. RHO2=1.E3 POUT=-.5  :         W873
TITLE
FIINIT(P1)=3.0;RHO2=1000.0;CFIPS=0.0
COVAL(INLET,P2,FIXFLU,50.0)
COVAL(OUTLET,P1,1.E3,-0.5);COVAL(OUTLET,P2,1.E3*RHO2/RHO1A,-0.5)
RELAX(P1,LINRLX,0.5)