Unformatted text preview: 902 FORMAT ('Heat Removal Rate', F7.2,' kW') END C SUBROUTINE CNDNS (SF, SV, SL, P, YC, Q) REAL NF, NL, NV DIMENSION SF(3), SV(3), SL(2) COMMON A, B, C, CPL, HV, CPV, CPG C Inlet Stream Variables NF = SF(1) + SF(2) TF = SF(3) XF = SF(1)/NF C Solve Equations NL = YC * XF * NF NV = NF - NL XV = (XF*NF - NL)/NV PV = P * XV * 760. T = B/(A - LOG(N)/LOG (10.)) - C T = T + 273.15 Q = ((CPV * XV + CPG * (1 - XY)) * NV + CPL * NL) * (T - TF) - NL * HV C Output Variables SL(1) = NL S2(2) = T SV(1) = XV*NV SV(2) = NV - SV(1) SV(3) = T RETURN END...
View Full Document
This note was uploaded on 02/27/2012 for the course CHEMICAL E 312 taught by Professor Cheung during the Fall '11 term at The University of Akron.
- Fall '11