Page 458 - Advanced Mine Ventilation

Appendix B: Ventilation Network Analyzer in Fortran IV 427

C OR THE CAPACITY OF THE BOOSTER FAN AS THE CASE MAY BE
IF(SUMH) 865, 866, 866
865 SUMH¼eSUMH
REGSIZ¼0.389*Q(I)/DSQRT(SUMH)
PRINT 530, REGSIZ
GO TO 870
866 PRINT 540, SUMH, Q(I)
870 CONTINUE
C
C PRINT FAN PRESSURE
880 IF(NF) 885, 885, 890
890 PRINT 523
PRINT 524, (I, J1(IþNFIXB), J2(IþNFIXB), Q(IþNFIXB), FQ(I), I¼1, NF) Pe7
885 READ 501, K
IF(K.LE.0) GO TO 10
INDIC¼0
C MAKE NECESSARY PREPARATIONS FOR THE CALCULATION
C OF POLLUTANT CONCENTRATIONS..
C
C MAKE ALL FLOWS POSITIVE
IF(INDIC.EQ.I) GO TO 1050
DO 1010 I¼1, NB
Q(I)¼Q(I)*1. E3
IF(Q(I).GT.0.0) GO TO 1010
L¼J1(I)
J1(I)¼J2(I)
J2(I)¼L
Q(I)¼eQ(I)
1010 CONTINUE
C
C TABULATE INFLOWS AND OUTFLOWS
L ¼ 0
LL¼0
JJ¼ 1
DO 1040 I¼1, MAXJ
K¼L
DO 1020 J¼1, NB
IF(J1(J).NE.I) GO TO 1020
L ¼ Lþ1
NBOUT(L)¼J
1020 CONTINUE
JOUT(JJ)¼L
KK¼LL
DO 1030 J¼1, NB