L(W871)
TEXT(CF=1.E7 RHO2=10. POUT=6.0 :         W872
TITLE
FIINIT(P1)=6.0
COVAL(OUTLET,P1,1.E3,6.0);COVAL(OUTLET,P2,1.E3*RHO2/RHO1A,6.0)