Elementary Principles 455 - 10X, F8.2,' K') END C C...

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

View Full Document Right Arrow Icon
10- 7 10.7 (cont’d) b. C **CHAPTER 10 -- PROBLEM 7 DIMENSION SF(8), S1(8), S2(8) FLOW = 150. N = 3 SF(1) = 0.35*FLOW SF(2) = 0.57*FLOW SF(3) = 0.08*FLOW SF(8) = 315. X1 = 0.60 CALL SPLIT (SF, S1, S2, X1, N) WRITE (6, 900)' STREAM 1', S1(1), S1(2), S1(3), S1(B) WRITE (6, 900)' STREAM 2', S2(1), S2(2), S2(3), S2(B) 900 * * * FORMAT (A10, F8.2,' mols/h n-octane', /, 10X, F8.2,' mols/h iso-octane', /, 10X, F8.2,' mols/h inerts', /,
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: 10X, F8.2,' K') END C C SUBROUTINE SPLIT C SUBROUTINE SPLIT (SF, S1, S2, X1, N) DIMENSION SF(8), S1(8), S2(8) D0 100 J = 1, N S1(J) = X1*SF(J) 100 S2(J) = SF(J) S1(J) S1(8) = SF (8) S2(8) = SF (8) RETURN END Program Output: Stream 1 3150 . mols h n-octane 51.30 mols h iso-octane 7.20 mols h inerts 315.00 K Stream 2 21.00 mols h n-octane 34.20 mols h iso-octane 4.80 mols h inerts 315.00 K...
View Full Document

Ask a homework question - tutors are online