Page 452 - Advanced Mine Ventilation

Appendix B: Ventilation Network Analyzer in Fortran IV 421

NA(JK)¼K
GO TO 43
41 IF(JBeJ2(K))45, 42, 45
42 JB¼J1(K)
JK¼ JKþ1
NA (JK)¼eK
43 IF(JBeJA)44, 51, 44
44 OUT(J)¼ e1.
GO TO 50
45 CONTINUE
K¼IABS(NA(JK))
IF(NA(JK))47, 46, 46
46 JB¼J1(K)
GO TO 48
47 JB¼J2(K)
48 JK¼JKe1
IF(JKeJE)49, 49, 38
49 KeBRANCH(I)
PRINT 525, K
STOP 49
50 GO TO 38
51 DO 53 J¼N, NB
IF(OUT(J))52, 53, 53
52 OUT(J)¼0.
53 CONTINUE
ME(L)¼JK
JE¼JK
54 CONTINUE
DO 55 I¼1, NB
55 NVP(I)¼0.
IF(NBWNVP) 57, 57, 56
C
C READ AND PRINT NATURAL VENTILATION PRESSURE
56 READ 506, (I, NVP(I), J¼1, NBWNVP)
PRINT 507
PRINT 508, (I, NVP(I), I¼1, NB)
C
C PRINT MESH TABLE
57 PRINT 509
JE¼0
DO 61 I¼1, NM
JS¼JEþ1