Page 461 - Advanced Mine Ventilation

430 Appendix B: Ventilation Network Analyzer in Fortran IV

DO 1310 K¼JE, JS
J¼NBIN(K)
IF(MB(J).EQ.0) GO TO 1400
SUMMTN¼SUMMTNþQ(J)*CDB(J)
SUMAIR¼SUMAIRþQ(J)
1310 CONTINUE
JJ¼I
SUMMTN¼SUMMTNþQDJUNC(I)
IF(SUMNTN.LE.SUMAIR*1.Ee70) GO TO 1320
CDJ(I)¼SUMMTN/SUMAIR
1320 MJ(I)¼1
GO TO 1200
1400 CONTINUE
C
C PRINT POLLUTANT CONCENTRATIONS
PRINT 660
DO 1410 I¼1, NB
CDB(I)¼CDB(I)*10.0**6
C MULTIPLICATION BY 10.0**6 CONVERTS THE CONCENTRATION INTO,
C PARTS PER MILLION.........
PRINT661, I, QDWALL(I), CDB(I) , TLV
C CHECK IF TLV IS EXCEEDED
IF(CDB(I).GT.TLV) PRINT 663, I
C CALCULATE THE T.L.V. OF THE MIXTURE IN BRANCHES...
TLVMXB(I)¼TLVMXB(I)þCDB(I)/TLV
1410 CONTINUE
PRINT 662
DO 1420 I¼1, NJ
CDJ(I)¼CDJ(I)*10.0**6
C MULTIPLICATION BY 10.0**6 CONVERTS THE CONCENTRATION INTO
C PARTS PER MILLION...
PRINT 661, JCTN(I), QDJUNC( I ), CDJ(I), TLV
C CHECK IF TLV IS EXCEEDED
IF(CDJ(I).GT.TLV)PRINT 664, 1
C CALCULATE THE T.L.V. OF THE MIXTURE AT JUNCTIONS....
TLVMXJ(I)¼TLVMXJ(I)þCDJ(I)/TLV
1420 CONTINUE
READ 651.K
IF(K-1) 1425, 1050, 1050
1425 PRINT 665
PRINT 666
DO 1430 I¼1, NB
PRINT 667, I, TLVMXB(I)
C CHECK IF THE MIXTURE TLV IS EXCEEDED...