Page 451 - Advanced Mine Ventilation

420 Appendix B: Ventilation Network Analyzer in Fortran IV

23 JC(J)¼JC(JA)
24 CONTINUE
GO TO 31
25 JC(JB)¼JC(JA)
GO TO 31
26 IF(JC(JA))22, 27, 22
27 JC(JA)¼JC(JB)
GO TO 31
28 IF(JC(JA))29, 30, 29
29 OUT(I)¼1.
N¼Nþ1
GO TO 31
30 L¼Lþ 1
JC(JA)¼L
JC(JB)¼L
31 CONTINUE
IF(NþNFBPFeNM)32, 33, 32
32 PRINT 505, N
STOP 32
33 IF(NFBPF)36, 36, 34
34 DO 35 I¼1, NFBPF
35 OUT(I)¼1.
C
C FIND MESHES
36 JK¼0
JE¼0
L¼0
DO 54 I¼1, NB
IF(OUT(I))54, 54, 37
37 K¼BRANCH(I)
L¼Lþ1
JK¼JKþ1
NA(JK)¼K
JA¼J1(K)
JB¼J2(K)
N¼Iþ1
38 DO 45 J¼N, NB
IF(OUT(J))45, 39, 45
39 K¼BRANCH(J)
IF(JBeJ1(K))41, 40, 41
40 JB¼J2(K)
JK¼JKþ1