Page 466 - Advanced Mine Ventilation

Appendix B: Ventilation Network Analyzer in Fortran IV 435

JJ ¼ I) from which the roadway calculations begin. The process is repeated again and
again until concentrations for all the junctions are calculated.
Lines 458e471 prints the results after converting the concentrations into ppm and
checking the values against their respective TLVs. Lines 459e462 do the above for
branches in the network. At line 463, the mixture TLV is calculated as defined by
the American Conference of Governmental Hygienists (1). Lines 466e471 do the
same operations for all the junctions in the network.
Line 472 reads the value of another computational switch, K. A zero value of K in-
dicates that all components of diesel exhaust have been processed and mixture TLV
can now be calculated.
Line 473: If K is equal to one or larger, it indicates that more data have to be pro-
cessed and control is transferred to line 389.
Lines 474e475 print titles for mixture TLV calculations.
Lines 476e484 check the value of mixture TLV. If the value of TLVMXB(I) or
TLVMXJ(I) is greater than 1.0, a message is printed to that effect.
Lines 485e486 read another computation switch, K. A value of K equals to zero or
less transfers the control to line 10 which eventually stops the program through a check
on lines 12 and 13. The rest of the program is simply the format statements for input
and output.