home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / h / house_ii.zip / FOR / CMDKS.FOR < prev    next >
Text File  |  1992-05-11  |  14KB  |  379 lines
  1. CMDK CPDUCTM
  2.       PARAMETER (CPDUCTM=.113)
  3. CMDK CPAIR
  4.       PARAMETER (CPAIR=.24)
  5. CMDK FTR
  6.       PARAMETER (FTR=459.7)
  7. CMDK MAXNODE
  8.       PARAMETER (MAXNODE=35)
  9. CMDK MAXSECT
  10.       PARAMETER (MAXSECT=34)
  11. CMDK MINHR
  12.       REAL MINHR
  13.       PARAMETER (MINHR=60)
  14. CMDK NHBK
  15.       PARAMETER (NHBK=7)
  16. CMDK NHRO
  17.       PARAMETER (NHRO=32)
  18. CMDK NHRP
  19.       PARAMETER (NHRP=38)
  20. CMDK NIWL
  21.       PARAMETER (NIWL=6+NZN)
  22. CMDK NKONST
  23.       PARAMETER (NKONST=25)
  24. CMDK NLVGRM
  25.       PARAMETER (NLVGRM=2)
  26. CMDK NOUTAV
  27.       PARAMETER (NOUTAV=11)
  28. CMDK NOUTDY
  29.       PARAMETER (NOUTDY=44)
  30. CMDK NQMAX
  31.       PARAMETER (NQMAX=60)
  32. CMDK NRF
  33.       PARAMETER (NRF=8)
  34. CMDK NWL
  35.       PARAMETER (NWL=24)
  36. CMDK NWN
  37.       PARAMETER (NWN=30)
  38. CMDK NWZN
  39.       PARAMETER (NWZN=10)
  40. CMDK NZN
  41.       PARAMETER (NZN=5)
  42. CMDK NZN7
  43.       PARAMETER (NZN7=7+NZN)
  44. CMDK NZW
  45.       PARAMETER (NZW=48)
  46. CMDK RHOAIR
  47.       PARAMETER (RHOAIR=.075)
  48. CMDK SIGMA
  49.       PARAMETER (SIGMA=0.1714E-8)
  50. CMDK ZERO
  51.       PARAMETER (ZERO=0.)
  52. CMDK BTUKWH
  53.       PARAMETER (BTUKWH=3413.)
  54. CMDK ACHBQ
  55.       COMMON /ACHBQ/ ACMB  , ACWSB , ACBB  , ACSB  , ACCNB , NRNAVB
  56. CMDK ACHLQ
  57.       REAL ACML(NZN),ACWSL(NZN),ACBL(NZN),ACSL(NZN),ACCNL(NZN)
  58.       COMMON /ACHLQ/ ACML, ACWSL, ACBL, ACSL, ACCNL, STORY, NRNAVL
  59. CMDK ACND
  60.       COMMON /ACND/ A(3,8), TCEQIP, WMOIST, POW
  61. CMDK AFUE
  62.       COMMON/AFUE/TFON1C,TFON2C,TFSSC,TFFF3C,TFFF4C,TFFF5C,DTRA2C
  63. CMDK BAR
  64.       COMMON /BAR/ BARRAT
  65. CMDK BIDRUN
  66.       CHARACTER*4 IDRUN
  67.       COMMON /BIDRUN/ IDRUN
  68. CMDK BLK10
  69.       COMMON /BLK10/ NRDF1
  70. CMDK BLK52
  71.       COMMON/BLK52/AK(30,30),S(28)
  72. CMDK BLK53
  73.       COMMON/BLK53/HWBG,ZDEPTH,RFIELD,ABASFT,ABWBGT,DZN(28),
  74.      +THFLR,THWAL,RHSOIL,CPSOIL,XKSOIL,IGINIT
  75. CMDK BLK55
  76.       COMMON/BLK55/TEAV,TEAMP,PHASE,ZNODE,ALFZ
  77. CMDK BLK57
  78.       COMMON/BLK57/ZN(28)
  79. CMDK BLK81
  80.       COMMON/BLK81/ZASV,TIMEON,TIMEOF,TCYCON
  81. CMDK BLK83
  82.       COMMON /BLK83/ TMAFU(6), DTRA3C, DTRA3, DTRA4C, DTRA4,
  83.      +               HAACL(2), CPMACL, HIPL2, ZAJ(3)
  84. CMDK BLK85
  85.       COMMON/BLK85/TRETI,DTBLR,EFFSSA,QUSEFL,QINPUT
  86. CMDK BLK87
  87.       COMMON/BLK87/QMHX(3),QACL,QMPL,QMSV(5),QMJ
  88. CMDK BLK89
  89.       COMMON/BLK89/QIPL
  90. CMDK BLKBSF
  91.       COMMON/BLKBSF/QCSURFS(NZW),TBASM,NTBASM      
  92. CMDK BLKCM1
  93.       COMMON /BLKCM1/ AAIR, AS, BAIR, BS, CAIR, CS, DAIR, DS,
  94.      +                ENAIR, ENINF, FB, FN(13), FNO(13), HFACT,
  95.      +                HFACTA, WFUEL, WNF, WSA, WSTO
  96. CMDK BLKCM2
  97.       COMMON /BLKCM2/ EXCESS, FUELCM, SGFUEL, TAIN, TCOMB, TWBI,
  98.      +                XF(13)
  99. CMDK BLKFMI
  100.       COMMON/BLKFMI/RHOFM,CPFM,THKFM(NZN),XMFM(NZN)
  101. CMDK BLKFMT
  102.       COMMON/BLKFMT/QCFMQ(NZN),TFM(NZN)
  103. CMDK BLKGS1
  104.       COMMON /BLKGS1/ APLEN, CPMPL, HIPL1, HOPL1, RHOMPL
  105. CMDK BLKGS2
  106.       COMMON /BLKGS2/ CFM(2), CPWAIR, PUMPW, PUMPWP, PHI,
  107.      +                PHIINF, TA2, TPL, TRETP, TVENTI, WAIRB,
  108.      +                WAIRF(2), WAIRN, WBAS, WGMIN, XV(20), NCELLS
  109. CMDK BLKHWG
  110.       COMMON /BLKHWG/ IHWBG
  111. CMDK BLKHX
  112.       COMMON/BLKHX/WGTHX,UAHXON,UAHXOF,TCMOF1,TCMOF2,
  113.      +WAON,WAOF,IEFNHX
  114. CMDK BLKICL
  115.       COMMON /BLKICL/ ICOL
  116. CMDK BLKMMU
  117.       COMMON /BLKMMU/ TIMUU
  118. CMDK BLKOIL
  119.       COMMON /BLKOIL/ AC, ALPHG, AM, CC, DC, EMISC, EMISM, EMISSG,
  120.      +                HI, RHOC, SOOT, THETA, THET1, XM
  121. CMDK BLKQGS
  122.       COMMON /BLKQGS/ QDRAFT, QEXT, QJACK, QPILOT, QPILOP, QPLEN,
  123.      +                QVENTA, QVENTB, QVNTLS
  124. CMDK BLKQHX
  125.       COMMON/BLKQHX/QIN,DTIMQ,TCYCQ,ITFL,NINTGF
  126. CMDK BLKQS
  127.       COMMON /BLKQS/ QCSURF(NZW),QRMRT(NZW),QCEIL(2),QROOF(2),
  128.      +               QLOSWL(NZN),QLOSFL(NZN),QRFSUM(2),QRADRF
  129. CMDK BLKQSM
  130.       COMMON /BLKQSM/QSUMS(3,60),TOTALS(20)
  131. CMDK BLKRAD
  132.       COMMON /BLKRAD/RADINT,RADSFL,RADSOL      
  133. CMDK BLKSK
  134.       COMMON/BLKSK/TMFLT(30),TFLT(30),NFLT
  135. CMDK BLKSV
  136.       INTEGER FLOC(NZN7), NDAYTOT(12)
  137.       REAL TIS(NZN), ACMAX(NZN), ACMIN(NZN), ODHUM(25)
  138.       COMMON /BLKSV/ ACMAX, ACMIN, CFSC, COMFTS, 
  139.      +               DTIM1, DTIM1N, DTIM2, EXCEST, FLOC, FUELCS,
  140.      +               HDUM, HICS, HIFS, HIWS,
  141.      +               ODHUM, RDUM, RELHMI, RODB, SOLRHM,
  142.      +               TIS, TODDBM, TS, VBMAX,
  143.      +               VBMIN, WGMINS, WSC, WSPEDM, XSSV,
  144.      +               ICL1, IDAYM, IDBG, IFWL, ILINES, IMONTH,
  145.      +               IWR, IWRB,NDAYTOT,NZONG
  146. CMDK BLKTM2
  147.       DOUBLE PRECISION TINDEX,TIMEOY
  148.       COMMON /BLKTM2/ TINDEX,TIMEOY,JULDAY
  149. CMDK BLKTS1
  150.       COMMON /BLKTS1/ TSSH1
  151. CMDK BLKTST
  152.       COMMON/BLKTST/IACNZ(NZN),IBURNNZ(NZN),TAH1N(NZN),TAH2N(NZN)
  153. CMDK BLKTVD
  154.       COMMON/BLKTVD/POPEN,PCLOSE,RCLOSE,ROPEN,TCYCVD,VHLTVD,IBRNVD
  155. CMDK BLSTBK
  156.       COMMON /BLSTBK/ STBAKT(NZN)
  157. CMDK CARDUCT
  158.       COMMON/CARDUCT/
  159.      +CONS1 ,CONS2 ,CONS3 ,CONS4 ,CONS5 ,CONS6 ,CONS7 ,CONS8 ,
  160.      +CONS1B,CONS2B,CONS3B,CONS4B,CONS5B,CONS6B,CONS7B,CONS8B,
  161.      +CONS9C,CONS9H,CONS9S,CONS9T, CONS10(4),CONS11(4),CONS14(4),
  162.      +SUPCN(4),SUPCNB(4),RETCN(4),RETCNB(4)
  163. CMDK CITINF
  164.       COMMON /CITINF/ DNLAT,DLONG,CLEAR
  165. CMDK CNSTRK
  166.       COMMON /CNSTRK/ WK(3,NKONST), WX(3,NKONST),
  167.      +                WRHO(3,NKONST), WCP(3,NKONST),
  168.      +                IFXL(4,NKONST), NCONS, NLMP(NKONST)
  169. CMDK COLCT
  170.       COMMON /COLCT/ TAHX, TJ, TAAC, TMAC, TMPL, TMSV(3), TJSV,
  171.      +               TMACSV, TMPLSV, TMV(5), FANTOF
  172. CMDK COLLEC
  173.       COMMON /COLLEC/ CTIME(4), CDATA(64), ICOLL
  174. CMDK DEBG
  175.       COMMON/DEBG/NDEBUG
  176. CMDK DTRQ
  177.       COMMON /DTRQ/ DTRPL, EMISPL, DTRA, IRGSF
  178. CMDK DUCTSC
  179.       CHARACTER*10 SUPDTYP,RETDTYP
  180.       COMMON /DUCTSC/ RETDTYP,SUPDTYP
  181. CMDK DUCTS1
  182.       REAL QDUCTZ(7+NZN), TZONE(7+NZN), WDUCTZ(7+NZN), QNET(NZN)
  183.       COMMON/DUCTS1/QDUCTZ, QLEAK, QNET, TZONE, WDUCTZ
  184. CMDK DUCTS2
  185.       REAL QDCTBA(NZN),RWSDCT(NZN),CFHIZ(10)
  186.       COMMON /DUCTS2/ QDCTBA,RWSDCT,CFHIZ,NCFHIZ
  187. CMDK DUCTS3
  188.       REAL PCTF(MAXSECT),PCTFD(MAXSECT)
  189.       INTEGER ISECT(MAXSECT), IZNSUP(MAXSECT)
  190.       COMMON /DUCTS3/ PCTF, PCTFD, ISECT, IZNSUP, NSECT
  191. CMDK DUCTS4
  192.       COMMON /DUCTS4/ ARET, ASUP, FRDIB, FSDIB, HAD, HOD, PEDLO,
  193.      +                PRETL, PSUPL, WRET, WSUP, IBRP
  194. CMDK DUCTS5
  195.       COMMON /DUCTS5/ HROT(3,24),HPRT(3,24)
  196. CMDK EBALA
  197.       COMMON /EBALA/ EBAL(NZN),EBALT(NZN),TMEBLS
  198. CMDK EFUR
  199.       COMMON /EFUR/ TMON(4),TMOF(3),XKWON(5),XKWOF(4),WACP
  200. CMDK ENCBLK
  201.       COMMON /ENCBLK/ CLHT(NZN), HGTA(NZW), XLENA(NZW), WDLEAK(NZW),
  202.      +                HGTLEAK(NZW), HNPL(NZW), WALLFI(NZW), WALLFO(NZW),
  203.      +                EPSLR(NZW), OHANGA(NZW), HHANGA(NZW),
  204.      +                KONSTA(NZW), NLEAKS, IZWLEAK(NZW), NWNDA(NZW)
  205. CMDK ENCBK1
  206.       COMMON /ENCBK1/ NROOMS, NRMA(NZN), NWALLA(NZN), NENC(NZN,NWL),
  207.      +                IDEXP(NZW), NZNC(NZW)
  208. CMDK ENCBK2
  209.       COMMON /ENCBK2/ ABASF(2), NZNBAS
  210. CMDK FANBLK
  211.       REAL EFANCC(4)
  212.       COMMON /FANBLK/ ECFC1S,ECFH1S,EFANC,EFANCC,EFANPH,EFANPC,
  213.      +                EFSC,EFSH,U45
  214. CMDK FLWSIZ
  215.       REAL CFHZB1(10),CFHZB2(10),CFHZB3(10),CFHZB4(10)
  216.       COMMON /FLWSIZ/ CFHZB1,CFHZB2,CFHZB3,CFHZB4,ICFIZB
  217. CMDK FUEL1
  218.       COMMON /FUEL1/ QVSLOS, QVLLOS, IQEXT, ISAVE
  219. CMDK GASFC
  220.       COMMON /GASFC/ ADIL, AFCL, AHX(10), AIN, AJ, AOUT, BHX, CJ, CPM,
  221.      +               CPMV(6), D(10), DCELL, DGAPHT, DH2O, DVENT,
  222.      +               EMIS(6), HRAD(10), PRTLD, QHINPT, RHOJ, RHOMT,
  223.      +               RHOMV(6), THG, TIME1, TIME3, TOLDH, WDPOW,
  224.      +               XJ, XL(10), XLH2O, ZA, ZA14, ZAVA,
  225.      +               ZAVB, ZAVH, ZHX, ZHX34, ZKBEND, ZKJ, ZVT,
  226.      +               ICL, IDAMP, IFAN, IH2O, IOIL
  227. CMDK HANDBK
  228.       COMMON /HANDBK/ HBKRNL, HBK(NHBK)
  229. CMDK HILIMB
  230.       COMMON /HILIMB/ IBRNHI      
  231. CMDK HUMIDC
  232.       REAL MWI
  233.       COMMON /HUMIDC/ CFMBP,  DIFFHS, ECFMC1, ECFMC2, ECFMH1, HSTC,
  234.      +                QHUM  , QSP   , QWA   , RECOVC, REDC  , REDH  ,
  235.      +                SETHS , SHCR  , TBF   , TBULK , TB    , TCR   ,
  236.      +                TWI   , TWOUT , WAC   , WA1   , WBULK , WO,
  237.      +                IAIRC2, IHUM  , ITER  , LINES , MWI   
  238. CMDK IBEV
  239.       COMMON /IBEV/ IBPRT,IEVPRT     
  240. CMDK IELCB
  241.       COMMON/IELCB/IELC
  242. CMDK INDIC1
  243.       COMMON /INDIC1/ IAC, IAC1, IBL, IBURN, IDIRCT1, IDIRCT,
  244.      +                IEFAN, IHON, ISHDR, ISKIP
  245. CMDK IRDFQ
  246.       COMMON /IRDFQ/ ROFOM(2), ROFIM(2), KONRF(2)
  247. CMDK ITM
  248.       COMMON/ITM/ITIM
  249. CMDK IWETHR
  250.       COMMON /IWETHR/ ISDAY , IEDAY , INPRT , IPCOOL
  251. CMDK IWLS
  252.       COMMON /IWLS/ IWALS,IDXGAR
  253. CMDK IZPART
  254.       PARAMETER (NIZ= 6*NZN)
  255.       COMMON /IZPART/ IZSET(NZW),KNSTAT(NZN),NIZWS,IZWSS(NIZ),
  256.      +                IZWSV(NIZ),IZWACT(NWL)
  257. CMDK IZWQ
  258.       INTEGER IZWS(4),IZWD(2),IZWE(4)
  259.       COMMON /IZWQ/ IZWC, IZWF, IZWG, IZWH, IZWI, IZWJ, IZWS,IZWD,IZWE
  260.      +              ,IZWK
  261. CMDK IZZQ
  262.       COMMON /IZZQ/ IZT, NIJ, NATC,IFLOC,IBAS,ICRW,IHCOLD
  263. CMDK LDPOUT
  264.       COMMON /LDPOUT/ DATOUT(NIWL,24)
  265. CMDK LPSTRB
  266.       COMMON /LPSTRB/ AIRMSB, FINFB, QCRWVN, QFLBAS, QFLCRW, QGRND,
  267.      +                RHI, RHS, RHSN, TBASN, TCRH, TCRW, TCRWN,
  268.      +                TWRT, TWRTB, TWSP, TWSPB, WBASN
  269. CMDK MRTBLK
  270.       REAL HRI(NZW),QSI(NZW),TMR(NZN)
  271.       COMMON /MRTBLK/ HRI,QSI,TMR
  272. CMDK MZON1
  273.       COMMON /MZON1/ ASLFL(NZN), AWGR(NZN), FRCVNT(NZN),RQINT(NZN),
  274.      +               RWINT(NZN), IRMVNT(NZN), NATVNT, NRMBGW(NZN),
  275.      +               NRMSLB(NZN), NRMVNT
  276. CMDK NCR
  277.       COMMON /NCR/ WROTA, IFXDS(4)
  278. CMDK NIJB
  279.       COMMON /NIJB/ NIJA(NZW)
  280. CMDK OILB
  281.       COMMON /OILB/ AJHX, CONST1, CONSV4, CON23P, CPG(2), CPWG,
  282.      +              DCELLA(3), DPB, DPT, HACON(2), HACWO, HIJOF,
  283.      +              HIJON(2), PODPMB, TA1, TCYCLE, TG1,
  284.      +              TG2, UA, WD, WGO(2), WGT, ZA1, ZA2, ZKA,IBURN1
  285. CMDK OUTPUT
  286.       COMMON /OUTPUT/ HROUT(NHRO,24), HRPRT(NHRP,24), OUTCOM(11,21,3),
  287.      +                OUTDY(8,NOUTDY), SEASUM(NOUTDY)
  288. CMDK OWETHR
  289.       COMMON /OWETHR/ TODAVG, TODDB, WODHUM, WSPED, TGARAG, TPCOOL
  290. CMDK PRT1
  291.       COMMON /PRT1/ TFLUE, TRAREF, BARPSI
  292. CMDK QACCMQ
  293.       LOGICAL PLOADS
  294.       COMMON /QACCMQ/ PLOADS, IPL1(10), IPL2(10), I33T36
  295. CMDK QIZNB
  296.       COMMON /QIZNB/ QIZN(NZN),QIZONS(NZN)
  297. CMDK QUAYCH
  298.       CHARACTER*4 ICITY, IDES (15), INAME (2), JCITY, NAME (200)
  299.       CHARACTER*4 STM
  300.       CHARACTER*5 CMONTH(12)
  301.       COMMON /QUAYCH/ STM, CMONTH, NAME, ICITY, IDES, INAME, JCITY 
  302. CMDK QUAYLE
  303.       INTEGER IFW (5), MONTH(12)
  304.       REAL  AVGES (5, 24), H2ON (24), ODDB(25), QINTL(25), REST(8)
  305.       REAL  VENATC(2), TENCLO(12), TSOILF(12), TSOILW(12)
  306.       REAL  WINTL (25), WSPEED (25)
  307.       DOUBLE PRECISION WT(24)
  308.       COMMON /QUAYLE/ WT, AFTG1 , ALT2  , AVGES , AWTG2 , BFTG1 ,
  309.      +                BWTG2 , CFANPC, CMFANP, DCTFLR, DEGRAD, DST   ,
  310.      +                EATTC1, EATTC2, FAROOF, FAWLOD, H2ON  , HACDN ,
  311.      +                HACUP , HIRDN , HIRUP , HRDY  , ODDB  , ODWB  ,
  312.      +                QINTL , REST  , SRCEAB, TBASI , TENCLO,
  313.      +                TOFFSET,TSOILF, TSOILW, VENATC, VENBAS, VENCRW,
  314.      +                WINTL , WSHADE, WSPEED, 
  315.      +                IAPRT , ICC   , ICITRD, ICOMF ,
  316.      +                IDAYMN, IFW   , IGARAGT,IMEAN , IQPRT , 
  317.      +                ISKY  , IWAT  , IWATER, KDY   , KHR   , KMO   ,
  318.      +                MONTH , NDAYM , NDPRE , NDYRI , NINC  , NMONTH, 
  319.      +                NOSUN , NREP  , NSEQG , NSEQW , NSUBDV, NSUBR 
  320. CMDK ROOF
  321.       REAL IDR,IDIFR
  322.       COMMON /ROOF/ SECTAA(NRF),PAA(NRF),ROOFI(NRF),
  323.      +              ROOFO(NRF),EPRSLR(NRF),IDR(NRF),IDIFR(NRF),
  324.      +              NSECTA,IDEXPR(NRF),NATTC(NRF),KONSTR(NRF)
  325. CMDK SHDF
  326. C  NOTE: 3RD DIMENSION OF 1 IN SHDFCT RESERVES A LOCATION FOR ZONE NO.
  327. C        (1-5). IT SHOULD BE REPLACED WITH NZN IF SHADING IS SPLIT OUT
  328. C        TO WALLS IN EACH ZONE LATER.  IT IS 1 NOW TO MINIMIZE MEMORY
  329. C        AND BECAUSE THE SHADING ANALYSIS HASNT BEEN UPDATED TO COMPUTE
  330. C        MULTIZONE SHADING FACTORS.
  331.       COMMON /SHDF/ SHDFCT(3,3,1,24)
  332. CMDK SIMA
  333.       COMMON /SIMA/ REFLG(12),SOLARH(25)
  334. CMDK SOILB
  335.       COMMON /SOILB/ TG(30),TSOIL(11),QBWBG(4),QBASF(2),CONDWL(6),IGRND
  336. CMDK SOLARB
  337.       COMMON /SOLARB/ SOLAR(25,NIWL),DSOLAR(25,NIWL),SOLARL(NIWL)
  338. CMDK STRUCA
  339.       INTEGER NDRA (20, 4)
  340.       REAL ATCVOL(2), DHGTA (20, 4, 2), DWDTHA (20, 4, 2), FLRAA(20)
  341.       REAL ROMVOL(NZN)
  342.       COMMON /STRUCA/ ATCVOL, DHGTA, DWDTHA, FLRAA, HAC, HIBLWR,
  343.      +               HIC, HIG, HIR, HIW, H1F, H3B, H3F, H3FB,
  344.      +               ROMVOL, USLFL, UWGR, UWIND, VOLCRW, NDRA
  345. CMDK SURFAR
  346.       COMMON /SURFAR/ AWALLA(NZW), AWAWA(NWN), AWAWT(NZN), RAREA(2)
  347.      +               ,AFLRT(NZN), ACEIL(2)
  348. CMDK TCNBLK
  349.       COMMON /TCNBLK/ TCON(8,NKONST)
  350. CMDK TCONCB
  351.       COMMON /TCONCB/ KONI(NKONST), NKSTAB, KONSTB(5), NRATTM(5)
  352. CMDK TEMP1
  353.       COMMON /TEMP1/ TATTC(2), TI(NZN)
  354. CMDK TEMPB
  355.       COMMON /TEMPB/ TMP(4,NZW), TMPN(4,NZW), TODAG1, TODAG2,
  356.      +               TA(NZN), TATTA(2), TBASA, TCRWA
  357. CMDK TIMEB
  358.       COMMON /TIMEB/ TIME, DTIME, IT, IDEBUG
  359. CMDK TSTATC
  360.       COMMON /TSTATC/ MODE,KM,MONCS,MONCE,MONHS,MONHE,ITHERM,IMODE
  361. CMDK TSTB2
  362.       INTEGER IACZ(NZN),IBRN(NZN)
  363.       REAL TWSTAT(NZN)
  364.       COMMON /TSTB2/ TWSTAT, IACZ, IBRN
  365. CMDK TSTB3
  366.       COMMON /TSTB3/ IACN,IBURNN
  367. CMDK TSTB4
  368.       INTEGER ICTRLZ(NZN), IDUMPZ(NZN)
  369.       COMMON /TSTB4/ ICTRLZ,IDUMPZ
  370. CMDK TYRGND
  371.       COMMON /TYRGND/ TIMEYR, NMNPRE, NDHRS
  372. CMDK UABAS
  373.       COMMON /UABAS/ UBASF,UBWBG,DDWKL(6),ICODE,NTGHR
  374. CMDK WIBLK
  375.       COMMON /WIBLK/ WI(NZN)
  376. CMDK WNDBLK
  377.       COMMON /WNDBLK/ WHGTA(NWN),WWDTHA(NWN),REVELA(NWN),
  378.      +                OHNGHA(NWN),SFSDA(NWN),NIWND(NZW,NWZN)
  379.