Page 453 - Advanced Mine Ventilation

422 Appendix B: Ventilation Network Analyzer in Fortran IV

JE¼ME(I)
SUMNVP(I)¼0.
K¼IABS(NA(J))
DO 60 J¼JS, JE
IF(NA(J))59, 58, 58
58 SUMNVP(I)¼SUMNVP(I)þNVP(K)
GO TO 60
59 SUMNVP(I)¼SUMNVP(I)eNVP(K)
60 CONTINUE
L¼JEeJSþ1
PRINT 510, I, L, SUMNVP(I)
61 PRINT 511, (NA(J), J¼JS, JE)
PRINT 512, JE
IF(NFBPF)88, 88, 261
C
C APPROXIMATION OF FAN CHARACTERISTICS
261 IF(NF)287, 287, 62
62 PRINT 513
DO 87 L¼1, NF
JJ¼LþNFIXB
READ 501, NP, KEY
PRINT 514, L, J1(JJ), J2(JJ), KEY
IF(KEY)63, 63, 85
63 READ 515, (X(I), FX(I), I¼1, NP)
PRINT 516, (I, X(I), FX(I), I¼1, NP)
DD(JJ)¼X(NP)
IF(NPe2)910, 910, 970
910 ND(L)¼1
N1¼2
IF(NPe1)920, 930, 940
920 STOP 920
930 C(L, 1)¼FX(1)
C(L, 2)¼0.
GO TO 840
940 IF(X(1)eX(2))960, 950, 960
950 STOP 950
960 C(L, 1)¼(FX(1)*X(2)eFX(2)*X(1))/(X(2)eX(1))
C(L, 2) ¼ (FX(2)eFX(1))/(X(2)eX(1))
GO TO 840
970 DSQ¼0.
DO 64 J¼1, NP
DSQ¼DSQþFX(J)*FX(J)