Elementary Principles 464 - 15X, F7.3,' mols/s carbon...

Info iconThis preview shows page 1. Sign up to view the full content.

View Full Document Right Arrow Icon
10- 16 10.11 (cont’d) C **CHAPTER 10 PROBLEM 11 DIMENSION SF(8), SP(8), CP(7), HF(7) REAL NU(7) DATA NU/–1., –5, 0., 3., 4., 0., 0./ DATA CP/0.1431, 0.0330, 0.0308, 0.0495, 0.0375, 0., 0./ DATA HF/–103.8, 0., 0., –393.5, –241.83, 0., 0./ COMMON CP, HF SF(1) = 3.348 SF(2) = 20.09 SF(3) = 75.54 SF(4) = 0. SF(5) = 0. SF(6) = 423. SP(6) = 1050. IX = 1 X = 0.90 N = 5 CALL REACTS (SF, SP, NU, N, X, IX, Q) WRITE (6, 900) (SP(I), I = 1, N + 1), Q 900 * * * * * * FORMAT ('Product Stream', F7.3, ' mols/s propane', /, 15X, F7.3,' mols/s oxygen', /, 15X, F7.3,' mols/s nitrogen', /,
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.

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.

Ask a homework question - tutors are online