
280
290
300
310
320
i0
330
340
350
360
370
380
390
400
SUBROUTINE PAPER(NUM,F,ALPHA,PERD,MD,PERB,MB,K1,RECLK,RECHK,
* AMIN,SUM1,SUM2,MREF,REF,NUM1)
DIMENSION F(20), ALPHA(20), PERD(20), PERB(20)
REAL MD(20), MB(20), MREF, NUMI
COMMON/DATA2/THETA, FEED
WRITE (1, 280)
FORMAT (///,25X,'MULTICOMPONENT SYSTEM FRACTIONATION',/,1H ,
* 80(1H*))
WRITE (I, 290)
FORMAT (/, 1X,'COMPONENT',7X,'FEED',5X,'REL VOLATILITY', 3X,
* 'DISTILLATE ', 8X, 'BOTTOMS ')
WRITE (1, 300)
FORMAT (1X,'NUMBER',9X,'MOLES',7X,'ALPHA',IOX,'%',8X,'MOLES',8X,
* '%',6X,'MOLES')
WRITE (1, 310)
FORMAT (80(1H-))
DO i0 1 = i ,NUM
WRITE (I, 320) I, F(I), ALPHA(I), PERD(I), MD(I), PERB(I), MB(I)
FORMAT (3X,I2,7X,F9.4,3X,F9.4,3X,F9.4,2X,F9.4,3X,F9.4,2X,F9.4)
CONTINUE
WRITE (i, 330)
FORMAT (80(IH-))
WRITE (i, 340) K1
FORMAT (3X,'THE HEAVY KEY COMPONENT NUMBER:', T60, I2)
WRITE (i, 350) RECLK
FORMAT (3X,'PERCENTAGE RECOVERY OF THE LIGHT KEY COMPONENT',/,
* 3X,'IN THE DISTILLATE (%):', T60, F7.2)
WRITE (i, 360) RECHK
FORMAT (3X,'PERCENTAGE RECOVERY OF THE HEAVY KEY COMPONENT',/,
* 3X,'IN THE BOTTOMS (%):', T60, F7.2)
WRITE (I, 370) AMIN
FORMAT (3X,'MINIMUM NUMBER OF STAGES:', T60, F9.1)
WRITE (I, 380) SUM1, SUM2
FORMAT (3X,'TOTAL MOLES IN THE DISTILLATE:', T60, F9.4,/,
* 3X,'TOTAL MOLES IN THE BOTTOMS:', T60, F9.4)
WRITE (i, 3907 THETA
FORMAT (3X,'UNDERWOOD CONSTANT:', T60, F9.4)
WRITE (i, 400) MREF
FORMAT (3X,'MINIMUM REFLUX RATIO:', T60, F9.4)
WRITE (1, 410) REF
588