Appendix A. - MFIRE Source Code

UNIT OF MEASURE ABBREVIATIONS USED IN MFIRE FT foot FT3/MIN cubic foot per minute LBM•MIN2/FT4 pound mass times minutes squared over feet to the fourth FT2/HR square feet per hour BTU/HR*FT*F British thermal unit divided by hours times fimes feet times degree Fahrenheit IN W G inches water gage FT3/MIN cubic feet per minute FT2 square feet FT3 cubic feet LBM, pound mass F Fahrenheit IN W G /CFM2 inches water gage per cubic foot per minute squared PERCENTAGE percent BTU/MIN British thermal unit per minute MFIRE BAT PROGRAM cls echo off echo MFIRE activated mfire0 echo Wait a moment for loading the program if EXIST zheng chg mfirel if EXIST zheng chg mfire2 if EXIST zheng chg mfire1 if EXIST zheng chg erase zheng chg if EXIST hang chg erase hang chg if EXIST yunzhi fan copy yaodong.ion+yunzhi fan yaodong ion if EXIST yunzhi fan erase yunzhi fan if EXIST xintan chg copy yaodong xin+xintan chg yaodong ion if EXIST xintan chg erase xintan chg if EXIST yaodong xin copy yaodong.xin mfire out if EXIST yaodong.xin erase yaodong.xin if EXIST net erase net echo Your output is saved in file MFIRE OUT MFIRE0 FOR PROGRAM CHARACTER•50 A OPEN (10,FILE='NET',STATUS='UNKNOWN',FORM='UNFORMATTED') NETWW=0 WRITE (10) NETWW OPEN (21,FILE='ZHENG CHG',STATUS='UNKNOWN',FORM='UNFORMATTED') A=) ' B=0.0 WRITE (21) A WRITE (21) A,B