Page 463 - Advanced Mine Ventilation

432 Appendix B: Ventilation Network Analyzer in Fortran IV

524 FORMAT(I20, 5X, 2I5, F20.4, F20, 7)
525 FORMAT(//27HC** NO MESH FOUND AT BRANCH, 14)
528 FORMAT (1X, I 14, 3X, 216, F15.6, 15X, 3F10.1)
530 FORMAT('0%', 'THE SIZE OF THE REGULATOR IS' , F10.4,' SQ FT')
540 FORMAT ('0', 'THE CAPACITY OF THE BOOSTER FAN IS', F10.4, 1' INCHES
OF W.G. AT', 3PF10.4, 'C.F.M.')
600 FORMAT(1H1, 13X'HEAD LOSS TO BE ADJUSTED IN FIXED QUANTITY BRANCH'
1 ///14X, 6HBRANCH, 8X, 2HJ1, 3X, 2HJ2, 19X, 1HR, 19X, 1HQ, 16X,
4HSUMH/)
610 FORMAT(1H1, 4X, 10A8)
651 FORMAT(I10)
652 FORMAT (F10.6, F10.6, F10.6, F10.4, 2110)
653 FORMAT(I10, F10.6, F10.6)
654 FORMAT(I10, F10.6)
660 FORMAT(1H1, 24X, 36HDIESEL EXHAUST CONCENTRATION RESULTS///
133X, 13HBRANCH VALUES//35X, 14HDIESEL EXHAUST, 13X,
113HCONCENTRATION, 10X, 3HTLV/
213X, 13HBRANCH NUMBER, 8X, l0HFROM WALLS, 18X, 6HIN PPM)
661 FORMAT(18X, I3, 12X, F10, 4, 19X, F15.1, 5X, F10.1)
662 FORMAT(1H1, 30X, 15HJUNCTION VALUES//
135X, 14HDIESEL EXHAUST, 13X, 13HCONCENTRATION, 10X, 3HTLV/13X,
215HJUNCTION NUMBER, 4X, 13HFROM JUNCTION, 17X, 6HIN PPM)
663 FORMAT('0', '**THE DIESEL EXHAUST CONCENTRATION EXCEEDED,
1’ITS TLV IN BRANCH NO.', I3)
664 FORMAT('0', **THE DIESEL EXHAUST CONCENTRATION EXCEEDED, 1'ITS TLV
AT JUNCTION NO,', I3)
665 FORMAT(1Hl, 'THE FOLLOWING ARE THE VALUES OF TLV OF 1 THE MIXTURE OF
DIESEL EXHAUST COMPONENTS’)
666 FORMAT(1Hl, 13X, 'BRANCH NUMBER', 5X, ‘MIXTURE T.L.V.’)
667 FORMAT('0', 18X, 13, 15X, F10.2)
668 FORMAT('0', '**THE MIXTURE OF DIESEL EXHAUST EXCEEDED ITS TLV
IIN BRANCH NO.', 13)
669 FORMAT(1H1, 13X, 'JUNCTION NUMBER', 5X, 'MIXTURE T.L.V.')
670 FORMAT('0', '** THE MIXTURE OF DIESEL EXHAUST COMPONENTS EXCEEDED
IITS T.L.V. AT JUNCTION NO.', 13)
STOP
END
/*

Brief Description of Program Listings

Lines 1e9 are declaration and dimension statements.
Lines 10e351 constitute the program developed for quantity flow analysis in a
network of airways with minor changes. Excellent description of this part of the