This preview shows page 1. Sign up to view the full content.
Unformatted text preview: 15X, F7.3,' mols/s carbon dioxide', /, 15X, F7.3,' mols/s water', /, 15X, F7.2,'K', /, Heat required', F8.2, 'kW') END C SUBROUTINE REACTS (SF, SP, NU, N, X, IX, Q) DIMENSION SF(8), SP(8), CP(7), HF(7) REAL NU(7) COMMON CP, HF C Extent of Reaction EXT = SF(IX)*X/NU(IX) C Solve Material Balances DO 100 I = 1, N 100 SP(I) = SF(I) + EXT = NU(I) C Heat of Reaction HR = 0 DO 200 I = 1, N 200 HR = HR + NF(I)*NU(I) C Product Enthalpy (ref * inlet) HP = 0. DO 300 I = 1, N 300 HP = HP + SP(I)*CP(I) HP = HP + (SP(N + 1) SF (N + 1)) Q = EXT * HR + HP 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