Page 447 - Advanced Mine Ventilation

416 Appendix B: Ventilation Network Analyzer in Fortran IV

ME(L) marks last subscript location in array NA for mesh no. L
NA(JK) contains the branch number in each mesh
NFBPF number of fixed flow branches plus the number of fans
NM number of meshes in the mine
OUT(I) marks the basic branch with a one and marks branches in the mesh or those not to be
considered for a mesh with a minus one
Q(I) quantity of air flowing through branch I
R(I) resistance of branch no. I
RR(I) auxiliary storage (for sorting) for resistance

Other Symbols for Fan Curve Section
ALPHA(I) the constant ai, in polynomial Fi(Q)
BETA(I) the constant bie1, in polynomial Fi(Q)
C(L, I) the constant Ci-1, of the conventional polynomial of fan no. L
DD(JJ) pre-iteration flow estimate in branch with fan or fixed quantity flow; both in branch no. JJ
ND(L) degree of polynomial for fan no. I
NI number of constants in the polynomial
P(I, J) the polynomial F i-1 (Q) evaluated at Q
S(I) the constant, S i-1 , of the orthogonal polynomial
SIGMA2(I) factor to test curve fit of polynomial of degree I
SMALL temporary storage location for the smallest value of s
W(I) denominators used in calculation of ALPHA(I) and S(I)

Symbols for Iteration Procedure

DHF derivative of the fan curve
FQ(IM) fan pressure of fan no. IM
IM the fan number
SUMD the sum of all flow corrections
SUMDH denominator in the equation for calculation of flow corrections
SUMH numerator in the equation for calculation of flow corrections

Other Symbols for Diesel Exhaust Concentration Calculation
Section
CDB(I) concentration of diesel exhaust in branch no. I
CDJ(JJ) concentration of diesel exhaust at junction counter no. JJ
CDWALL(I) bulk flow of diesel exhaust in branch no. I
J1(I) junction number of entrance of branch no. I
J2(I) junction number at exit of branch no. I
JCTN(JJ) junction number (JJ is junction counter no.)
JIN(JJ) highest value of LL (in NBIN) for junction counter no. JJ
JOUT(JJ) highest value of L (in NBOUT) for junction counter no. JJ
MB(I) branch marker array (I is the branch number)
MJ(I) junction marker array (I is the junction counter number)
NBIN(LL) branch number having flow toward junction (LL is a counter number)
NBOUT(L) branch number having flow away from junction (L is a counter number)