Page 462 - Advanced Mine Ventilation

Appendix B: Ventilation Network Analyzer in Fortran IV 431

IF(TLVMXB(I).GT.1.0) PRINT 668, I
1430 CONTINUE
PRINT 669
DO 1440 I¼1, NJ
PRINT 667, I, TLVMXJ(I)
C CHECK IF THE MIXTURE TLV IS EXCEEDED..
IF(TLVMXJ(I).GT.1.0) PRINT 670, I
1440 CONTINUE
READ 651, K
IF(Kel) 10, 1500, 1500
1500 CONTINUE
C
C FORMAT STATEMENTS
500 FORMAT(10A8)
501 FORMATS (7I10, F10.4)
502 FORMAT(//1H0, 12X, 2HNB, 7X, 2HNJ, 5X, 4HMAXJ , 7X, 2HNM, 7X, 2HNF, 4X,
1 5HMAXIT, 3X, 6HNBWNVP, 4X, 5HNFIXB, 10X, 1HE/6X, 819, F11.4//
2 1H0, 8X, 6HBRANCH, 7X,
3 2HJ1, 4X, 2HJ2, 14X, 1HR, 13X, 2HFF, 4X6HHEIGHT, 5X, 5HWI0TH, 4X,
6HLENGTH/)
503 FORMAT(2I10, 5F10.2)
504 FORMAT(1X, I14, 3X, 216, F15.6, 5X, 4F10.1)
505 FORMAT(//27H0** NO. OF BASIC BRANCHES ¼, I4, 5H þ NF)
506 FORMAT(4(I10, F10.3))
507 FORMAT(1H1*5(4X, 6HBRANCH, 11X, 4HNVP)/)
508 FORMAT(5(I11, F14.7))
509 FORMAT(1H1, 10X, 4HMESH, 7X, 6HNO. OF, 16X, 6HSUMNVP/22X,
8HBRANCHES/)
510 FORMAT(2I15, F20.7)
511 FORMAT (60X, 10I6)
512 FORMAT(/18X, 7HTOTAL ¼, 15)
513 FORMAT (1H1)
514 FORMAT(//12X, 3HFAN, 8X, 2HJ1, 4X, 2HJ2, 7X, 3HKEY, 15X, 5 HPOINT,
11X, 1HX, 1 8X, 2HFX//I15, 4X, 2I6, I10)
515 FORMAT (8F10. 3)
516 FORMAT(I61, 2X, 2F10.4)
517 FORMAT(/18X, 8HSIGMA2 ¼, 1PE14.7)
518 FORMAT(1H0, 17X, 12HCOEFFICIENTS//18X, 1P6E18.7)
519 FORMAT(1H1, 18, 11H ITERATIONS, 9X, 6HSUMD ¼, 1PE14.7)
520 FORMAT(10X, 25H** D STILL GREATER THAN E)
521 FORMAT(///14X, 6HBRANCH, 8X, 2HJ1, 3X, 2HJ2, 19X, 1HR, 19X, 1HQ,
19X, 1HH/)
522 FORMAT(120, 5X, 215, 4PF20.6, OPF20.4, OPF20.7)
523 FORMAT(1H1, 16X, 3HFAN, 8X, 2HJl, 3X, 2HJ2, 19X, 1HQ, 18X, 2HFQ/)