Page 459 - Advanced Mine Ventilation

428 Appendix B: Ventilation Network Analyzer in Fortran IV

IF(J2(J).NE.I) GO TO 1030
LL¼LLþ1
NBIN(LL)¼J
1030 CONTINUE
JIN(JJ)¼LL
IF((KK.EQ.LL).AND.(K.EQ.L)) GO TO 1040
JCTN(JJ) ¼ I
JJ¼JJþ1
1040 CONTINUE
INDIC¼ 1
C
C SET MIXTURE T.L.V. TO ZERO.
DO 1043 I¼1, NB
1043 TLVMXB(I)¼0.0
DO 1045 I¼1, NJ
1045 TLVMXJ(I)¼0.0
C
C SET DIESEL EXHAUST CONCENTRATIONS TO ZERO
1050 DO 1060 I¼1, NB
CDB(I)¼0.0
1060 MB(I)¼0
DO 1070 I ¼1, NJ
COJ(I)¼0.0
1070 MJ(I) ¼ 0
C
C IDENTIFY THE COMPONENT OF THE DIESEL EXHAUST
READ 500, (SUBTIT(I), I¼1, 10)
PRINT 610, (SUBTIT(I), I¼1, 10)
C
C READ OUTSIDE CONDITIONS
READ 651, JJ
C
C FIND JUNCTION COUNTER FOR OUTSIDE JUNCTION
DO 1080 J¼1, NJ
IF(JCTN(J).NE.JJ) GO TO 1080
JJ¼J
GG TO 1090
1080 CONTINUE
1090 CDJ(JJ)¼0.0
MJ(JJ)¼1
C
C READ GENERAL DIESEL EXHAUST GENERATION RATES
READ 652, QDBG, DEL, QDG, QDJG, TLV, NQDBS, NQDJS IF(DELQDG.EQ.0.0) GO TO 1110
DO 1100 1¼1, NB