L(W877)
TEXT(CF=1.E3 RHO2=1.0 POUT=-.5 :         W878
TITLE
RHO2=1.0
COVAL(OUTLET,P1,1.E3,-0.5);COVAL(OUTLET,P2,1.E3*RHO2/RHO1A,-0.5)
COVAL(INLET,P2,FIXFLU,0.05)