CMDK CPDUCTM
      PARAMETER (CPDUCTM=.113)
CMDK CPAIR
      PARAMETER (CPAIR=.24)
CMDK FTR
      PARAMETER (FTR=459.7)
CMDK MAXNODE
      PARAMETER (MAXNODE=35)
CMDK MAXSECT
      PARAMETER (MAXSECT=34)
CMDK MINHR
      REAL MINHR
      PARAMETER (MINHR=60)
CMDK NHBK
      PARAMETER (NHBK=7)
CMDK NHRO
      PARAMETER (NHRO=32)
CMDK NHRP
      PARAMETER (NHRP=38)
CMDK NIWL
      PARAMETER (NIWL=6+NZN)
CMDK NKONST
      PARAMETER (NKONST=25)
CMDK NLVGRM
      PARAMETER (NLVGRM=2)
CMDK NOUTAV
      PARAMETER (NOUTAV=11)
CMDK NOUTDY
      PARAMETER (NOUTDY=44)
CMDK NQMAX
      PARAMETER (NQMAX=60)
CMDK NRF
      PARAMETER (NRF=8)
CMDK NWL
      PARAMETER (NWL=24)
CMDK NWN
      PARAMETER (NWN=30)
CMDK NWZN
      PARAMETER (NWZN=10)
CMDK NZN
      PARAMETER (NZN=5)
CMDK NZN7
      PARAMETER (NZN7=7+NZN)
CMDK NZW
      PARAMETER (NZW=48)
CMDK RHOAIR
      PARAMETER (RHOAIR=.075)
CMDK SIGMA
      PARAMETER (SIGMA=0.1714E-8)
CMDK ZERO
      PARAMETER (ZERO=0.)
CMDK BTUKWH
      PARAMETER (BTUKWH=3413.)
CMDK ACHBQ
      COMMON /ACHBQ/ ACMB  , ACWSB , ACBB  , ACSB  , ACCNB , NRNAVB
CMDK ACHLQ
      REAL ACML(NZN),ACWSL(NZN),ACBL(NZN),ACSL(NZN),ACCNL(NZN)
      COMMON /ACHLQ/ ACML, ACWSL, ACBL, ACSL, ACCNL, STORY, NRNAVL
CMDK ACND
      COMMON /ACND/ A(3,8), TCEQIP, WMOIST, POW
CMDK AFUE
      COMMON/AFUE/TFON1C,TFON2C,TFSSC,TFFF3C,TFFF4C,TFFF5C,DTRA2C
CMDK BAR
      COMMON /BAR/ BARRAT
CMDK BIDRUN
      CHARACTER*4 IDRUN
      COMMON /BIDRUN/ IDRUN
CMDK BLK10
      COMMON /BLK10/ NRDF1
CMDK BLK52
      COMMON/BLK52/AK(30,30),S(28)
CMDK BLK53
      COMMON/BLK53/HWBG,ZDEPTH,RFIELD,ABASFT,ABWBGT,DZN(28),
     +THFLR,THWAL,RHSOIL,CPSOIL,XKSOIL,IGINIT
CMDK BLK55
      COMMON/BLK55/TEAV,TEAMP,PHASE,ZNODE,ALFZ
CMDK BLK57
      COMMON/BLK57/ZN(28)
CMDK BLK81
      COMMON/BLK81/ZASV,TIMEON,TIMEOF,TCYCON
CMDK BLK83
      COMMON /BLK83/ TMAFU(6), DTRA3C, DTRA3, DTRA4C, DTRA4,
     +               HAACL(2), CPMACL, HIPL2, ZAJ(3)
CMDK BLK85
      COMMON/BLK85/TRETI,DTBLR,EFFSSA,QUSEFL,QINPUT
CMDK BLK87
      COMMON/BLK87/QMHX(3),QACL,QMPL,QMSV(5),QMJ
CMDK BLK89
      COMMON/BLK89/QIPL
CMDK BLKBSF
      COMMON/BLKBSF/QCSURFS(NZW),TBASM,NTBASM      
CMDK BLKCM1
      COMMON /BLKCM1/ AAIR, AS, BAIR, BS, CAIR, CS, DAIR, DS,
     +                ENAIR, ENINF, FB, FN(13), FNO(13), HFACT,
     +                HFACTA, WFUEL, WNF, WSA, WSTO
CMDK BLKCM2
      COMMON /BLKCM2/ EXCESS, FUELCM, SGFUEL, TAIN, TCOMB, TWBI,
     +                XF(13)
CMDK BLKFMI
      COMMON/BLKFMI/RHOFM,CPFM,THKFM(NZN),XMFM(NZN)
CMDK BLKFMT
      COMMON/BLKFMT/QCFMQ(NZN),TFM(NZN)
CMDK BLKGS1
      COMMON /BLKGS1/ APLEN, CPMPL, HIPL1, HOPL1, RHOMPL
CMDK BLKGS2
      COMMON /BLKGS2/ CFM(2), CPWAIR, PUMPW, PUMPWP, PHI,
     +                PHIINF, TA2, TPL, TRETP, TVENTI, WAIRB,
     +                WAIRF(2), WAIRN, WBAS, WGMIN, XV(20), NCELLS
CMDK BLKHWG
      COMMON /BLKHWG/ IHWBG
CMDK BLKHX
      COMMON/BLKHX/WGTHX,UAHXON,UAHXOF,TCMOF1,TCMOF2,
     +WAON,WAOF,IEFNHX
CMDK BLKICL
      COMMON /BLKICL/ ICOL
CMDK BLKMMU
      COMMON /BLKMMU/ TIMUU
CMDK BLKOIL
      COMMON /BLKOIL/ AC, ALPHG, AM, CC, DC, EMISC, EMISM, EMISSG,
     +                HI, RHOC, SOOT, THETA, THET1, XM
CMDK BLKQGS
      COMMON /BLKQGS/ QDRAFT, QEXT, QJACK, QPILOT, QPILOP, QPLEN,
     +                QVENTA, QVENTB, QVNTLS
CMDK BLKQHX
      COMMON/BLKQHX/QIN,DTIMQ,TCYCQ,ITFL,NINTGF
CMDK BLKQS
      COMMON /BLKQS/ QCSURF(NZW),QRMRT(NZW),QCEIL(2),QROOF(2),
     +               QLOSWL(NZN),QLOSFL(NZN),QRFSUM(2),QRADRF
CMDK BLKQSM
      COMMON /BLKQSM/QSUMS(3,60),TOTALS(20)
CMDK BLKRAD
      COMMON /BLKRAD/RADINT,RADSFL,RADSOL      
CMDK BLKSK
      COMMON/BLKSK/TMFLT(30),TFLT(30),NFLT
CMDK BLKSV
      INTEGER FLOC(NZN7), NDAYTOT(12)
      REAL TIS(NZN), ACMAX(NZN), ACMIN(NZN), ODHUM(25)
      COMMON /BLKSV/ ACMAX, ACMIN, CFSC, COMFTS, 
     +               DTIM1, DTIM1N, DTIM2, EXCEST, FLOC, FUELCS,
     +               HDUM, HICS, HIFS, HIWS,
     +               ODHUM, RDUM, RELHMI, RODB, SOLRHM,
     +               TIS, TODDBM, TS, VBMAX,
     +               VBMIN, WGMINS, WSC, WSPEDM, XSSV,
     +               ICL1, IDAYM, IDBG, IFWL, ILINES, IMONTH,
     +               IWR, IWRB,NDAYTOT,NZONG
CMDK BLKTM2
      DOUBLE PRECISION TINDEX,TIMEOY
      COMMON /BLKTM2/ TINDEX,TIMEOY,JULDAY
CMDK BLKTS1
      COMMON /BLKTS1/ TSSH1
CMDK BLKTST
      COMMON/BLKTST/IACNZ(NZN),IBURNNZ(NZN),TAH1N(NZN),TAH2N(NZN)
CMDK BLKTVD
      COMMON/BLKTVD/POPEN,PCLOSE,RCLOSE,ROPEN,TCYCVD,VHLTVD,IBRNVD
CMDK BLSTBK
      COMMON /BLSTBK/ STBAKT(NZN)
CMDK CARDUCT
      COMMON/CARDUCT/
     +CONS1 ,CONS2 ,CONS3 ,CONS4 ,CONS5 ,CONS6 ,CONS7 ,CONS8 ,
     +CONS1B,CONS2B,CONS3B,CONS4B,CONS5B,CONS6B,CONS7B,CONS8B,
     +CONS9C,CONS9H,CONS9S,CONS9T, CONS10(4),CONS11(4),CONS14(4),
     +SUPCN(4),SUPCNB(4),RETCN(4),RETCNB(4)
CMDK CITINF
      COMMON /CITINF/ DNLAT,DLONG,CLEAR
CMDK CNSTRK
      COMMON /CNSTRK/ WK(3,NKONST), WX(3,NKONST),
     +                WRHO(3,NKONST), WCP(3,NKONST),
     +                IFXL(4,NKONST), NCONS, NLMP(NKONST)
CMDK COLCT
      COMMON /COLCT/ TAHX, TJ, TAAC, TMAC, TMPL, TMSV(3), TJSV,
     +               TMACSV, TMPLSV, TMV(5), FANTOF
CMDK COLLEC
      COMMON /COLLEC/ CTIME(4), CDATA(64), ICOLL
CMDK DEBG
      COMMON/DEBG/NDEBUG
CMDK DTRQ
      COMMON /DTRQ/ DTRPL, EMISPL, DTRA, IRGSF
CMDK DUCTSC
      CHARACTER*10 SUPDTYP,RETDTYP
      COMMON /DUCTSC/ RETDTYP,SUPDTYP
CMDK DUCTS1
      REAL QDUCTZ(7+NZN), TZONE(7+NZN), WDUCTZ(7+NZN), QNET(NZN)
      COMMON/DUCTS1/QDUCTZ, QLEAK, QNET, TZONE, WDUCTZ
CMDK DUCTS2
      REAL QDCTBA(NZN),RWSDCT(NZN),CFHIZ(10)
      COMMON /DUCTS2/ QDCTBA,RWSDCT,CFHIZ,NCFHIZ
CMDK DUCTS3
      REAL PCTF(MAXSECT),PCTFD(MAXSECT)
      INTEGER ISECT(MAXSECT), IZNSUP(MAXSECT)
      COMMON /DUCTS3/ PCTF, PCTFD, ISECT, IZNSUP, NSECT
CMDK DUCTS4
      COMMON /DUCTS4/ ARET, ASUP, FRDIB, FSDIB, HAD, HOD, PEDLO,
     +                PRETL, PSUPL, WRET, WSUP, IBRP
CMDK DUCTS5
      COMMON /DUCTS5/ HROT(3,24),HPRT(3,24)
CMDK EBALA
      COMMON /EBALA/ EBAL(NZN),EBALT(NZN),TMEBLS
CMDK EFUR
      COMMON /EFUR/ TMON(4),TMOF(3),XKWON(5),XKWOF(4),WACP
CMDK ENCBLK
      COMMON /ENCBLK/ CLHT(NZN), HGTA(NZW), XLENA(NZW), WDLEAK(NZW),
     +                HGTLEAK(NZW), HNPL(NZW), WALLFI(NZW), WALLFO(NZW),
     +                EPSLR(NZW), OHANGA(NZW), HHANGA(NZW),
     +                KONSTA(NZW), NLEAKS, IZWLEAK(NZW), NWNDA(NZW)
CMDK ENCBK1
      COMMON /ENCBK1/ NROOMS, NRMA(NZN), NWALLA(NZN), NENC(NZN,NWL),
     +                IDEXP(NZW), NZNC(NZW)
CMDK ENCBK2
      COMMON /ENCBK2/ ABASF(2), NZNBAS
CMDK FANBLK
      REAL EFANCC(4)
      COMMON /FANBLK/ ECFC1S,ECFH1S,EFANC,EFANCC,EFANPH,EFANPC,
     +                EFSC,EFSH,U45
CMDK FLWSIZ
      REAL CFHZB1(10),CFHZB2(10),CFHZB3(10),CFHZB4(10)
      COMMON /FLWSIZ/ CFHZB1,CFHZB2,CFHZB3,CFHZB4,ICFIZB
CMDK FUEL1
      COMMON /FUEL1/ QVSLOS, QVLLOS, IQEXT, ISAVE
CMDK GASFC
      COMMON /GASFC/ ADIL, AFCL, AHX(10), AIN, AJ, AOUT, BHX, CJ, CPM,
     +               CPMV(6), D(10), DCELL, DGAPHT, DH2O, DVENT,
     +               EMIS(6), HRAD(10), PRTLD, QHINPT, RHOJ, RHOMT,
     +               RHOMV(6), THG, TIME1, TIME3, TOLDH, WDPOW,
     +               XJ, XL(10), XLH2O, ZA, ZA14, ZAVA,
     +               ZAVB, ZAVH, ZHX, ZHX34, ZKBEND, ZKJ, ZVT,
     +               ICL, IDAMP, IFAN, IH2O, IOIL
CMDK HANDBK
      COMMON /HANDBK/ HBKRNL, HBK(NHBK)
CMDK HILIMB
      COMMON /HILIMB/ IBRNHI      
CMDK HUMIDC
      REAL MWI
      COMMON /HUMIDC/ CFMBP,  DIFFHS, ECFMC1, ECFMC2, ECFMH1, HSTC,
     +                QHUM  , QSP   , QWA   , RECOVC, REDC  , REDH  ,
     +                SETHS , SHCR  , TBF   , TBULK , TB    , TCR   ,
     +                TWI   , TWOUT , WAC   , WA1   , WBULK , WO,
     +                IAIRC2, IHUM  , ITER  , LINES , MWI   
CMDK IBEV
      COMMON /IBEV/ IBPRT,IEVPRT     
CMDK IELCB
      COMMON/IELCB/IELC
CMDK INDIC1
      COMMON /INDIC1/ IAC, IAC1, IBL, IBURN, IDIRCT1, IDIRCT,
     +                IEFAN, IHON, ISHDR, ISKIP
CMDK IRDFQ
      COMMON /IRDFQ/ ROFOM(2), ROFIM(2), KONRF(2)
CMDK ITM
      COMMON/ITM/ITIM
CMDK IWETHR
      COMMON /IWETHR/ ISDAY , IEDAY , INPRT , IPCOOL
CMDK IWLS
      COMMON /IWLS/ IWALS,IDXGAR
CMDK IZPART
      PARAMETER (NIZ= 6*NZN)
      COMMON /IZPART/ IZSET(NZW),KNSTAT(NZN),NIZWS,IZWSS(NIZ),
     +                IZWSV(NIZ),IZWACT(NWL)
CMDK IZWQ
      INTEGER IZWS(4),IZWD(2),IZWE(4)
      COMMON /IZWQ/ IZWC, IZWF, IZWG, IZWH, IZWI, IZWJ, IZWS,IZWD,IZWE
     +              ,IZWK
CMDK IZZQ
      COMMON /IZZQ/ IZT, NIJ, NATC,IFLOC,IBAS,ICRW,IHCOLD
CMDK LDPOUT
      COMMON /LDPOUT/ DATOUT(NIWL,24)
CMDK LPSTRB
      COMMON /LPSTRB/ AIRMSB, FINFB, QCRWVN, QFLBAS, QFLCRW, QGRND,
     +                RHI, RHS, RHSN, TBASN, TCRH, TCRW, TCRWN,
     +                TWRT, TWRTB, TWSP, TWSPB, WBASN
CMDK MRTBLK
      REAL HRI(NZW),QSI(NZW),TMR(NZN)
      COMMON /MRTBLK/ HRI,QSI,TMR
CMDK MZON1
      COMMON /MZON1/ ASLFL(NZN), AWGR(NZN), FRCVNT(NZN),RQINT(NZN),
     +               RWINT(NZN), IRMVNT(NZN), NATVNT, NRMBGW(NZN),
     +               NRMSLB(NZN), NRMVNT
CMDK NCR
      COMMON /NCR/ WROTA, IFXDS(4)
CMDK NIJB
      COMMON /NIJB/ NIJA(NZW)
CMDK OILB
      COMMON /OILB/ AJHX, CONST1, CONSV4, CON23P, CPG(2), CPWG,
     +              DCELLA(3), DPB, DPT, HACON(2), HACWO, HIJOF,
     +              HIJON(2), PODPMB, TA1, TCYCLE, TG1,
     +              TG2, UA, WD, WGO(2), WGT, ZA1, ZA2, ZKA,IBURN1
CMDK OUTPUT
      COMMON /OUTPUT/ HROUT(NHRO,24), HRPRT(NHRP,24), OUTCOM(11,21,3),
     +                OUTDY(8,NOUTDY), SEASUM(NOUTDY)
CMDK OWETHR
      COMMON /OWETHR/ TODAVG, TODDB, WODHUM, WSPED, TGARAG, TPCOOL
CMDK PRT1
      COMMON /PRT1/ TFLUE, TRAREF, BARPSI
CMDK QACCMQ
      LOGICAL PLOADS
      COMMON /QACCMQ/ PLOADS, IPL1(10), IPL2(10), I33T36
CMDK QIZNB
      COMMON /QIZNB/ QIZN(NZN),QIZONS(NZN)
CMDK QUAYCH
      CHARACTER*4 ICITY, IDES (15), INAME (2), JCITY, NAME (200)
      CHARACTER*4 STM
      CHARACTER*5 CMONTH(12)
      COMMON /QUAYCH/ STM, CMONTH, NAME, ICITY, IDES, INAME, JCITY 
CMDK QUAYLE
      INTEGER IFW (5), MONTH(12)
      REAL  AVGES (5, 24), H2ON (24), ODDB(25), QINTL(25), REST(8)
      REAL  VENATC(2), TENCLO(12), TSOILF(12), TSOILW(12)
      REAL  WINTL (25), WSPEED (25)
      DOUBLE PRECISION WT(24)
      COMMON /QUAYLE/ WT, AFTG1 , ALT2  , AVGES , AWTG2 , BFTG1 ,
     +                BWTG2 , CFANPC, CMFANP, DCTFLR, DEGRAD, DST   ,
     +                EATTC1, EATTC2, FAROOF, FAWLOD, H2ON  , HACDN ,
     +                HACUP , HIRDN , HIRUP , HRDY  , ODDB  , ODWB  ,
     +                QINTL , REST  , SRCEAB, TBASI , TENCLO,
     +                TOFFSET,TSOILF, TSOILW, VENATC, VENBAS, VENCRW,
     +                WINTL , WSHADE, WSPEED, 
     +                IAPRT , ICC   , ICITRD, ICOMF ,
     +                IDAYMN, IFW   , IGARAGT,IMEAN , IQPRT , 
     +                ISKY  , IWAT  , IWATER, KDY   , KHR   , KMO   ,
     +                MONTH , NDAYM , NDPRE , NDYRI , NINC  , NMONTH, 
     +                NOSUN , NREP  , NSEQG , NSEQW , NSUBDV, NSUBR 
CMDK ROOF
      REAL IDR,IDIFR
      COMMON /ROOF/ SECTAA(NRF),PAA(NRF),ROOFI(NRF),
     +              ROOFO(NRF),EPRSLR(NRF),IDR(NRF),IDIFR(NRF),
     +              NSECTA,IDEXPR(NRF),NATTC(NRF),KONSTR(NRF)
CMDK SHDF
C  NOTE: 3RD DIMENSION OF 1 IN SHDFCT RESERVES A LOCATION FOR ZONE NO.
C        (1-5). IT SHOULD BE REPLACED WITH NZN IF SHADING IS SPLIT OUT
C        TO WALLS IN EACH ZONE LATER.  IT IS 1 NOW TO MINIMIZE MEMORY
C        AND BECAUSE THE SHADING ANALYSIS HASNT BEEN UPDATED TO COMPUTE
C        MULTIZONE SHADING FACTORS.
      COMMON /SHDF/ SHDFCT(3,3,1,24)
CMDK SIMA
      COMMON /SIMA/ REFLG(12),SOLARH(25)
CMDK SOILB
      COMMON /SOILB/ TG(30),TSOIL(11),QBWBG(4),QBASF(2),CONDWL(6),IGRND
CMDK SOLARB
      COMMON /SOLARB/ SOLAR(25,NIWL),DSOLAR(25,NIWL),SOLARL(NIWL)
CMDK STRUCA
      INTEGER NDRA (20, 4)
      REAL ATCVOL(2), DHGTA (20, 4, 2), DWDTHA (20, 4, 2), FLRAA(20)
      REAL ROMVOL(NZN)
      COMMON /STRUCA/ ATCVOL, DHGTA, DWDTHA, FLRAA, HAC, HIBLWR,
     +               HIC, HIG, HIR, HIW, H1F, H3B, H3F, H3FB,
     +               ROMVOL, USLFL, UWGR, UWIND, VOLCRW, NDRA
CMDK SURFAR
      COMMON /SURFAR/ AWALLA(NZW), AWAWA(NWN), AWAWT(NZN), RAREA(2)
     +               ,AFLRT(NZN), ACEIL(2)
CMDK TCNBLK
      COMMON /TCNBLK/ TCON(8,NKONST)
CMDK TCONCB
      COMMON /TCONCB/ KONI(NKONST), NKSTAB, KONSTB(5), NRATTM(5)
CMDK TEMP1
      COMMON /TEMP1/ TATTC(2), TI(NZN)
CMDK TEMPB
      COMMON /TEMPB/ TMP(4,NZW), TMPN(4,NZW), TODAG1, TODAG2,
     +               TA(NZN), TATTA(2), TBASA, TCRWA
CMDK TIMEB
      COMMON /TIMEB/ TIME, DTIME, IT, IDEBUG
CMDK TSTATC
      COMMON /TSTATC/ MODE,KM,MONCS,MONCE,MONHS,MONHE,ITHERM,IMODE
CMDK TSTB2
      INTEGER IACZ(NZN),IBRN(NZN)
      REAL TWSTAT(NZN)
      COMMON /TSTB2/ TWSTAT, IACZ, IBRN
CMDK TSTB3
      COMMON /TSTB3/ IACN,IBURNN
CMDK TSTB4
      INTEGER ICTRLZ(NZN), IDUMPZ(NZN)
      COMMON /TSTB4/ ICTRLZ,IDUMPZ
CMDK TYRGND
      COMMON /TYRGND/ TIMEYR, NMNPRE, NDHRS
CMDK UABAS
      COMMON /UABAS/ UBASF,UBWBG,DDWKL(6),ICODE,NTGHR
CMDK WIBLK
      COMMON /WIBLK/ WI(NZN)
CMDK WNDBLK
      COMMON /WNDBLK/ WHGTA(NWN),WWDTHA(NWN),REVELA(NWN),
     +                OHNGHA(NWN),SFSDA(NWN),NIWND(NZW,NWZN)
