L(W870)
TEXT(CF=1.E7 RHO2=10. POUT=3.0 :         W871
TITLE
COVAL(OUTLET,P1,1.E3,3.0);COVAL(OUTLET,P2,1.E3*RHO2/RHO1A,3.0)
RELAX(R1,LINRLX,0.3);RELAX(R2,LINRLX,0.3)