Appendix B - Program Listing Of Head Loss Calculation Using The Thermodynayic Method

C THRM 1 C CALCULATION OF MINE HEAD LOSSES FROM ALTIMETER SURVEY DATA TURN 2 C PENNSYLVANIA STATE UNIVERSITY - MINERAL ENGINEERING DEPARTMENT THRM 3 C THRM 4 C THRM 5 C THIS PROGRAM CALCULATES PRESSURE LOSSES USING THERMODYNAMIC RELATION- THRM 6 C SHIPS BASED ON POLYTROPIC FLOW BETWEEN STATIONS. FOR REFERENCE SEE THRM 7 C "A NEW TREATMENT OF MINE BAROMETER SURVEYS" BY M. J. MCPHERSON IN THRM 8 C 'THE MINING ENGINEER' NO. 109, VOL. 129, P 23. THRM 9 C THRM 10 C THRM 11 C THRM 12 C IDENTIFICATION OF ARRAYS THRM 13 C NOTE THE PROGRAM HAS BEEN DIMENTIONED FOR FOURTY (40) DATA POINTS THRM 14 C BASEC(6;2) BASE INSTRUMENT TEMPERATURE CORRECTIONS THRM 15 C TRAVC(6,2) TRAVERSE INSTRUMENT TEMPERATURE CORRECTIONS THRM 16 C BASER(I) BASE INSTRUMENT READING THRM 17 C TRAVR(I) TRAVERSE INSTRUMENT READING THRM 18 C TDRY(I) DRY BULB TEMPERATURE AT TRAVERSE STATION THRM 19 C TWET(I) WET BULB TEMPERATURE AT TRAVERSE STATION THRM 20 C ELEV(I) ELEVATION AT TRAVERSE STATION THRM 21 C VEL(I) AIR VELOCITY AT TRAVERSE STATION THRM 22 C TBDRY(I) DRY BULD TEMPERATURE AT BASE STATION THRM 23 C BASC(I) BASE READING CORRECTED FOR INSTRUMENT TEMPERATURE THRM 24 C TRAV(I) TRAVERSE READING CORRECTED FOR INSTRUMENT TEMPERATURE THRM 25 C BBASE(I) TEMPERATURE CORRECTED BASE READING IN BAROMETRIC THRM 26 C PRESSURE THRM 27 C BTRAV(I) TEMPERATURE CORRECTED TRAVERSE READING IN BAROMETRIC THRM 28 C PRESSURE THRM 29 C BTRAVS(I) BAROMETRIC TRAVERSE READING CORRECTED FOR ATMOSPHERIC THRM 30 C CHANGES THRM 31 C RELHUM(I) RELATIVE HUMIDITY THRM 32 C ASW(I) AIR SPECIFIC WEIGHT TURN 33 C R(I) GAS CONSTANT FOR MOIST AIR THRM 34 C STPRES(I) STATIC PRESSURE CHANCE BETWEEN STATIONS (I) AND (1-1) THRM 35 C TOPRES(I) TOTAL PRESSURE CHANCE BETWEEN STATIONS (I) AND (I-1) TURN 36