Page 460 - Advanced Mine Ventilation

Appendix B: Ventilation Network Analyzer in Fortran IV 429

1100 QDWALL(I)¼DELQDG*LENGTH(I)
GO TO 1140
1110 DO 1120 I¼1, NB
1120 QDWALL(I)¼QDBG
DO 1130 I¼1, NJ
1130 QDJUNC(I)¼QDJG
C
C READ SPECIAL DIESEL EXHAUST GENERATION RATES
1140 IF(NQDBS.EQ.0) GO TO 1160
DO 1150 J¼1, NQDBS
READ 653, I, QDBS, DELQDS
IF(QDBS.NE.0.0) QDWALL(I)¼QDBS
IF(DELQDS.NE.0.) QDWALL(I)¼DELQDS*LENGTH(I)
1150 CONTINUE
1160 IF(NQDJS.EQ.0) GO TO 1200
DO 1180 J¼1, NQDJS
READ 654, 11, QDJS
DO 1170 1¼1, NJ
IF(JCTN(I).NE.II) GO TO 1170
QDJUNC(I)¼QDJS
GO TO 1180
1170 CONTINUE
1180 CONTINUE
C
C ROADWAY CALCULATIONS
1200 JE¼1
IF(JJ.NE.1) JE¼JOUT(JJe1)þ l
JS¼JOUT(JJ)
DO 1300 K¼JE, JS
I¼NBOUT(K)
QD¼CDJ(JJ)*Q(I)þQDWALL(I)
COB(I)¼QD/Q(I)
MB(I)¼1
1300 CONTINUE
C
C JUNCTION CALCULATIONS
DO 1400 I¼1, NJ
IF (MJ(I).NE.0) GO TO 1400
JE¼ 1
IF(I.NE.1) JE¼JIN(Ie1)þ1
JS¼JIN(I)
SUMMTN¼0.0
SUMAIR¼0.0