Page 448 - Advanced Mine Ventilation

Appendix B: Ventilation Network Analyzer in Fortran IV 417

Q(I) quantity flow of air in branch no. I
QD quantity flow of diesel exhaust
QDJUNC(I) flow of diesel exhaust at junction no. I
SUMAIR summation of quantity flows of air through a junction
SUMMTN summation of quantity flow of diesel exhaust through a junction
TLVMXB(I) mixture TLV in Branch, I
TLVMXJ(I) mixture TLV at Junction, I

Program Listings

*********************************************************************
C
C ***A DIGITAL SIMULATOR FOR DIESEL EXHAUST CONTAMINATION OF MINE ***
C ****** *****
***
***
*** ***
*********************************************************************
C *** IT IS A GENERAL PURPOSE PROGRAM FOR THE STEADY STATE ***
C TURBULENT DISPERSION OF ANY GASEOUS POLLUTANT IN THE MINE ***
C *** AIRWAYS NETWORK. IN THIS CASE IT CALCULATES THE CONCENTRATION ***
C *** OF VARIOUS SPECIES OF DIESEL EXHAUST IN THE MINE NETWORK ***
C *** THE GEOMETRY OF THE ROADWAY NAMELY, THE LENGTH, THE WIDTH, THE ***
C *** HEIGHT AND THE FRICTION FACTOR, THE FAN CHARACTERISTIC, AND THE ***
C ***SOURCE STRENGTH OF THE POLLUTANTS AS WELL AS ITS LOCATIONS IN ***
C *** THE NETWORK ARE USED AS INPUT TO THE PROGRAM. FIRSTLY, THE ***
C ***PROGRAM CALCULATES THE QUANTITY OF AIR IN EACH BRANCH BY ***
C FORMING MESHES AROUND A TREE DETERMINED UNIQUELY AND APPLYING ***
C CORRECTION TO EACH MESH ACCORDING TO THE HARDY CROSS ITERATIVE ***
C TECHNIQUE AND KIRCHHOFF'S LAWS. THE FAN CHARACTERISTIC IS **
C APPROXIMATED BY ORTHOGONAL POLYNOMIALS AND ITS OPERATING ***
C *** POINT IS ALSO DETERMINED. FINALLY, IT COMPUTES CONCENTRATIONS ***
C *** OF DIESEL EXHAUST IN ALL THE BRANCHES AND AT ALL THE ***
C *** JUNCTIONS OF THE NETWORK. IT ALSO PRINTS OUT IF THE THRESHOLD ***
C ***VALUES OF THE COMPONENTS OF DIESEL EXHAUST OR THAT OF THE ***
C *** MIXTURE THEREOF ARE EXCEEDED ANYWHERE. THIS PROGRAM HAS BEEN ***
C *** SUCCESSFULLY RUN ON THE IBM 370/168 COMPUTER USING FORTRAN IV G ***
C *** LEVEL COMPILER. IT NEEDS 280 K STORAGE SPACE. THE TIME AND ***
C *** RECORDS DEPEND ON THE SIZE OF THE MINE NETWORK. ***
*********************************************************************