Page 450 - Advanced Mine Ventilation

Appendix B: Ventilation Network Analyzer in Fortran IV 419

14 RR(I)¼R(I)
IF(FF.GT.0.0.AND.HEIGHT(I).GT.0.0) PRINT 504
l, I, J1(I), J2(I), R(I), FF, HEIGHT(I), WIDTH(I), LENGTH(I)
IF(FF.LE.0.0.AND.HEIGHT(I).GT.0.0) PRINT 528, I, J1(I), 1J2(I), R(I),
HEIGHT(I), WIDTH(I), LENGTH(I)
IF(HEIGHT(I).LE.0.0)PRINT 504, I, J1(I), J2(I), R(I)
15 CONTINUE
C
C ARRANGE GENERAL BRANCHES IN DECREASING ORDER OF RESISTANCE
IS¼NFBPFþ1
IE¼NBe1
JE¼IE
L ¼ 0
DO 18 I¼IS, IE
DO 17 J¼IS, JE
IF(RR(Jþ1)eRR(J)) 17, 17, 16
16 T¼RR(J)
RR(J)¼RR(Jþl)
RR( Jþ1)¼T
T¼BRANCH(J)
BRANCH(J) ¼ BRANCH(Jþ1)
BRANCH(Jþ1)¼T
L¼1
17 CONTINUE
IF(L)19, 19, 18
18 JE¼JEe1
C
C DETERMINE BASIC BRANCHES
19 DO 20 I¼1, MAX J
20 JC(I)¼0
I¼NBþ1
L¼0
N ¼0
DO 31 IJ¼IS, NB
I ¼ Ie1
OUT(I)¼0.
K¼BRANCH(I)
JA¼J1(K)
JB¼J2(K)
IF(JC(JA)eJC(JB))26, 28, 21
21 IF(JC(JB))22, 25, 22
22 JJ¼JC(JB)
DO 24 J¼1, MAXJ
IF(JC(J)e JJ)24, 23, 24