C Notes on common blocks found in ESP-r
C This text file includes a substantial list of the
C data structures found in ESP-r as well as notes on
C the variables included in the common blocks.

C This file is `work in progress` and some data
C structures have not yet been documented. Anyone
C wishing to extend the list should follow the
C following conventions:

C a) common blocks are listed in alphabetical order

C b) each common block is preceeded by a key phrase
C    in the form of `C DOCUMENT XX` where XX is the
C    name of the common block (e.g. the text between
C    the / / marks. The key phrase is a Fortran comment
C    line so this common_list file can, if required be
C    compiled and linked into an ESP-r executable for
C    purposes of syntax checking.

C c) each common block is followed by one or more lines
C    of Fortran comment lines documenting the data
C    structure. Typically, string variables have (12 char)
C    written after the variable name and logical variables
C    have (logical) written after the variable name (and
C    before any notes. This suports the use of `grep` searches.

C d) each key phrase is preceeded by two blank lines
C    (to separate the data structures).

C e) this file should be placed at the top level of the
C    ESP-r source tree (i.e. /usr/esru/Src/esp-r)

C About the documentation of common block variables in
C ESP-r. The general pattern is to document common block
C variables at least one location within the source code.
C For variables held in the model files, the documentation
C is placed in the subroutine that reads the file. This
C common_list file uses notes extracted from the source
C distribution.

C If possible, updates and corrections to common blocks and
C documentation in the source code should also be included
C in this file. 

C DOCUMENT CUBE5
      COMMON/CUBE5/FSTGRP,FSTSUR,LSTSUR,STRTGR


C DOCUMENT PCDDSC
      COMMON/PCDDSC/PCDESC(MAXPC), NPREF(MPCOM)
C pcdesc(80 char)   - Holds description of plant components.
C npref    - Entry number in plant component database.


C DOCUMENT ACT
      COMMON/ACT/ACTCNN(MCNN)
C ACTCNN (logical) true if connection is active for current time step.
C   ACTCNN is required as the mass flow connections through the 
C   CFD domain are defined twice (new connections defined above).


C DOCUMENT AFN
      COMMON/AFN/IAIRN,LAPROB,LAPRES,LAFRES,ICAAS(MCOM)
C IAIRN   - building air flow simulation index (1 = on)
C LAPROB (72 char) - fluid flow model description file.
C LAPRES (72 char) - wind pressure coefficients distribution database.
C LAFRES (72 char) - fluid flow network results file.
C ICAAS   - fluid (= air) flow network node associated with each building 
C           zone. NB fluid flow network and building zones need not be 
C           matched.


C DOCUMENT AFNZN
      COMMON/AFNZN/ZMFN1,ZMFN2
C If ICAAS not known use strings held in zmfn1 zmfn2.
C ZMFN1 (124 char) holds first line of flow node->zone links
C ZMFN2 (124 char) holds second line of flow node->zone links


C DOCUMENT AIM2DEF
      COMMON/AIM2DEF/IAIM2,LAIM2
C IAIM2 set to 1 if AIM-2 infiltration model active.
C LAIM2 (72 char) file holding AIM-2 infiltration model data.

C DOCUMENT ALL
      COMMON/ALL/NI,NJ,NK,NIM1,NJM1,NKM1,NIM2,NJM2,NKM2
C CFD gridding data.
C NKM1 is number of slices H-L ??
C NKM2 is number of slices Z layer ??


C DOCUMENT ANCHORA
      COMMON/ANCHORA/NALOC,ALOC(20),ALOCLBL(20),ALOCTYP(20)
C NALOC = nb of anchors,
C ALOC = substitution attribute used with the the anchor (usually
C   passed from a command to a function which manipulates the anchor.),
C ALOCLBL = user's name for the anchor,
C ALOCTYP = type (SURF|CTRL|LOAD) for the anchor.


C DOCUMENT ANCHORB
      COMMON/ANCHORB/IALOC(20),LSTANCHR(20,60)
C IALOC = nb of links (surfaces, etc.) associated with the anchor,
C lstanchr = links for each anchor


C DOCUMENT BCTL
      COMMON/BCTL/NCF,IBSN(MCF,4),IBAN(MCF,3),NBCDT(MCF),
     &       ibcdv(mcf,mbcdt,2),nbcdp(mcf,mbcdt),tbcps(mcf,mbcdt,mbcdp),
     &       ibctyp(mcf,mbcdt,mbcdp),ibclaw(mcf,mbcdt,mbcdp),
     &       bmiscd(mcf,mbcdt,mbcdp,misc)
C ncf - the number of zone control functions
C iban    - Defines the actuator node associated with any zone control
C           function.
C           iban(?,1)>0  is as ibsn(?,1)>0
C           iban(?,2)=-1 is as ibsn(?,1)=-1
C           iban(?,3)=-2 is as ibsn(?,1)=-2
C           For special case of ibsn(?,1)=-99:
C              iban(?,1)=surface pointer for first construction.
C              iban(?,2)=surface pointer for second construction or zero.
C              iban(?,3)=surface pointer for third construction or zero.
C           with other iban combinations not meaningful.
C nbcdt - the number of control day types for each domain.
C ibcdv - Give the dates of validity (in year day number format)
C         for each day type.
C nbcdp - Give the number of distinct control periods during each
C         day type.   During these periods different control laws 
C         can prevail.
C tbcps - Give the start time for each period.
C ibctyp - Defines the controller type for each building control function
C          for day type, and period:
C          0: senses dry bulb temp; actuates flux.
C          Other controller types not yet active for building side.
C ibclaw - Defines the control law which relates the sensor to
C          the actuator.  A number of control laws are active
C          and these are defined in routines BCTL, PCTL and FCTL.
C bmiscd - Hold data required by the control laws. ?MISCD(?,?,?,1)
C          defines the total number of such items to be read.
C          In the case of thermophysical properties substitution
C          items 3-5 are the MLC indices for each of the 3 surfaces.


C DOCUMENT BCTLNM
      COMMON/BCTLNM/BNAME
C bname (64 char) - a descriptive name for the building control

            
C DOCUMENT BFNGR
      COMMON/BFNGR/CFGSD(MCF,6),IBSNV(MCF,3),BFNGN
C BFNGN (logical) if true read type -6 building sensor sup'y data.


C DOCUMENT BL1
      COMMON/BL1/DMDSDESC,BDMDS
C DMDSDESC (64 char) description of distributed demands.
C BDMDS (72 char) distributed demands file name.


C DOCUMENT BLKSSO
      COMMON/BLKSSO/NBLK(MNZ),INBLK(MNVLS,MNZ),NSSO(MNZ),
     &          INSSO(MNVLS,MNZ)
C Common blocks for blockages and small supply openings.
C NBLK - number of blockages in each domain.


C DOCUMENT BSMTDEF
      COMMON/BSMTDEF/IBSIMP(MCOM),LBSIMP(MCOM)
C IBSIMP - if zero no basesimp description for zone.
C LBSIMP (72 char) basesimp description for zone.


C DOCUMENT BUOYAN
      COMMON/BUOYAN/BUOYA,BOUSSA,TBAR
C BOUYA (logical) true if bouyancy turned on.
C BOUSSA (logical) true if Boussinesq approximation active.
C TBAR Reference T for buoyancy.


C DOCUMENT C1
      COMMON/C1/NCOMP,NCON
C ncomp - number of zones comprising the model to be simulated.
C ncon - number of connections.


C DOCUMENT C10
      COMMON/C10/NPCON,IPC1(MPCON),IPN1(MPCON),IPCT(MPCON),
     &           IPC2(MPCON),IPN2(MPCON),PCONDR(MPCON),PCONSD(MPCON,2)
C NPCON - number of inter-component connections
C IPC1 & IPN1 - component and node numbers defining receiving component
C               (ie defining inlet node)
C IPCT        - plant component inter-connection type where:
C                1 = connected to identical environmental conditions
C                    as the source component;
C                2 = connected to constant and known environmental
C                    conditions (defined by PCONSD(?,1) and PCONSD(?,2));
C                3 = connected to another component (as defined
C                    by IPC2 and IPN2);
C                4 = connected to a building zone (as defined by
C                    PCONSD(?,1)) or ambient conditions (PCONSD(?,1)=0).
C IPC2 & IPN2 - component and node numbers defining the connected comp.
C PCONSD      - Array containing a list of constant data items for the
C               current connection.


C DOCUMENT C11
      COMMON/C11/NCONT,IPCC(MPCOM),INDCP(MPCOM),CNTDAT(MPCOM,3)
C NCONT       - total number of plant component containment conditions
C               NB it is permissible to contain only some subset of the
C               total number of components. Unreferenced components
C               would then have no exchange with their environment
C IPCC        - defines a plant component for containment
C INDCP       - index which dictates the type of containment (as ICT
C               above but read 'component' for 'zone')
C CNTDAT      - environment (or surroundings) data for a plant component
C                if INDCP=0 ; outside air used and CNTDAT(1) used to
C                             indicated the variation from this value
C                if INDCP=1 ; temperature of a specified plant node.
C                             CNTDAT(1) identifies the component, and
C                             CNTDAT(2) the node therein, and CNTDAT(3)
C                             some constant temperature shift. CNTDAT(1)
C                             and CNTDAT(2) both zero is the self con-
C                             tainment case
C                if INDCP=2 ; constant temperature the value of which
C                             is in CNTDAT(1)
C                if INDCP=3 ; temperature of a building zone, where
C                             CNTDAT(1) identifies the zone number,
C                             CNTDAT(2) the surface number ; and
C                             CNTDAT(3) the node number from 'outside'
C                             If CNTDAT(2) and CNTDAT(3) both zero then
C                             zone air temp. used and if CNTDAT(3) zero
C                             use the inside surface node temperature


C DOCUMENT C12PS
      COMMON/C12PS/NPCDAT(MPCOM,9),IPOFS1(MCOEFG),IPOFS2(MCOEFG,MPVAR)
C NPCDAT(*,1) - component code number. Presently this code is only
C               used for reference purpose
C IPOFS1 &  : are held for each network matrix coefficient and
C  IPOFS2     define the row and column positions respectively


C DOCUMENT C13PS
      COMMON/C13PS/NPMCOE,NPNOD,NPMTYP
C NPMCOE is total number of matrix coefficient entries.
C NPNOD is the number of nodes and therefore the number of equations
C in the matrix
C npmtyp - type of matrix required for configuration
C           1 = energy balance only
C           2 = mass balance, single phase
C           3 = mass balance, two phase


C DOCUMENT C14
      COMMON/C14/UGRDTP(12,MGRDP),NGRDP
C NGRDP number of ground temperature profiles
C UGRDTP array of monthly ground temperature profiles.


C DOCUMENT C2
      COMMON/C2/LSNAM,NCCODE(MCOM),LPROJ(MCOM),LGEOM(MCOM),
     &          LSHAD(MCOM),LTHRM(MCOM),INDUTL(MCOM),LUTIL(MCOM)
C lsnam (72 char) - the name of the entire model
C nccode  - zone code (for eventual database reference)


C DOCUMENT C20
      COMMON/C20/NZSUR(MCOM)
C NZSUR is the number of surfaces in each zone.


C DOCUMENT C21
      COMMON/C21/IFCFG,CFGROOT,LCFGF
C IFCFG is the file unit for the model configuration file.
C cfgroot (24 char) root name for the model (used when generating system files).
C LCFGF (72 char) model configuration file name.


C DOCUMENT C22
      COMMON/C22/ICLIM,LCLIM
C ICLIM is the file unit for the climate database.
C LCLIM (72 char) climate file associated with model.


C DOCUMENT C23
      COMMON/C23/IFPNF,LPNF
C IFPNF is the unit for the plant network file.
C LPNF (72 char) plant network file name.


C DOCUMENT C24
      COMMON/C24/IZSTOCN(MCOM,MS)
C IZSTOCN - for each zone:surface a pointer to connection index.


C DOCUMENT C3
      COMMON/C3/IC1(MCON),IE1(MCON),ICT(MCON),IC2(MCON),IE2(MCON)
C ic1 & - zone and surface numbers defining the start
C ie1     point of each connection
C ict   - connection type where:
C         0 ; connection to external conditions
C         1 ; connection to identical environmental conditions
C             as the source zone (OR, relative temp and absolute 
C             radiation can be specified, see below)
C         2 ; connection to constant and known environmental conditions
C         3 ; connection to another zone (as defined by IC2 & IE2 
C         4 ; connected to ground
C         5 ; surface is adiabatic
C ic2 & - connection description where ic2 & ie2:
C ie2   - are unused if corresponding ict=0
C         - contain relative temp and absolute incident radiation 
C           intensity values respectively if corresponding ict=1
C           (If ic2=ie2=0, then identical to source zone)
C         - contain constant temperature and incident radiation 
C           intensity values respectively if corresponding ict=2
C         - contain the zone and multilayered construction numbers 
C           at which each connectionterminates (if corresponding ict=3)
C         - contain pointers to ground temps (if corresponding ict=4)


C DOCUMENT C3F
      COMMON/C3F/LCNN
C LCNN (72 char) model connections file name.


C DOCUMENT C4
      COMMON/C4/XLAT,XLON
C xlat  - Site latitude and the longitudinal difference between the 
C xlon    site and the reference time zone (east +ve).


C DOCUMENT C5
      COMMON/C5/IXPOS,GREF
C ixpos - Site exposure index :
C         1= city centre, normal case; 2= urban site, normal case
C         3= rural site, normal case;
C         4= city centre, equal sky, ground & building view factors
C         5= city centre, building below mean height of surrounding
C            buildings
C         6= rural site, isolated; 7= totally enclosed building
C         8= user defined
C GREF  - External ground reflectivity.


C DOCUMENT C5R
      COMMON/C5R/SKYR,GRDR,BLDR
C SKYR viewfactor from external surfaces to the sky
C GRDR viewfactor from external surfaces to the ground
C BLDR viewfactor from external surfaces to other buildings & obstructions


C DOCUMENT C6
      COMMON/C6/INDCFG
C INDCFG  - is the configuration file index where: 0= registration, 
C           1= building only, 2= plant only, 3= building and plant.


C DOCUMENT C7
      COMMON/C7/LPCDB
C LPCDB (72 char) - the name of the plant component database


C DOCUMENT C8
      COMMON/C8/LPNAM
C LPNAM (72 char) - the name of the plant system


C DOCUMENT C9
      COMMON/C9/NPCOMP,NCI(MPCOM),CDATA(MPCOM,MMISCD)
C NPCOMP  - number of plant components
C NCI     - number of possible plant control variables
C CDATA   - design (or upper) values for each plant control variable


C DOCUMENT CAD3RD
      COMMON/CAD3RD/CADLBL,CADEXE,CADFMT
C CADLBL (20 char) label for 3rd party CAD application
C CADEXE (20 char) name of 3rd party CAD application
C CADFMT (4 char) key word defining CAD format used by CAD application.


C DOCUMENT CCTL
      COMMON/CCTL/ICASCF(MCOM)
C icascf  - Defines the zone associated with a control function.   Zero
C           means no zone control.


C DOCUMENT CCTLNM
      COMMON/CCTLNM/CNAME,LCTLF
C cname (64 char) - Overall configuration control name.   If equal to 'none'
C           then no control is imposed.
C lctlf (72 char) - model control file name.


C DOCUMENT CFDCONF
      COMMON/CFDCONF/ICFBLD(MNZ),ICFMFS(MNZ)
C ICFBLD building conflation mechanism (not used at present)
C ICFMFS mass flow conflation mechanism (0=none, 1=active)


C DOCUMENT CFDFIL
      COMMON/CFDFIL/LCFD(MCOM),IFCFD(MCOM)
C LCFD (72 char) cfd domain file (for each zone).

C DOCUMENT CFDINI
      COMMON/CFDINI/INITFL(MNZ)
C INITFL (logical) field variables to values specified in CFD input file.


C DOCUMENT 
      COMMON/CFGV/ICFGV
C ICFGV version of the model configuration file.


C DOCUMENT CGCIN2
      COMMON/CGCIN2/NCGTC(MCOM,3),NLITZ(MCOM),IDFST(MCOM,MLCOM),
     & CGX(MCOM,MLCOM,MDF),CGY(MCOM,MLCOM,MDF),CGH(MCOM,MLCOM,MDF),
     & UX(MCOM,MLCOM,MDF),UY(MCOM,MLCOM,MDF),UH(MCOM,MLCOM,MDF),
     & SETPT(MCOM,MLCOM),SYSPER(MCOM,MLCOM),SOFFLL(MCOM,MLCOM),
     & IOFFDT(MCOM,MLCOM),SMLOUT(MCOM,MLCOM),SMEOUT(MCOM,MLCOM)
C Zone casual gain control data.
C NCGTC  - Type number of casual gains to be controlled during
C          Weekdays, Saturdays and Sundays separately.
C NLITZ  - Number of lighting zones per thermal zone
C IDFST  - illuminance calculation type (1: ESP-r calculated daylight
C          factors, 2: User specified daylight factors, 3: external
C          sensor, 4: Coupling with 3rd party lighting simulation)
c CGX, CGY
c  & CGH   - x and y position of sensed point relative to zone origin 
C            and working plane height, in some cases they are
C            overloaded to hold other applicable information (IDFST=3).
C SETPT	   - Reference light level (set point) in Lux
C SYSPER   - % of controled casual gain associated with light zone
C SOFFLL   - Switch-off light level, portion of SETPT (-)
C IOFFDT   - Switch-off delay time, number of time steps (-)
C SMLOUT   - Minimum dimming light output, 0. - 1. (-)
C SMEOUT   - Minimum dimming electric wattage, portion of total wattage (-)


C DOCUMENT CGCIN3
      COMMON/CGCIN3/ICGCS(MCOM),ICGCF(MCOM),
     & ICGCFL(MCOM,MLCOM),SPELEC(MCOM,MLCOM),SLOPEM(MCOM,MLCOM)
C ICGCS - start hour of each period (0-24)
C ICGCF - finish hour of each period
C ICGCFL   - control type (1 on/off; 2 step down; 3 proportional; 4 Hunts)
C            5 topup)
C SPELEC   - Photo-cell sensor signal (lux) under artificial lighting,
C            determoned by night-time calibration
C SLOPEM   - Linear control slope (-), determined by day-time calibration


C DOCUMENT CGCIND
      COMMON/CGCIND/CGCDESC(MCOM)
C CGCDESC (64 char) description of casual gain control.


C DOCUMENT CLIP
      COMMON/CLIP/TPCLIP(3),IFCLIP(6),CLIPLN(6,4)
C View frustrum clip flags.
C TPCLIP test point to the clipping plane
C CLIPLN ??


C DOCUMENT CLMLST
      COMMON/CLMLST/CDBLBL,CDBLFIL
C CDBLBL (20 char) lable for list of climate files.
C CDBLFIL (72 cgar) name of file which holds list of climate files.


C DOCUMENT CLVTXNO
      COMMON/CLVTXNO/IVXHIGH(MV),IVXLOW(MV),IHIGH,ILOW
C IVXHIGH - cfd high grid point indicies.
C IVXLOW - cfd low grid point indicies.
C IHIGH - number of high grid points.
C ILOW - number of low grid points.


C DOCUMENT CONCOM
      COMMON/CONCOM/NCONECOM,CONECOMNO(MCONECOM),CONECOMID(MCONECOM),
     &CONECOMPHTYP(MCONECOM),NCONECOMDAT(MCONECOM),
     &CONECOMDAT(MCONECOM,MCCDAT)
C NCONECOM     - the number of connecting components
C CONECOMNO    - connecting component no.
C CONECOMID    - the connecting component database i.d.
C CONECOMPHTYP - connecting component phase type (relates to PHTYPSTR)
C NCONECOMDAT  - number of connecting component data items
C CONECOMDAT   - connecting component data items


C DOCUMENT CONDB
      COMMON/CONDB/LFCON,IFCON,LFMUL,IFMUL
C IFCON file unit number for materials database.
C LFCON (72 char) materials database name.
C LFMUL (72 char) constructions database name.
C IFMUL file unit number for constructions database.


C DOCUMENT CONST
      COMMON/CONST/GREAT,SMALL,GRAV
C SMALL defined in cfdat.F (there is also a PARAMETER by this name)
c GRAVITY : gravitational constant


C DOCUMENT CONVEM
      COMMON/CONVEM/PHTCO2,PHTNOX,PHTSOX,PCLCO2,PCLNOX,PCLSOX,
     &              pltco2,pltnox,pltsox,pfnco2,pfnnox,pfnsox,
     &              pspco2,pspnox,pspsox,phwco2,phwnox,phwsox
C  phtco2,phtnox,phtsox = heat related emissions co2/nox/sox
C  pclco2,pclnox,pclsox = cooling related emissions co2/nox/sox
C  pltco2,pltnox,pltsox = lighting related emissions co2/nox/sox
C  pfnco2,pfnnox,pfnsox = fan/pump related emissions co2/nox/sox
C  pspco2,pspnox,pspsox = small power related emissions co2/nox/sox
C  phwco2,phwnox,phwsox = how water related emissions co2/nox/sox


C DOCUMENT CPCALC
      COMMON/CPCALC/ICPCON,BLE,BWI,BHI,BLOX,BLOY,BLOZ,ORIENT,IRT,RA,
     &              sbh,pad,wvpe
C ICPCON set to one if there is a CPCALC definition.


C DOCUMENT CURFILE
      COMMON/CURFILE/CURRENTFILE
C Current file (for use by low level I/O calls). Error subroutine
C and error details for dll mode.


C DOCUMENT CURVG1
      COMMON/CURVG1/ZHI(NTCELX),ZLO(NTCELX),ZWEST(NTCELZ),ZEAST(NTCELZ)
C Data associated with Z axis curvilinear gridding.
C ZHI is ??
C ZLO is ??
C ZWEST is ??
C ZEAST is ??


C DOCUMENT DAYF
      COMMON/DAYF/NDF(MCOM,MLCOM),DFDAT(MCOM,MLCOM,MGT,MDF),
     & AZIJL(MCOM,MGT),SUMDF(MCOM,MLCOM,MDF),NUDWIN(MCOM)
C NDF  : nb of light sensors (daylight factors) for each external zone window
C DFDAT: the daylight factors (CIE standard overcast sky)
C NUDWIN - Number of user defined glazing for use with user defined
C          daylight factors.


C DOCUMENT DCOEF
      COMMON/DCOEF/NDCFP,NDCFS(MDCFP),DCOEF(MDCFP,MDCFS,MDCFV),
     & IDCFID(MCOM,MLCOM,MDF)
C Data for use with Daylight coefficient method:
C NDCFP  - Number of Daylight coefficient points i.e. sensors (max 5)
C NDCFS  - Number of Daylight coefficient stages (max 2)
C DCOEF  - Value of given Daylight coefficient
C IDCFID - Daylight coefficient sensor ID


C DOCUMENT DEFDB
      COMMON/DEFDB/DFDBLBL,DEFDBFL
C DFDBLBL (20 char) label for list of default databases.
C DEFDBFL (72 char) file name for list of default databases.


C DOCUMENT DEFLT1
      COMMON/DEFLT1/DCLIM,DAPRES,DFCON,DFMUL,DOPTDB,DPRFDB,DPCDB
C DCLIM (72 char) name of default climate file. Scanned from `default` file.
C DAPRES (72 char) name of default wind pressure database.
C DFCON (72 char) name of default materials database.
C DFMUL (72 char) name of default constructions (MLC) database.
C DOPTDB (72 char) name of default optical database. 
C DPRFDB (72 char) name of default event profiles database.
C DPCDB (72 char) name of default plant template database.


C DOCUMENT DEFLT2
      COMMON/DEFLT2/DFCFG,DFCTL,DEFRLB,DAFRES,DAPROB,DPNF
C DFCFG (72 char) name of default model configuration file.
C DFCTL (72 char) name of default model control file.
C DEFRLB (72 char) name of default zone results file.
C DAFRES (72 char) name of default mass flow results file.
C DAPROB (72 char) name of default mass flow network file.
C DPNF (72 char) name of default plant network file.


C DOCUMENT DEFLT3
      COMMON/DEFLT3/DFCFD
C DFCFD (72 char) name of default CFD domain file.


C DOCUMENT DLLERR
      COMMON/DLLERR/DLLSUBR,DLLMESG
C DLLSUBR (12 char) name of current subroutine, used in dll silent reporting
C dllmesg (124 char) tells the details of the DLLSUBR error.


C DOCUMENT DRWMAT
      COMMON/DRWMAT/TEMAT(4,4), TSMAT(4,4),
C TEMAT = Model to Eye transformation Matrix
C TSMAT = Eye to Screen transformation Matrix.


C DOCUMENT ECDESC
      COMMON/ECDESC/ENTYPESTR(MENTYP),PHTYPSTR(MPHATY),ENDESC,
     &ENODTYPSTR(MENOD),HYDESC(MHYCOM),CONECOMDESC(MCONECOM),
     &POWCOMDESC(MPOWCOM)
C ENTYPESTR (12 char) network type string array.
C ENDESC (72 char) - string holding a description of the network
C PHTYPSTR (12 char) - string holding phase types 1-d.c. 2-1-phase 3-3-phase
C                4-balanced
C ENODTYPSTR (12 char) - string holding the node type description
C HYDESC (72 char) - string holding a description of the hybrid component
C CONECOMDESC (72 char) - conecting component description
C POWCOMDESC (72 char) - string holding a description of the power only components


C DOCUMENT ECMPDBNAM
      COMMON/ECMPDBNAM/ECMPDBFL
C ECMPDBFL (72 char) - name of electrical component database.


C DOCUMENT ECNAMES
      COMMON/ECNAMES/ENODNAM(MENOD),HYCOMNAM(MHYCOM),
     &HYCOMTYPSTR(MHYCOM),POWCOMNAM(MPOWCOM),POWCDATS(MPOWCOM,MPCDS),
     &CONECOMNAM(MCONECOM)
C ENODNAM (12 char) - electrical node name.
C HYCOMAM (12 char) - hybrid component name.
C HYCOMTYPSTR (12 char) - string containing the type description
C POWCOMNAM (12 char) - string holding the power-only component name
C POWCDATS (72 char) - data item for a power only component i.e. file name
C CONECOMNAM (12 char) - string containing connecting component name


C DOCUMENT ECONN
      COMMON/ECONN/NECON,ECONO(MECON),CONPHTYP(MECON),
     &CONPH(MECON,MPHAS),CCNO(MECON),SENOD(MECON,MPHAS),
     &EENOD(MECON,MPHAS)
C NECON      - number of electical connections
C ECONO      - connection number
C CONPHTYP   - connection phase type (relates to PHTYPSTR)
C CONPH      - connection phase 1,2,3,4-all three (d.c. -1)
C CCNO       - the connecting component
C SENOD      - starting node(s)
C EENOD      - end node(s)


C DOCUMENT ECONV
      COMMON/ECONV/IECONV

C DOCUMENT ECTL
      COMMON/ECTL/NECL,IESN(MEL,3),IEAN(MEL,3),NECDT(MEL),
     &            IECDV(MEL,MECDT,2),NECDP(MEL,MECDT),
     &            TECPS(MEL,MECDT,MECDP),IECTYP(MEL,MECDT,MECDP),
     &            IECLAW(MEL,MECDT,MECDP),EMISCD(MEL,MECDT,MECDP,MISC)
C Follows same pattern as fctl common block.


C DOCUMENT ECTLNM
      COMMON/ECTLNM/ENAME
C ENAME (64 char) power control name.


C DOCUMENT ELECFLG
      COMMON/ELECFLG/IELF(MCOM)
C Electrical data flag (for each zone).


C DOCUMENT ELP3
      COMMON/ELP3/NEL1,PF1(MC),IPF1(MC),PWR1(MC),BVOLT1(MC),IPHAS1(MC),
     &            nel2,pf2(mc),ipf2(mc),pwr2(mc),bvolt2(mc),iphas2(mc),
     &            nel3,pf3(mc),ipf3(mc),pwr3(mc),bvolt3(mc),iphas3(mc)
C NEL1 is ??
C NEL2 is ??
C NEL3 is ??
C pf1-3      - power factor of electrical load.
C ipf1-3     - nature of load lagging (reactive), leading (capacative),
C              or unity (pure resistive).
C pwr1-3     - real power consumption of the load (W).
C bvolt1-3   - operational voltage of the load.
C iphas1-3   - which phase the load is connected to (1-3) or
C              all 3 (4).


C DOCUMENT ELPCP
      COMMON/ELPCP/NPEL,PFP(MPCOM),IPFP(MPCOM),PWRP(MPCOM),
C NPEL number of electrical components.
C PFP(*)  - Power factor for component.
C IPFP(*) - Power factor flag  for component leading 1, lagging -1
C PWRP(*) - Real power consumption of component.


C DOCUMENT ENET
      COMMON/ENET/ENTYPE
C ENTYPE - the network type 1-d.c. 2-1-phase a.c. 3-multi-phase a.c.


C DOCUMENT ENETMSC
      COMMON/ENETMSC/PHASEANG(MPHAS)
C PHASEANG - array holding the default phase angle for each phase


C DOCUMENT ENOD
      COMMON/ENOD/NENOD,ENODNO(MENOD),ENODPHTYP(MENOD),
     &ENODPH(MENOD),ENODTYP(MENOD),ENODBASEV(MENOD),
     &ENODBASEP
C NENOD      - number of electrical nodes in the network
C ENODNO     - electrical node reference no
C ENODPHTYP  - phase type of node (relates to PHTYPSTR)
C ENODPH     - specific phase number associated with the node (1-3)
C ENODTYPE   - electrical node type 1-variable 2-fixed voltage
C ENODBASEV  - node base voltage for per unit analysis
C ENODBASEP  - base power value (all nodes)


C DOCUMENT ENTFILE
      COMMON/ENTFILE/ENTFLNAM,IENTXIST
C ENTFLNAM (72 char) electrical network file.
C IENTXIST power flow simulation flag (non zero signals a network).


C DOCUMENT EQTION
      COMMON/EQTION/CALLU(MNZ),CALLV(MNZ),CALLW(MNZ),CALLT(MNZ),
     &             CALLC(MNZ),KEMDL(MNZ),BUOY(MNZ),BOUSSI(MNZ),
     &             ZEROT(MNZ),ZandKE(MNZ),MITzero(MNZ)
C CALLU (logical) U equation to be solved.
C CALLV (logical) V equation to be solved.
C CALLW (logical) W equation to be solved.
C CALLT (logical) Temperature equation to be solved.
C CALLC (logical) C (??) equation to be solved.
C KEMDL (logical) (??) equation to be solved.
C BUOY (logical) buoyancy equation to be solved.
C BOUSSI (logical) use Boussinesq approx.
C ZEROT (logical) use Zero-equation fixed-eddy-viscosity turbulence.
C ZandKE (logical) (??)
C MITzero (logical) use the MIT zero-equation model


C DOCUMENT EQTION2
      COMMON/EQTION2/CALCO(MNZ),CALHUM(MNZ),CALLMA(MNZ)
C CALCO (logical) calculate conctentration.
C CALHUM (logical) calculate humidity.
C CALLMA (logical) calculate local mean age of air.


C DOCUMENT ER1
      COMMON/ER1/IER1


C DOCUMENT EXEMLST
      COMMON/EXEMLST/EXEMLBL,EXEMFL
C EXEMLBL (20 char) label for exemplar models.
C EXEMFL (72 char) file holding list of exemplar models.


C DOCUMENT FCTL
      COMMON/FCTL/NCC,IFSN(MCC,4),IFAN(MCC,3),NFCDT(MCC),
     &       ifcdv(mcc,mfcdt,2),nfcdp(mcc,mfcdt),tfcps(mcc,mfcdt,mfcdp),
     &       ifctyp(mcc,mfcdt,mfcdp),ifclaw(mcc,mfcdt,mfcdp),
     &       fmiscd(mcc,mfcdt,mfcdp,misc)
C Follows similar pattern to zone control.


C DOCUMENT FCTL4
      COMMON/FCTL4/IASOCC(MCC,MCMP),NFSUP(MCC)
C iasocc   1st..n connection index for each mass flow connection 
C          associated with a component flow control.  Use with 
C          ifsn(??,1)= -4.
C nfsup    number of flow control supplemental items, associated with
C          a flow control via a component (ifsn(??,1)= -4).  This implies
C          that for flow, a single control type is applicable for each
C          flow control function.


C DOCUMENT FCTLNM
      COMMON/FCTLNM/FNAME
C FNAME (64 char) description of flow control.


C DOCUMENT FDTRFC
      COMMON/FDTRFC/FLSDTU(MNZ),FLSDTV(MNZ),FLSDTW(MNZ),FLSDTP(MNZ),
     &              FLSDTT(MNZ),FLSDTK(MNZ),FLSDTE(MNZ)
C FLSDTU Ficticious time-step??.
C FLSDTV is ??
C FLSDTW is ??
C FLSDTP is ??
C FLSDTT is ??
C FLSDTK is ??
C FLSDTE is ??


C DOCUMENT FFN
      COMMON/FFN/IFLWN,ICFFS(MPCON)
C iflwn - plant fluid flow simulation index (1 = on)
C icffs - fluid flow network node associated with each plant component. 
C         NB fluid flow network and plant energy network need not be matched


C DOCUMENT FIGTOOL
      COMMON/FIGTOOL/FIGLBL,FIGEXE
C FIGLBL (20 char) label for external figure generator
C FIGEXE (48 char) external figure generator (name of executable).


C DOCUMENT FILEP
      COMMON/FILEP/IFIL
C IFIL base file unit number (set in MAIN of each application).


C DOCUMENT FLVPAR
      COMMON/FLVPAR/LFLPAR(MCOM)
C LFLPAR (72 char) flow visualisation parameters file (one per zone).


C DOCUMENT FOLDERBR
      COMMON/FOLDERBR/FOLDLBL,FOLDEXE
C FOLDLBL (20 char) label for external folder browser.
C FOLDEXE (48 char) external folder browser (name of executable).


C DOCUMENT FOPENED
      COMMON/FOPENED/CFGOK,MLDBOK,CONDBOK,CTLOK,OPTKOK
C CFGOK (logical) true if model configuration file loaded ok.
C MLDBOK (logicaal) true if construction database loaded ok.
C CONDBOK (logical) true if materials database loaded ok.
C CTLOK (logical) true if model control file loaded ok.
C OPTKOK (logical) trye if optics database loaded ok.


C DOCUMENT FZCTL1
      COMMON/FZCTL1/FZM(MFP,3,5,10),ERRSAV(MFP),QSAV(MFP),
     &ACUT(3,5),FZCTIP(5,5),FZCTOP(5),COA(5)
C Fuzzy logic data.


C DOCUMENT FZCTL2
      COMMON/FZCTL2/NFZF(MFP,3),FZT(MFP,3),NONZRO
C Fuzzy logic data.


C DOCUMENT FZCTL3
      COMMON/FZCTL3/FZLABL,FZLOOK
C Fuzzy logic data.
C FZLABL (8 char) is ??
C FZLOOK (8 char) is ??


C DOCUMENT G0
      COMMON/G0/CTYPE
C CTYPE (3 char) format of zone geometry (GEN or REG or REC).
C REC - the X, Y and Z coordinates of the 'bottom left-hand' corner
C       (when viewed from the south), the length (from this point
C       towards east), width and height of the zone (all internal
C       dimensions) and the rotation angle (the angle between the
C       'length' side and east - anticlockwise +ve).

C REG - the number of walls, the X and Y coordinates of the bottom
C       corner of each wall in an anticlockwise direction, the floor
C       and ceiling heights and the rotation angle from the site
C       X-axis to east (anticlockwise +ve).

C GEN - the total number of vertices in the body, the number of
C       surfaces, the X, Y and Z coordinates of each vertex (in any
C       convenient order), the number of vertices in each surface,
C       an associated ordered list of the vertex numbers in an
C       anticlockwise order which comprise each surface and the
C       rotation angle from the site X-axis to east (anticlockwise
C       +ve).


C DOCUMENT G1
      COMMON/G1/X(MTV),Y(MTV),Z(MTV),NSUR,JVN(MS,MV),NVER(MS),NTV
C X,Y & Z   - coordinates of the vertices defining the zone
C NSUR      - Number of faces comprising zone
C JVN       - contains an ordered description (anticlockwise) of the
C             vertices in each face
C NTV       - total number of vertices in zone
C NVER      - contains the number of vertices in each face

C DOCUMENT G2
      COMMON/G2/NGL(MS)
C NGL - contains the number of default windows in each face (set to zero)
C       this is depreciated as the default window data structure is no
C       longer used.        

C DOCUMENT G4
      COMMON/G4/NDP(MCOM),IDPN(MCOM,3)
C NDP - Default insolation index:
C       1; one plane, 2; two planes, 3; all planes (diffuse).
C IDPN defines the default plane numbers.


C DOCUMENT G5
      COMMON/G5/SNAME(MCOM,MS),SOTF(MS),SMLCN(MS),SVFC(MS),SOTHER(MS)
C SNAME (12 char) - surface name attribute
C SOTF (4 char) - surface attribute indicating OPAQ or TRAN.
C SVFC (4 char) - attribute indicating whether the surface is to be
C     counted as a FLOR (floor), VERT (wall), CEIL (ceiling),
C     SLOP (not vertical) for purposes of floor area and daylighting.
C SMLCN (12 char) surface construction attribute
C SOTHER (15 char) surface attribute for `other` side. UNKNOWN indicates
C     that no attribute has been set. EXTERIOR or SIMILAR or ADIABATIC or
C     BASESIMP or GROUND or a zone name are allowed. 


C DOCUMENT G6
      COMMON/G6/SSOTF(MCON),SSMLCN(MCON),SSVFC(MCON),SSOTHER(MCON)
C Connection based surface attributes, same as SOTF, SMLCN, SVFC, SOTHER.


C DOCUMENT GB1
      COMMON/GB1/XB(12),YB(12),ZB(12),JVNB(6,4)
C Data structures used for drawing obstruction blocks.


C DOCUMENT GCTL
      COMMON/GCTL/NGF,IGSN(MGL,4),IGAN(MGL,3),NGCDT(MGL),
     &       igcdv(mgl,mgcdt,2),ngcdp(mgl,mgcdt),tgcps(mgl,mgcdt,mgcdp),
     &       igctyp(mgl,mgcdt,mgcdp),igclaw(mgl,mgcdt,mgcdp),
     &       gmiscd(mgl,mgcdt,mgcdp,misc)
C Global control data, follows similar pattern to zone control.


C DOCUMENT GCTLNM
      COMMON/GCTLNM/GNAME
C GNAME (64 char) description of global control.


C DOCUMENT GENDBF
      COMMON/GENDBF/GENDBFN(13)
C GENDBFN (72 char) array of generic database files.


C DOCUMENT GEOM
      COMMON/GEOM/XP(NTCELX),YP(NTCELY),ZP(NTCELZ),
     1            DXEP(ntcelx),DXPW(ntcelx),DYNP(ntcely),DYPS(ntcely),
     2            DZHP(ntcelz),DZPL(ntcelz),
     3            SEW(ntcelx),SNS(ntcely),SHL(ntcelz),
     4            XU(ntcelx),YV(ntcely),ZW(ntcelz)
C CFD domain data yet to be documented.
C XP is ??
C YP is ??
C ZP is ??
C DXEP is ??
C DXPW distance between scalar points in X-direction.
C DYNP is ??
C DZHP is ??
C DZPL distance between scalar points in Z-direction
C SEW widths of the scalar control volumes in the X-direction.
C SNS widths of the scalar control volumes in the Y-direction.
C SHL height of the scalar control volumes in the Z-direction.


C DOCUMENT GEOM2
      COMMON/GEOM2/VOLP(NTCELX,NTCELY,NTCELZ),
     &             VolU(ntcelx,ntcely,ntcelz),
     &             VolV(ntcelx,ntcely,ntcelz),
     &             VolW(ntcelx,ntcely,ntcelz)
C VOLP,VOLU,VOLV,VOLW - VOLUME of scalar control volume, U, V and W staggered control volumes


C DOCUMENT GEOM3
      COMMON/GEOM3/AREAHLP(NTCELX,NTCELY),AREAHLU(NTCELX,NTCELY),
     &             AreaHLV(ntcelx,ntcely),AreaEWP(ntcely,ntcelz),
     &             AreaEWV(ntcely,ntcelz),AreaEWW(ntcely,ntcelz),
     &             AreaNSP(ntcelx,ntcelz),AreaNSU(ntcelx,ntcelz),
     &             AreaNSW(ntcelx,ntcelz)
C AREAHLP High/Low areas.
C AREAHLU is ??
C AreaHLV is ??
C AreaEWP East/West areas.
C AreaEWV is ??
C AreaEWW is ??
C AreaNSP is ??
C AreaNSU is ??
C AreaNSW is ??


C DOCUMENT GEOMCURV
      COMMON/GEOMCURV/XP(ntcelx),YP(ntcely),ZP(ntcelz),
     1            DXEP(ntcelx),DXPW(ntcelx),DYNP(ntcely),DYPS(ntcely),
     2            DZHP(ntcelz),DZPL(ntcelz),
     3            SEW(ntcelx),SNS(ntcely),SHL(ntcelz),
     4            XU(ntcelx),YV(ntcely),ZW(ntcelz)

C DOCUMENT GFONT
      COMMON/GFONT/IFS,ITFS,IMFS
C IFS is font size index for buttons and graphs
C ITFS is font size index for text feedback and dialog
C IMFS is font size index for command menus.


C DOCUMENT GLBCTL
      COMMON/GLBCTL/GLOBAL,GLBRWD
C GLOBAL (logical) true if global controls are active.
C GLBRWD (logical) true if global pass counter is active.


C DOCUMENT GOPT
      COMMON/GOPT/DG(5),HG(5),UVAL,VTRN,NTL,AB(ME,5),RF(ME),SRF,SAB
C DG Direct trans at 5 angles.
C HG Solar heat gain at 5 angles (for documentation purposes only).
C UVAL optical property U value (for documentation purposes only).
C VTRN Visible transmittance
C AB layer absorb at 5 angels.
C RF layer refractive index
C SRF solar refl (for documentation purposes only)
C SAB soalr abs  (for documentation purposes only)


C DOCUMENT GOPTDB
      COMMON/GOPTDB/LOPTDB,IOPTDB
C LOPTDB (72 char) optical database name.
C IOPTDB file unit number for optical database.


C DOCUMENT GPICK
      COMMON/GPICK/GS(MGOPT),NOPT
C NOPT number of optical database items.
C GS (52 char) list of optical database items to select from.

C DOCUMENT GPRINT
      COMMON/GPRINT/GPRLBL,GPRCMD
C GPRLBL (20 char) label for external graphic capture tool.
C GPRCMD (48 char) external graphic capture tool (name of executable).


C DOCUMENT GR1D01
      COMMON/GR1D01/NNDS,NNDZ(MCOM),NNDC(MCOM,MS),NNDL(MCOM,MS,ME)
C << still working on this >>

C DOCUMENT GR1D02
      COMMON/GR1D02/IADP,IVAR,FMIN,FREF,FMAX,NSTP
C << still working on this >>


C DOCUMENT GR1D03
      COMMON/GR1D03/BCNV,ILUMP(MCOM,MS)
C << still working on this >>


C DOCUMENT GR1D05
      COMMON/GR1D05/LGRD1D
C << still working on this >>


C DOCUMENT GR1D06
      COMMON/GR1D06/IGR1D
C << still working on this >>


C DOCUMENT GR3D07
      COMMON/GR3D07/Y0S(MS),Y0SS(MSSZ),Y0SE(MSEZ)
C << still working on this >>


C DOCUMENT GR3D100
      COMMON/GR3D100/BLDG3D,ZONE3D(MCOM)
C << still working on this >>


C DOCUMENT GR3D108
      COMMON/GR3D108/L3DCVS(MCOM),L3DCNC(MCOM),L3DNDC(MCOM),L3DTAQ(MCOM)
C << still working on this >>


C DOCUMENT GRAPHTOOL
      COMMON/GRAPHTOOL/GRFLBL,GRFEXE
C GRFLBL (20 char) label for external graphing tool.
C GRFEXE (48 char) external graphing tool (executable name).


C DOCUMENT GRDMAX
      COMMON/GRDMAX/NTCX,NTCY,NTCZ
C NTCX,NTCY,NTCZ -  total number of cells in X Y Z  direction.


C DOCUMENT GRDVRTS
      COMMON/GRDVRTS/IORG,IXEND,IYEND,IZEND,IZENDE
C << still working on this >>

C DOCUMENT GRIDEFN
      COMMON/GRIDEFN/ORIGIN,XGRID,YGRID,ZGRID,ZEGRID,ORTHO
C << still working on this >>

C DOCUMENT GRIDFN
      COMMON/GRIDFN/NCELX(MNREG,MNZ),NCELY(MNREG,MNZ),NCELZ(MNREG,MNZ),
     &  NCELZE(MNREG,MNZ),XREG(MNREG,MNZ),YREG(MNREG,MNZ),
     &  ZREG(MNREG,MNZ),ZREGE(MNREG,MNZ),Xplaw(MNREG,MNZ),
     &  Yplaw(MNREG,MNZ),Zplaw(MNREG,MNZ),Zplawe(MNREG,MNZ),NREG(4,MNZ)
C   NREG(?,ICFD) - Number of regions in each direction(?: 1- x, 2- y, 3- z).
C   NCELX(IREG,ICFD) - Number of cells in x-direction per region(IREG) per
C                      domain(ICFD).
C   NCELY(IREG,ICFD) - Number of cells in y-direction per region per domain(ICFD).
C   NCELZ(IREG,ICFD) - Number of cells in z-direction per region per domain(ICFD.
C   NCELZe(IREG,ICFD) - Number of cells in z (east)-direction.

C   XREG(IREG,ICFD) - x-dimension of the region IREG per domain (ICFD).
C   YREG(IREG,ICFD) - y-dimension of the region IREG per domain (ICFD).
C   ZREG(IREG,ICFD) - z-dimension of the region IREG per domain (ICFD).
C   ZREGe(IREG,ICFD) - z (east) -dimension of the region IREG per domain (ICFD).

C   Xplaw(IREG,ICFD) - x-power law coefficient of region IREG per domain (ICFD).
C   Yplaw(IREG,ICFD) - y-power law coefficient of region IREG per domain (ICFD). 
C   Zplaw(IREG,ICFD) - West wall z-power law coef of region IREG per domain (ICFD).
C   Zplawe(IREG,ICFD) - East wall z-power law coef of region IREG per domain (ICFD).
C      (used in the case of curvilinear Z)


C DOCUMENT GRND100
      COMMON/GRND100/GRND3D
C << still working on this >>


C DOCUMENT GRND108
      COMMON/GRND108/LGDCVS,LGDCNC,LGDNDC,LGDTAQ,LGDNDD
C << still working on this >>


C DOCUMENT GRNDPL
      COMMON/GRNDPL/NGT,NGTV,XGT(MGTV),YGT(MGTV),ZGT(MGTV),JGVN(MGRT,6),
     &  NGVER(MGRT),IVEDGE(MGRT)
C NGT     - Number of faces comprising ground topology
C NGTV      - total number of vertices in ground
C XGT,YGT & ZGT   - coordinates of the vertices defining the zone
C JGVN      - contains an ordered description (anticlockwise) of the
C             vertices in each face
C NGVER     - vertices per surface (max 6)


C DOCUMENT GRSD100
      COMMON/GRSD100/INDXST
C << still working on this >>

C DOCUMENT GRSD101
      COMMON/GRSD101/LGRDST
C << still working on this >>

C DOCUMENT GRSD111
      COMMON/GRSD111/NCOLLAY
C << still working on this >>

C DOCUMENT GRSD31
      COMMON/GRSD31/INDLCL(MS)
C << still working on this >>

C DOCUMENT GRSD41
      COMMON/GRSD41/REFWIDTH,NROW,NCOL,NLAY
C << still working on this >>

C DOCUMENT GRSD42
      COMMON/GRSD42/LROW(MROW),LCOL(MCOL),LLAY(MLAY)
C << still working on this >>

C DOCUMENT GRSD51
      COMMON/GRSD51/NMTR,IMTRS(MMTR),IMTRE(MMTR)
C << still working on this >>

C DOCUMENT GRSD52
      COMMON/GRSD52/IMROWS(MMTR),IMROWE(MMTR)
C << still working on this >>

C DOCUMENT GRSD53
      COMMON/GRSD53/IMCOLS(MMTR),IMCOLE(MMTR)
C << still working on this >>

C DOCUMENT GRSD54
      COMMON/GRSD54/IMLAYS(MMTR),IMLAYE(MMTR)
C << still working on this >>

C DOCUMENT GRSD61
      COMMON/GRSD61/NBND,IBNDZ(MBND),IBNDS(MBND)
C << still working on this >>

C DOCUMENT GRSD62
      COMMON/GRSD62/IBROWS(MBND),IBROWE(MBND)
C << still working on this >>

C DOCUMENT GRSD63
      COMMON/GRSD63/IBCOLS(MBND),IBCOLE(MBND)
C << still working on this >>

C DOCUMENT GRSD64
      COMMON/GRSD64/IBLAYS(MBND),IBLAYE(MBND)
C << still working on this >>


C DOCUMENT GS5
      COMMON/GS5/NB,XO(MB),YO(MB),ZO(MB),DX(MB),DY(MB),DZ(MB),BANG(MB)
C NB number of obstruction blocks.
C X0 Y0 Z0 coordinates of each block origin.
C DX DY DZ width depth and height of each block
C BANG block rotation angle. 

C DOCUMENT GS6
      COMMON/GS6/NOX,NOZ,NGX,NGZ,BLKNAME(MB),BLKMAT(MB)
C NOX NOZ gridding resolution of surfaces for shading
C NGX NGZ not used.
C BLKNAME (8 char) name of obstruction block.
C BLKMAT (12 char) obstruction block construction attribute (for Radiance).


C DOCUMENT GT
      COMMON/GT/GTNAME
C GTNAME (15 char) - description of the ground topology.


C DOCUMENT GT5
      COMMON/GT5/GSNAME(MGRT),GMLCN(MGRT)
C GSNAME (6 char) - ground topology surface names
C GMLCN (12 char) - ground topology surface construction attribute.


C DOCUMENT GTFIL
      COMMON/GTFIL/GTGEOM
C GTGEOM (72 char) - the ground topology file name


C DOCUMENT GXWD
      COMMON/GXWD/GXWDLBL,GXWDCMD
C GXWDLBL (20 char) label for tool used to dump screen image.
C GXWDCMD (20 char) tool used to dump screen image (name of executable)


C DOCUMENT GZONPIK
      COMMON/GZONPIK/IZGFOC,NZG,NZNOG(MCOM)
C izgfoc is the graphic focus zone, nzg is the number of zones selected
C and nznog array of selected zone indices.


C DOCUMENT HSRC
      COMMON/HSRC/NHS(2,MNZ),IHSI(MNHS,2,MNZ),IHSF(MNHS,2,MNZ),
     &            JHSi(MNHS,2,MNZ),JHSf(MNHS,2,MNZ),KHSi(MNHS,2,MNZ),
     &            KHSf(MNHS,2,MNZ),HSID(MNHS,2,MNZ),SHS(MNHS,2,MNZ),
     &            BHS(MNHS,2,MNZ)

C DOCUMENT HVACINFO
      COMMON/HVACINFO/IHVACFLAG,HVACFILE
C << still working on this >>

C DOCUMENT HYBE
      COMMON/HYBE/NHYBCOM,HYBCOMNO(MHYCOM),HYCOMTYP(MHYCOM),
     &HYCOMPHTYP(MHYCOM),HYCONEN(MHYCOM,MPHAS),HYLOC(MHYCOM,MPHAS),
     &NHYBDAT(MHYCOM),HYBDAT(MHYCOM,MHYDAT)
C NHYBCOM      - number of hybrid components connected to the network
C HYBCOMNO     - the hybrid component ref no
C HYCOMAM      - string containing the hybrid component name
C HYCOMTYP     - hybrid component type no 1-zone load, 2-pv (special material)
C                3-plant component 
C HYCOMTYPSTR  - string containing the type description
C HYCOMPHTYP   - phase type of component (relates to PHTYPSTR)
C HYCONEN      - node(s) connected to the component 
C HYLOC        - location of hybrid component
C                 zone                 n      load m
C                special material no. n
C                plant component no.  n 
C HYDESC       - string holding a description of the hybrid component
C NHYBDAT      - number of hybrid component data items
C HYBDAT       - the hybrid data items


C DOCUMENT ICFNOD
      COMMON/ICFNOD/ICFD,ICP
C << still working on this >>

C DOCUMENT ICONDBNAM
      COMMON/ICONDBNAM/ICONDBFL
C << still working on this >>

C DOCUMENT IDRHCTL1
      COMMON/IDRHCTL1/RHSPTU(MCOM),RHSPTL(MCOM),RHHC(MCOM),
     &RHDC(MCOM),IRHCT(MCOM)
C << still working on this >>

C DOCUMENT IMAGE
      COMMON/IMAGE/IMT,EYEM(3),VIEWM(3),HITH,YON,ANG,HANG,WIDE
C << still working on this >>

C DOCUMENT IMAGESV
      COMMON/IMAGESV/IMTSV,OEYEM(3),OVIEWM(3),OHITH,OYON,OANG,OHANG,
     &  OWIDE
C << still working on this >>

C DOCUMENT IMAGF
      COMMON/IMAGF/IMGFMT(10),IMGFOC(10),LIMGFIL(10),NOIMG,ITON
C << still working on this >>

C DOCUMENT INDICS
      COMMON/INDICS/IAF(MCOM),ICG(MCOM),IVF(MCOM),ISI(MCOM),IHC(MCOM),
     &              ITW(MCOM),ICGC(MCOM),IOBS(MCOM)
C << still working on this >>

C DOCUMENT INITIA
      COMMON/INITIA/UINIT(MNZ),VINIT(MNZ),WINIT(MNZ),PINIT(MNZ),
     &              TINIT(MNZ),TEINIT(MNZ),EDINIT(MNZ)
C << still working on this >>

C DOCUMENT INITV
      COMMON/INITV/INITVT,EYEMI(3),VIEWMI(3),ANGI
C << still working on this >>

C DOCUMENT INTERP
      COMMON/INTERP/SIFE(NTCELX),SIFW(NTCELX),SIFN(NTCELY),SIFS(NTCELY),
     &              SIFH(ntcelz),SIFL(ntcelz)
C << still working on this >>

C DOCUMENT IPVA
      COMMON/IPVA/IPVTITL,IPVVERS,IPVSYNOP
C << still working on this >>

C DOCUMENT IPVDDM
      COMMON/IPVDDM/DDMHEAT(MIPVA),DDMCOOL(MIPVA),DDMLIGHT(MIPVA),
     &              ddmsmlpw(MIPVA),ddmfan(MIPVA),ddmdhw(MIPVA)
C ddm* are the degree-day multipliers (or user defined multipliers) between
C the periods simulated and the whole season for heating, cooling, lights,
C small power, fans, domestic hot water. For nipvassmt=1 these are 
C initially set to 1.0.


C DOCUMENT IPVDEDS
      COMMON/IPVDEDS/ZEDSDOC(MIPVM)
C zedsdoc is 12 char identifier for each set.


C DOCUMENT IPVDMD
      COMMON/IPVDMD/IDMDINC(7)
C Dispersed demands (lifts/pumps/etc.) can be included from a project
C demands file (which defines weekday/saturday/sunday profiles).  These
C demands are appended to any zone based integrations and typical day
C profiles are included in a third 24 hour set of profiles.  No scaling
C is done with data, assumes that the associated areas translate directly
C to the fully scaled project.
C  idmdinc(7): 0 (exclude) or 1 (include) toggle for each type


C DOCUMENT IPVF
      COMMON/IPVF/LIPVDATF
C << still working on this >>

C DOCUMENT IPVEDS
      COMMON/IPVEDS/NEDS,IDGMSC(MIPVM,2),IAGGR,NZEDG(MIPVM),
     &  edgflr(MIPVM),edgsca(MIPVM),izedg(MIPVM,MCOM)
C List of energy demand sets: neds is number of sets, idgmsc() are
C miscel data describing set, iaggr=0 no timestep aggregate reporting
C iaggr=1 timestep aggregate data included, nzedg is the
C number of zones in each set, edgflr is the total floor area in
C each set, edgsca is a scaling factor (e.g. to scale these zones
C towards a whole building), izedg is the list of zones in each set.

C DOCUMENT IPVF
      COMMON/IPVF/LIPVDATF

C DOCUMENT IPVI
      COMMON/IPVI/NIPVIMG,LIPVIMG(4)
C NIPVIMG number of image files associate with IPV.
C LIPVIMG (72 char) image files associate with IPV

C DOCUMENT IPVMDS
      COMMON/IPVMDS/METRGLBL(MIPVM),MSDOC(MIPVM)
C << still working on this >>


C DOCUMENT IPVMS
      COMMON/IPVMS/NMS,IMETGET(MIPVM),IMETMSC(MIPVM,2),NZMG(MIPVM),
     &  emgflr(MIPVM),emgsca(MIPVM),emgwtg(MIPVM),izmg(MIPVM,MCOM)
C List of metric sets: nms is number of sets, imetget is the
C esrures iget index for the metric selected, imetmsc holds two
C miscelaneous indices for use by the metric, nzmg is the
C number of zones in each set, emgflr is the total floor area in
C each set, emgsca is a scaling factor (e.g. to scale these zones
C towards a whole building), emgwtg is a weighting factor for the
C metric, izmg is the list of zones in each set.


C DOCUMENT IPVSEA
      COMMON/IPVSEA/NIPVASSMT,NIPVDISPJD,IPVASTJD(MIPVA),
     &              ipvafnjd(MIPVA),ipvdispjd(10)
C nipvassmt is the number of assessments (runs) in an IPV (1=annual,
C 3=win/trn/sum, 5=win/spr/sum/autumn/win. 
C ipvastjd() are the assessment start julian dates,
C ipvafnjd are the assessment finish julian dates and
C nipvdispjd number of days to display in detail,
C ipvdispjd is list of julian days (must be within the assessment period).


C DOCUMENT IPVSEALB
      COMMON/IPVSEALB/IPVADESC(MIPVA)
C ipvadesc is a 40 char description associated with each assessment.


C DOCUMENT IROT
      COMMON/IROT/ROTA
C << still working on this >>

C DOCUMENT JOURNOPT
      COMMON/JOURNOPT/JOURNIO,IUJ,JOURNCMD,JFILE
C << still working on this >>

C DOCUMENT KEYVDAT
      COMMON/KEYVDAT/IVTYPE(MNVLS,MNZ),VOLTEMP(MNVLS,MNZ),
     &          VOLHeat(MNVLS,MNZ),IVConfl(MNVLS,MNZ),VOLHum(MNVLS,MNZ),
     &          VOLCO2(MNVLS,MNZ),VOLVel(MNVLS,MNZ),VOLDir(MNVLS,MNZ,2),
     &          VOLArea(MNVLS,MNZ),VOLPres(MNVLS,MNZ)

C DOCUMENT KEYVOLN
      COMMON/KEYVOLN/VOLNAME(MNVLS,MNZ),VCSURF(MNVLS,MNZ)

C DOCUMENT KEYVOLS
      COMMON/KEYVOLS/NVOL(MNZ),IVOLF(MNVLS,MNZ),IVCELLS(MNVLS,MNZ,2),
     &               JVCELLS(MNVLS,MNZ,2),KVCELLS(MNVLS,MNZ,2)

C DOCUMENT LINRFC
      COMMON/LINRFC/URFCU(MNZ),URFCV(MNZ),URFCW(MNZ),URFCP(MNZ),
     &              URFCT(MNZ),URFCK(MNZ),URFCE(MNZ),URFCVS(MNZ)

C DOCUMENT LINRFC1
      COMMON/LINRFC1/URFCD(MNZ)
C << still working on this >>

C DOCUMENT LOADLABEL
      COMMON/LOADLABEL/LODLABEL(MCOM,7)
C << still working on this >>

C DOCUMENT LOG
      COMMON/LOG/LPRJLG
C LPRJLG (72 char) model log file.

C DOCUMENT MBYDAT
      COMMON/MBYDAT/BDYFIL,NSCV
C << still working on this >>

C DOCUMENT MCMPDBNAM
      COMMON/MCMPDBNAM/MCMPDBFL
C MCMPDBFL (72 char) miscellaneous components database file.


C DOCUMENT METHDS
      COMMON/METHDS/ITURB(MNZ),IBUOY(MNZ)
C ITURB index of turb solution method.
c IBUOY index of bouy solution method.


C DOCUMENT MFCFD
      COMMON/MFCFD/NCNRMV,ICNRMV(MCFND,MNZ),NCNACT,ICNACT(2*MCFND,MNZ)
C << still working on this >>

C DOCUMENT MFCFD
      COMMON/MFCFD/NCNRMV,ICNRMV(MCFND,MNZ),NCNON,ICNON(2*MCFND,MNZ)
C << still working on this >>

C DOCUMENT MFCFD2
      COMMON/MFCFD2/IFWCON(MNVLS)
C << still working on this >>


C DOCUMENT MFLCLM
      COMMON/MFLCLM/DRYB,QDIF,QDNR,IRVH,WDIR,WSPD,WRED
C DRYB   - dry bulb temperature (C)
C QDIF   - diffuse horizontal solar radiation (W/m^2)
C QDNR   - direct normal solar radiation (W/m^2)
C IRVH   - relative humidity of outdoor air (%)
C WDIR   - wind direction (degrees clockwise from north)
C WSPD   - wind speed (m/s)
C WRED   - local wind speed reduction factor (-)


C DOCUMENT MFLOW1
      COMMON/MFLOW1/NNOD,NCMP,NCNN
C NNOD   - number of nodes (building zones and/or plant components)
C NCMP   - number of fluid flow components (flow restrictions)
C NCNN   - number of interconnections (branches)


C DOCUMENT MFLOW2
      COMMON/MFLOW2/NDNAM(0:MNOD)
C NDNAM (12 char) - identifier/name


C DOCUMENT MFLOW3
      COMMON/MFLOW3/NDFLD(MNOD),NDTYP(MNOD),HNOD(MNOD),SUPNOD(MNOD,MNDS)
C NDFLD  - fluid type (1=air, 2=water)
C NDTYP  - type (0=internal; unknown pressure
C                1=internal; known total pressure
C                2=boundary; known total pressure
C                3=boundary; wind induced pressure; implies NDFLD=1)
C HNOD   - height above datum (m)
C SUPNOD - supplementary data items (max. MNDS)
C          if NDTYP=0 none
C             NDTYP=1 total pressure (Pa)
C             NDTYP=2 total pressure (Pa)
C                     node fluid temperature flag, indicating:
C                     0: TNOD is constant
C                     1: TNOD equals DRYB
C             NDTYP=3 wind pressure coefficients index
C                     surface azimuth (degrees clockwise from north)


C DOCUMENT MFLOW4
      COMMON/MFLOW4/ITND(MNOD),TNOD(MNOD)
C ITND   - node temperature index; if ITND(I)=N then TNOD(I)=TNOD(N)
C TNOD   - node fluid temperature (C)


C DOCUMENT MFLOW6
      COMMON/MFLOW6/IVALCM(MCMV)
C IVALCM - valid component type numbers


C DOCUMENT MFLOW7
      COMMON/MFLOW7/LVALCM(MCMV)
C LVALCM (60 char) - short description of each valid component type


C DOCUMENT MFLOW8
      COMMON/MFLOW8/CMNAM(MCMP),LTPCMP(MCMP)
C CMNAM (12 char) - identifier/name
C LTPCMP (60 char) - short description of that type


C DOCUMENT MFLOW9
      COMMON/MFLOW9/ITPCMP(MCMP),ISDCMP(MCMP),ISDCNN(MCMP),
     &              SUPCMP(MCMP,MCMS)
C ITPCMP - type number
C ISDCMP - number of supplementary data items (max. MCMS)
C ISDCNN - number of connection level supplementary items (max. MCNS)
C SUPCMP - component supplementary data items (1st item = fluid type)


C DOCUMENT MFLW10
      COMMON/MFLW10/NODPS(MCNN),HGTPS(MCNN),NODNE(MCNN),HGTNE(MCNN),
     &              ITPCON(MCNN),NDSCNN(MCNN,MCNS)
C NODPS  - node number on positive side of connection
C HGTPS  - height of +ve linkage point relative to NODPS (m)
C NODNE  - node number on negative side of connection
C HGTNE  - height of -ve linkage point relative to NODNE (m)
C ITPCON - number of linking fluid flow component
C NDSCNN - connection level component supplementary node numbers


C DOCUMENT MFS
      COMMON/MFS/IMFACT
C << still working on this >>

C DOCUMENT MLC
      COMMON/MLC/NMLC,DESC(MMLC),DTHK(MMLC,ME),IPR(MMLC,ME),
     &           LAYERS(MMLC),DRAIR(MMLC,ME,3)
C << still working on this >>

C DOCUMENT MOIST01
      COMMON/MOIST01/MSTROK,MSTRZN(MCOM)
C << still working on this >>

C DOCUMENT MOIST02
      COMMON/MOIST02/LMOIST(MCOM)
C << still working on this >>

C DOCUMENT MOIST03
      COMMON/MOIST03/MNDS,MNDZ(MCOM),MNDC(MCOM,MS),MNDL(MCOM,MS,ME)
C << still working on this >>

C DOCUMENT MOIST05
      COMMON/MOIST05/IPERM(MCOM,MS,ME),PERM(MCOM,MS,ME,3)
C << still working on this >>

C DOCUMENT MOIST06
      COMMON/MOIST06/ISORP(MCOM,MS,ME),SORP(MCOM,MS,ME,3)
C << still working on this >>

C DOCUMENT MOIST07
      COMMON/MOIST07/ITVAPD(MCOM,MS,ME),TVAPD(MCOM,MS,ME)
C << still working on this >>

C DOCUMENT MRTC
      COMMON/MRTC/NCUB,XOC(MCUB),YOC(MCUB),ZOC(MCUB),DXC(MCUB),
     &            DYC(MCUB),DZC(MCUB),CANG(MCUB),IVFOK(MCUB),CUBN(MCUB)
C << still working on this >>

C DOCUMENT MRTF
      COMMON/MRTF/FFL(MCUB,6,MSM),VWF(MS,MS)
C << still working on this >>

C DOCUMENT NDCFD
      COMMON/NDCFD/NCFDND,ICFDND(MNZ),NCONF
C << still working on this >>

C DOCUMENT NDMAP
      COMMON/NDMAP/NOPEN(MNZ),MFNODE(MCFND,MNZ),IOPENI(MCFND,MNZ),
     &             IOPENf(MCFND,MNZ),JOPENi(MCFND,MNZ),
     &             JOPENf(MCFND,MNZ),KOPENi(MCFND,MNZ),
     &             KOPENf(MCFND,MNZ),FIXM(MCFND,MNZ),
     &             FIXT(MCFND,MNZ),FIXC(MCFND,MNZ),
     &             FIXK(MCFND,MNZ),FIXE(MCFND,MNZ),
     &             IWOPEN(MCFND,MNZ),ICFDCN(MCFND,MNZ),ICNACT(MCFND,MNZ)
C << still working on this >>

C DOCUMENT NSSWP
      COMMON/NSSWP/NSSWPU(MNZ),NSSWPV(MNZ),NSSWPW(MNZ),NSSWPP(MNZ),
     &             NSSWPT(MNZ),NSSWPK(MNZ),NSSWPE(MNZ)
C << still working on this >>

C DOCUMENT NWKCON
      COMMON/NWKCON/NICNN,ICNS(MNCNN),ICNE(MNCNN),ICNNT(MNCNN),
     & ICNSP(MNCNN),ICNEP(MNCNN),CNWNP(MNCNN,MCIP,3),
     & NCONWP(MNCNN),idatrdom(MNCNN),ddtagatr(MNCNN,MIATRB,5),
     & ddatrib(MNCNN,MIATRB,3),ddmenuatr(MNCNN,MIATRB)
C << still working on this >>

C DOCUMENT NWKFLW
      COMMON/NWKFLW/ICONTOFLOW(MNCNN),ICNISNODE(MNCNN)
C << still working on this >>

C DOCUMENT NWKGLOB
      COMMON/NWKGLOB/IDGATRDOM,DDGTAGATR(MIATRB,5),
     & ddgatrib(MIATRB,3),ddgmenuatr(MIATRB)
C Global attributes commons (associated with igatrdom(),dgtagatr(),
C     &  dgatrib(),dgmenuatr() passed back via scanicondb call.


C DOCUMENT NWKGRD
      COMMON/NWKGRD/GRMAX(3),GRSPC(3),GRLYRH(MLYRS)
C << still working on this >>

C DOCUMENT NWKGRDL
      COMMON/NWKGRDL/GON,SON
C << still working on this >>

C DOCUMENT NWKICN
      COMMON/NWKICN/NNICN,ICONTP(MICN),XYZICON(MICN,3),NICONATR(MICN),
     & ATRICN(MICN,MIATRB,3),ATRTAG(MICN,MIATRB,5),ATRMENU(MICN,MIATRB),
     & NCONP(MICN),CONCP(MICN,MCNP,2),ICNCT(MICN,MCNP),
     & VCICON(MICN,MICNV,3),IVEICN(MICN,MICNE,5),NIVC(MICN),
     & NIVE(MICN),NIVD(MICN),IVDOT(MICN,MICND,4),NIVA(MICN),
     & IVARC(MICN,MICND,7),NIVL(MICN),IVLBL(MICN,MICND,3),NIVT(MICN)
C << still working on this >>

C DOCUMENT NWKICS
      COMMON/NWKICS/NWICNM(MICN),NWICNHIS(MICN),NWICNLBL(MICN,MICND),
     & NWICNTXT(MICN,60)
C << still working on this >>

C DOCUMENT NWKSEL
      COMMON/NWKSEL/ISEL(MICN),CSEL(MNCNN)
C << still working on this >>

C DOCUMENT NWKSTR
      COMMON/NWKSTR/NWKNAM,NWKDSC,NWKFLNAM,NWKTYPSTR(MNWKTYP)
C << still working on this >>

C DOCUMENT NWKTYP
      COMMON/NWKTYP/INWKTYP,VERGNF
C << still working on this >>

C DOCUMENT NWKVEW
      COMMON/NWKVEW/SCALF,VIEWCEN(3),VIEWLIM(6),IVIEW
C << still working on this >>

C DOCUMENT OUTIN
      COMMON/OUTIN/IUOUT,IUIN,IEOUT
C << still working on this >>

C DOCUMENT P1
      COMMON/P1/OPRDESC,CTLSTR
C << still working on this >>

C DOCUMENT P2
      COMMON/P2/NAC1,IACS1(MA),IACF1(MA),ACI1(MA),ACV1(MA),
     &          IPT1(MA),TA1(MA),NAC2,IACS2(MA),IACF2(MA),ACI2(MA),
     &          ACV2(MA),IPT2(MA),TA2(MA),NAC3,IACS3(MA),IACF3(MA),
     &          ACI3(MA),ACV3(MA),IPT3(MA),TA3(MA)
C NAC1, NAC2 & - number of distinct air change periods during Weekdays,
C NAC3           Saturdays and Sundays respectively.
C IACS1,IACF1, - start and finish hours of each of the above air change
C IACS2,IACF2,   periods relating to Weekdays, Saturdays and Sundays
C IACS3 & IACF3  respectively.
C ACI1, ACI2   - natural infiltration air changes/hour for each period
C & ACI3         relating to Weekdays, Saturdays and Sundays
C                respectively.
C ACV1, ACV2   - additional incoming air changes/hour for each period
C & ACV3         relating to Weekdays, Saturdays and Sundays
C                respectively.
C IPT1, IPT2   - the additional incoming air (corresponding to ACV1,
C & IPT3         ACV2 & ACV3) can either be at constant temperature -
C                changing, if required, between each period - or set
C                at the time-dependent temperature of some coupled
C                component.   The IPT? variable controls this, where:

C                IPT?=0 signifies a constant temperature will be specified
C                IPT?=N (N>0) signifies that incoming air is at the
C                time-dependent temperature of component N.

C TA1,TA2 &    - correspond to IPT?=0 and define the temperature of the
C TA3            incoming air for each period relating to Weekdays,
C                Saturdays and Sundays respectively.


C DOCUMENT P2CTL
      COMMON/P2CTL/ITCTL(MCOM),TLO(MCOM),TUP(MCOM),THI(MCOM),ACIL(MCOM),
     &             ACVL(MCOM),IVL(MCOM),TAL(MCOM),ACIU(MCOM),ACVU(MCOM),
     &             IVU(MCOM),TAU(MCOM),ACIH(MCOM),ACVH(MCOM),
     &             IVH(MCOM),TAH(MCOM)
C << still working on this >>

C DOCUMENT P3
      COMMON/P3/NCAS1,ICGS1(MC),ICGF1(MC),CMGS1(MC),CMGL1(MC),
     &          RADC1(MC),CONC1(MC),NCAS2,ICGS2(MC),ICGF2(MC),CMGS2(MC),
     &          CMGL2(MC),RADC2(MC),CONC2(MC),NCAS3,ICGS3(MC),ICGF3(MC),
     &          CMGS3(MC),CMGL3(MC),RADC3(MC),CONC3(MC)
C NCAS1,NCAS2  - number of casual gains during a typical Weekday,
C & NCAS3        Saturday and Sunday respectively.

C ICGT1,ICGT2  - Casual gain type:
C ICG3T           1. Occupancy
C                 2. Lights
C                 3. Equipment
C                 4. User controllable gain (not fully utilised as yet)
C                -1. Occupancy as floor area per person
C                -2. Lights in w/m^2 per floor area
C                -3. Equipment in w/m^2 per floor area

C ICGS1,ICGF1, - start and finish hours of each of the above casual gain
C ICGS2,ICGF2,   periods
C ICGS3 & ICGF3

C CMGS1,CMGL1, - sensible and latent magnitude (in Watts) of
C CMGS2,CMGL2,   each casual gain
C CMGS3 & CMGL3

C RADC1,CONC1, - radiant and convective portions (proportion
C RADC2,CONC2,   of 1) of each casual gain
C RADC3,CONC3


C DOCUMENT P3TYPE
      COMMON/P3TYPE/ICGT1(MC),ICGT2(MC),ICGT3(MC)
C << still working on this >>

C DOCUMENT PARAM1
      COMMON/PARAM1/MAXITR(MNZ),IMONT(MNZ),JMONT(MNZ),KMONT(MNZ),
     &             IPPHI(MNZ),SRMAX(MNZ)
C << still working on this >>

C DOCUMENT PARAM2
      COMMON/PARAM2/TITLE(MNZ),CFTRFL(MNZ),LPHI(MNZ)
C << still working on this >>

C DOCUMENT PATHS
      COMMON/PATHS/ZONEPTH,NETPTH,CTLPTH,IMGPTH,RADPTH,DOCPTH,TMPPTH,
     &             dbspth
C ZONEPTH (24 char) relative path to the model zones folder.
C NETPTH (24 char) relative path to the model networks folder
C CTLPTH (24 char) relative path to the model control folder
C IMGPTH (24 char) relative path to the model images folder
C RADPTH (24 char) relative path to the model Radiance folder
C DOCPTH (24 char) relative path to the model documents folder
C TMPPTH (24 char) relative path to scratch folder
C dbspth (24 char) relative path to model specific databases folder

C DOCUMENT PBYDAT
      COMMON/PBYDAT/PBYFIL,NSCVP,IPS
C << still working on this >>

C DOCUMENT PCELFLG
      COMMON/PCELFLG/IPCELF(MPCOM)
C << still working on this >>

C DOCUMENT PCFNGR
      COMMON/PCFNGR/CLFGSD(MCL,6),PCFNGN,IDAYPD
C << still working on this >>

C DOCUMENT PCNAM
      COMMON/PCNAM/PCNAME(MPCOM)
C << still working on this >>

C DOCUMENT PCONV
      COMMON/PCONV/IPCONV,PCNVHT,PCNVCL,PCNVLT,PCNVFN,PCNVSP,PCNVHW
C << still working on this >>

C DOCUMENT PCPAR
      COMMON/PCPAR/NPI(MPCOM), TADATA(MPCOM,MADATA)
C << still working on this >>

C DOCUMENT PCTL
      COMMON/PCTL/NCL,IPSN(MCL,4),IPAN(MCL,4),NPCDT(MCL),
     &       ipcdv(mcl,mpcdt,2),npcdp(mcl,mpcdt),tpcps(mcl,mpcdt,mpcdp),
     &       ipctyp(mcl,mpcdt,mpcdp),ipclaw(mcl,mpcdt,mpcdp),
     &       pmiscd(mcl,mpcdt,mpcdp,misc)
C << still working on this >>

C DOCUMENT PCTLNM
      COMMON/PCTLNM/PNAME
C << still working on this >>

C DOCUMENT PMENU
      COMMON/PMENU/MHEAD,MCTL,MIFULL,MFULL,IST,ILEN,IPM,MPM,IPFLG
C << still working on this >>

C DOCUMENT POPHELP
      COMMON/POPHELP/H(60)
C << still working on this >>

C DOCUMENT POWC
      COMMON/POWC/NPOWCOM,POWCOMNO(MPOWCOM),POWCOMID(MPOWCOM),
     &POWCOMPHTYP(MPOWCOM),POWCONEN(MPOWCOM,MPHAS),
     &NPOWCDAT(MPOWCOM),NPOWCDATS(MPOWCOM),POWCDAT(MPOWCOM,MPWDAT)
C NPOWCOM      - the number of connected power-only components
C POWCOMNO     - the power only component ref no.
C POWCOMID     - power only component database id number
C POWCOMNAM    - string holding the power-only component name
C POWCOMPHTYP  - power only component phase type (relates to PHTYPSTR)
C POWCONEN     - nodes connected to the power only component
C POWCOMDESC   - string holding a description of the power only components
C NPOWCDAT     - number of data items associated with the power only component
C NPOWCDATS    - number of string data items associated with the power only component
C POWCDATS     - string data item for a power only component i.e. file name
C POWCDAT      - power only component numerical data item


C DOCUMENT PREC15
      COMMON/PREC15/RGAPS(MCOM,MS,MGP)
C << still working on this >>

C DOCUMENT PREC17
      COMMON/PREC17/ZBASEA(MCOM),IBASES(MCOM,6),IUZBASEA(MCOM)
C << still working on this >>

C DOCUMENT PREC2
      COMMON/PREC2/VOL(MCOM)
C << still working on this >>

C DOCUMENT PREC8
      COMMON/PREC8/SLAT,SLON
C << still working on this >>

C DOCUMENT PREC9
      COMMON/PREC9/NCONST(MCOM),NELTS(MCOM,MS),NGAPS(MCOM,MS),
     &             npgap(mcom,ms,mgp)
C << still working on this >>

C DOCUMENT PRECT2
      COMMON/PRECT2/TMCT2(MCOM,MTMC,5,MBP),TMCA2(MCOM,MTMC,ME,5,MBP),
     &              TVTR2(MCOM,MTMC,MBP)
c TMCT2   - direct solar transmittance at 5 representative incidence
c         angles for TMC system during each period (replacement values).
c TMCA2   - absorptances for each glazing element at 5 representative
c         incidence angles for TMC system during each period
c         (replacement values).
C TVTR2   - visible transmitttance for the tmc (replacement value).


C DOCUMENT PRECT3
      COMMON/PRECT3/NTMC,NGLAZ(MTMC)
C << still working on this >>

C DOCUMENT PRECT4
      COMMON/PRECT4/TOPTIC(MCOM,MTMC)
C << still working on this >>

C DOCUMENT PRECTC
      COMMON/PRECTC/ITMCFL(MCOM,MS),TMCT(MCOM,MTMC,5),
     &       TMCA(MCOM,MTMC,ME,5),TMCREF(MCOM,MTMC),TVTR(MCOM,MTMC)
c ITMCFL  - index identifying whether an opaque surface is to be
c         treated as a transparent construction.
c TMCT    - direct solar transmittance at 5 representative
c         incidence angles for TMC system (standard values).
C TMCA    - absorptances for each glazing element at 5 representative
C         incidence angles for TMC system (standard values).
C TVTR    - visible transmitttance for the tmc (for daylighting).


C DOCUMENT PRECZ
      COMMON/PRECZ/ZNAME(MCOM),ZDESC(MCOM)
C << still working on this >>

C DOCUMENT PRODB
      COMMON/PRODB/LPRFDB,IPRODB
C << still working on this >>

C DOCUMENT PRSREF
      COMMON/PRSREF/IPRESF(MNZ),JPRESF(MNZ),KPRESF(MNZ)
C << still working on this >>

C DOCUMENT RADCFG
      COMMON/RADCFG/LRADCF
C << still working on this >>

C DOCUMENT RAY2
      COMMON/RAY2/ITDSP,ITBND,ITEPT,ITZNM,ITSNM,ITVNO,ITORG,ITSNR,
     &            ITOBS,ITHLS,ITHLZ,ITGRD,GRDIS
C << still working on this >>

C DOCUMENT RAY5
      COMMON/RAY5/ZCOG(MCOM,3),XMN,YMN,ZMN,XMX,YMX,ZMX
C << still working on this >>

C DOCUMENT RAY5SV
      COMMON/RAY5SV/OXMN,OYMN,OZMN,OXMX,OYMX,OZMX
C << still working on this >>

C DOCUMENT RAY6
      COMMON/RAY6/LINSTY(MCON)
C << still working on this >>

C DOCUMENT RAY7
      COMMON/RAY7/ZXMN(MCOM),ZYMN(MCOM),ZZMN(MCOM),ZXMX(MCOM),
     &            ZYMX(MCOM),ZZMX(MCOM),ZBFLG(MCOM)
C ZXMN(),ZYMN(),ZZMN() are the zone minimum bounds.
C ZXMX(),ZYMX(),ZZMX() are the zone maximum bounds.

C DOCUMENT RELAX
      COMMON/RELAX/NRFAC,URLX,VRLX,WRLX,PRLX,KRLX,ERLX,TRLX
C << still working on this >>

C DOCUMENT RENORM
      COMMON/RENORM/LRENORM
C << still working on this >>

C DOCUMENT REP3RD
      COMMON/REP3RD/REPLBL,REPEXE
C << still working on this >>

C DOCUMENT RPATH
      COMMON/RPATH/PATH
C << still working on this >>

C DOCUMENT SBDARY
      COMMON/SBDARY/NSB(MNZ),ISBI(MNSBZ,MNZ),ISBF(MNSBZ,MNZ),
     &              JSBi(MNSBZ,MNZ),JSBf(MNSBZ,MNZ),
     &              KSBi(MNSBZ,MNZ),KSBf(MNSBZ,MNZ),
     &              ISUFLC(MNSBZ,MNZ),IWSB(MNSBZ,MNZ),SSB(MNSBZ,MNZ),
     &              SSBHC(MNSBZ,MNZ),
     &              ITCtype(MNSBZ,MNZ),icTREF(MNSBZ,MNZ)
C << still working on this >>

C DOCUMENT SENACT
      COMMON/SENACT/REALSN(MNONID,3,7),REALAC(MNONID,5,7),SVCTLP,
     &       deltap,ctldrp
C << still working on this >>

C DOCUMENT SET1
      COMMON/SET1/IYEAR,IBDOY,IEDOY,IFDAY,IFTIME
C << still working on this >>

C DOCUMENT SG0
      COMMON/SG0/CTYPE1
C Copy of data in common block G0


C DOCUMENT SG1
      COMMON/SG1/X1(MTV),Y1(MTV),Z1(MTV),NSUR1,JVN1(MS,MV),NVER1(MS),
     &           NTV1
C Copy of data in common block G1


C DOCUMENT SG4
      COMMON/SG4/NDP1,IDPN1(3)
C Copy of data in common block G4


C DOCUMENT SG5
      COMMON/SG5/SNAME1(MS),SOTF1(MS),SMLCN1(MS),SVFC1(MS),SOTHER1(MS)
C Copy of data in common block G5


C DOCUMENT SHOUT
      COMMON/SHOUT/ICOUT
C << still working on this >>

C DOCUMENT SHOWIMG
      COMMON/SHOWIMG/IMGTYP,FMTTAG(5),FMTEXE(5)
C << still working on this >>

C DOCUMENT SPAD
      COMMON/SPAD/MMOD,LIMIT,LIMTTY
C << still working on this >>

C DOCUMENT SPFLDAT
      COMMON/SPFLDAT/NSSET,ISSET,ISSTUP,ISBNSTEP,ISPNSTEP,ISSAVE
C << still working on this >>

C DOCUMENT SPFLDES
      COMMON/SPFLDES/SPFDESCR(MSPS)
C << still working on this >>

C DOCUMENT SPFLPER
      COMMON/SPFLPER/ISSTDAY(MSPS),ISSTMON(MSPS),ISFNDAY(MSPS),
     &               isfnmon(MSPS)
C << still working on this >>

C DOCUMENT SPFLRES
      COMMON/SPFLRES/SBLRES(MSPS),SFLRES(MSPS),SPLRES(MSPS),
     &  smstres(MSPS),selres(MSPS),sipvres
C << still working on this >>

C DOCUMENT SPMATL
      COMMON/SPMATL/NSPMNOD,ISPMLOC(MSPMNOD,3),ISPMTYP(MSPMNOD,2),
     &nnodat(mspmnod),spmdat(mspmnod,mspmdat) 
C << still working on this >>

C DOCUMENT SPMATLBL
      COMMON/SPMATLBL/SPMLABEL(MSPMNOD)
C << still working on this >>

C DOCUMENT SPMFXST
      COMMON/SPMFXST/ISPMXIST,SPFLNAM
C << still working on this >>

C DOCUMENT SPMFXST
      COMMON/SPMFXST/ISPMXIST,SPFLNAM 
C << still working on this >>

C DOCUMENT SPMFXST
      COMMON/SPMFXST/ISPMXIST,SPFLNAM  
C << still working on this >>

C DOCUMENT T1
      COMMON/T1/NE(MS),NAIRG(MS),IPAIRG(MS,MGP),RAIRG(MS,MGP)
C << still working on this >>

C DOCUMENT T2
      COMMON/T2/CON(MS,ME),DEN(MS,ME),SHT(MS,ME),THK(MS,ME)
C << still working on this >>

C DOCUMENT T4
      COMMON/T4/EMISI(MS),EMISE(MS),ABSI(MS),ABSE(MS)
C << still working on this >>

C DOCUMENT TDFFH
      COMMON/TDFFH/NWPR,NITDF,NTSPH,NEXTCL,NEXTRC,LASTHD,
     &             LSTREC,NDBSTP
C << still working on this >>

C DOCUMENT TDFFLG
      COMMON/TDFFLG/ITEMSTD
C << still working on this >>

C DOCUMENT TDFFLG0
      COMMON/TDFFLG0/DBTAG(MIT),DBTASK(MIT),DBZN(MIT)
C << still working on this >>

C DOCUMENT TDFFLG1
      COMMON/TDFFLG1/JALLCLM,JCASUAL(MIT),JZIVENT(MIT),JRAIRVL(MIT),
     &       JSETPTT(MIT),JCTLSTA(MIT),JSKYLUX,JDBTEXT,JWINDVL,JWINDDR,
     &       JRELHUM,JDIFHSL,JDIRSOL,JGLOHSL,JOBJVEL,JOBJDIR,JSKYTMP,
     &       JGLOVRT
C << still working on this >>

C DOCUMENT TDFFLG2
      COMMON/TDFFLG2/IALLCLM,ICASUAL(MCOM),IZIVENT(MCOM),IRAIRVL(MCOM),
     &       ISETPTT(MCOM),ICTLSTA(MCOM),ISKYLUX,IDBTEXT,IWINDVL,
     &       IWINDDR,IRELHUM,IDIFHSL,IDIRSOL,IGLOHSL,IOBJVEL,IOBJDIR,
     &       ISKYTMP,IGLOVRT
C << still working on this >>

C DOCUMENT TDFFT
      COMMON/TDFFT/LTDF
C << still working on this >>

C DOCUMENT TDFI
      COMMON/TDFI/IUTDF,ITDFLG
C << still working on this >>

C DOCUMENT TDFIH1
      COMMON/TDFIH1/TAG(MIT),TTYPE(MIT),TMENU(MIT),TAIDE(MIT)
C << still working on this >>

C DOCUMENT TDFIH2
      COMMON/TDFIH2/NTSTAT(MIT),NTBITS(MIT),
     &              NTMAR(MIT),NTMAT(MIT),NTMAI(MIT)
C << still working on this >>

C DOCUMENT TEXTED
      COMMON/TEXTED/TEDLBL,TEDITOR
C << still working on this >>

C DOCUMENT TEXTPV
      COMMON/TEXTPV/TPREVLBL,TPREVIEW
C << still working on this >>

C DOCUMENT THETA
      COMMON/THETA/THETA1(MCFND,MNZ),THETA2(MCFND,MNZ)
C << still working on this >>

C DOCUMENT TMCB1
      COMMON/TMCB1/IBCMT(MCOM,MTMC)
C << still working on this >>

C DOCUMENT TMCB2
      COMMON/TMCB2/NBCTMC(MCOM,MTMC),IBCST(MCOM,MBP,MTMC),
     &             IBCFT(MCOM,MBP,MTMC),IBCSUR(MCOM,MTMC)
C << still working on this >>

C DOCUMENT TMCB3
      COMMON/TMCB3/NBCTT(MCOM,MBP,MTMC),BACTPT(MCOM,MBP,MTMC)
C << still working on this >>

C DOCUMENT TOTAL
      COMMON/TOTAL/NSURMF, NGRID, NTRPOL
C << still working on this >>

C DOCUMENT TPRINT
      COMMON/TPRINT/TPRLBL,TPRCMD
C << still working on this >>

C DOCUMENT TRACE
      COMMON/TRACE/ITCF,ITRACE(MTRACE),IZNTRC(MCOM),ITU
C << still working on this >>

C DOCUMENT TS
      COMMON/TS/ITSFLG,NTSCPD,ITSSCH(MSCH,5),ITSMUS
C << still working on this >>

C DOCUMENT TS6
      COMMON/TS6/IDYSV,IHRSV,IRWCOU,TSCLAW,REWND,NSNCV1,NSNCV2,PASONE
C << still working on this >>

C DOCUMENT TUTOPTS
      COMMON/TUTOPTS/TUTLBL,TUTEXE
C << still working on this >>

C DOCUMENT TYPPER
      COMMON/TYPPER/IA1WINS,IA1WINF,IA1SPRS,IA1SPRF,
     &  iasums,iasumf,ia2sprs,ia2sprf,ia2wins,ia2winf
C << still working on this >>

C DOCUMENT TYPSE
      COMMON/TYPSEA/IS1WINS,IS1WINF,IS2WINS,IS2WINF,IS1SPRS,IS1SPRF,
     &              is2sprs,is2sprf,is1sums,is1sumf
C Season definitions. 2 periods for winter (i.e. nov-dec and
C jan-feb), transition (i.e. mar-may & sep-oct) and one period for summer.

C DOCUMENT UA1
      COMMON/UA1/LUALF,LCNG(MNCNG),LLOC(MNIL)
C << still working on this >>

C DOCUMENT UA2
      COMMON/UA2/NILOC,NZG(MNIL),NZNOG(MNIL,MCOM),NSG(MNIL,MCOM),
     &             NSNOG(MNIL,MCOM,MS)
C << still working on this >>

C DOCUMENT UA2T
      COMMON/UA2T/NTLOC(MNIL),NTG(MNIL,4)
C << still working on this >>

C DOCUMENT UA3
      COMMON/UA3/NICNG,IDTYP(MNCNG),IDMAT(MNCNG,3),DAT(MNCNG,2)
C << still working on this >>

C DOCUMENT UA31
      COMMON/UA31/MATNAM(MNCNG,2)
C << still working on this >>

C DOCUMENT UA32
      COMMON/UA32/IMISCD(MNCNG,2)
C << still working on this >>

C DOCUMENT UA4
      COMMON/UA4/NIACT,IACTD(MNACT,2)
C << still working on this >>

C DOCUMENT UDESC
      COMMON/UDESC/AIRF(MCOM),CASG(MCOM),LVIEW(MCOM),LHCCO(MCOM),
     &             LTWIN(MCOM),LCGCIN(MCOM),ZOBS(MCOM)
C << still working on this >>

C DOCUMENT UHOME
      COMMON/UHOME/UPATH
C << still working on this >>

C DOCUMENT USER
      COMMON/USER/BROWSE
C << still working on this >>

C DOCUMENT UVEL
      COMMON/UVEL/RESORU,NSWPU,URFU,FSDTU,DXEPU(NTCELX),
     1            DXPWU(ntcelx),SEWU(ntcelx)
C << still working on this >>

C DOCUMENT VARIC
      COMMON/VARIC/NINIT,UIC,VIC,WIC,PIC,KIC,EIC,TIC
C << still working on this >>

C DOCUMENT VIEWPX
      COMMON/VIEWPX/MENUCHW,IGL,IGR,IGT,IGB,IGW,IGWH
C << still working on this >>

C DOCUMENT VISFIL
      COMMON/VISFIL/LVEC,LBIT
C << still working on this >>

C DOCUMENT OVRWT
      COMMON/OVRWT/AUTOVR
C << still working on this >>

C DOCUMENT VTHP02
      COMMON/VTHP02/IVKON(MCOM,MS,ME)
C << still working on this >>

C DOCUMENT VTHP11
      COMMON/VTHP11/NTHF,IBTHAL(MTHF,3)
C << still working on this >>

C DOCUMENT VTHP12
      COMMON/VTHP12/NTHEQ(MTHF),BTHDT(MTHF,MTHEQ,MDATA)
C << still working on this >>

C DOCUMENT VTHP14
      COMMON/VTHP14/THRMLI(MCOM,MS,ME,7)
C << still working on this >>

C DOCUMENT VTHP1
      COMMON/VTHP18/LNLTHP
C << still working on this >>

C DOCUMENT VTHP30
      COMMON/VTHP30/ILTHPS,ILTHPZ(MCOM)
C << still working on this >>

C DOCUMENT VTHP3
      COMMON/VTHP31/INTHPS,INTHPZ(MCOM)
C << still working on this >>

C DOCUMENT VVEL
      COMMON/VVEL/RESORV,NSWPV,URFV,FSDTV,DYNPV(NTCELY),
     1            DYPSV(ntcely),SNSV(ntcely)
C << still working on this >>

C DOCUMENT WKDTYP
      COMMON/WKDTYP/IDWE1,IDWE2,WKD1,WKD2
C << still working on this >>

C DOCUMENT WRNOFF
      COMMON/WRNOFF/IWMOFF
C << still working on this >>

C DOCUMENT WVEL
      COMMON/WVEL/RESORW,NSWPW,URFW,FSDTW,DZHPW(NTCELZ),
     1            DZPLW(ntcelz),SHLW(ntcelz)
C << still working on this >>

C DOCUMENT ZTURB
      COMMON/ZTURB/RMOOT,NZTOKE
C << still working on this >>

C DOCUMENT IDRHCTL1
C      COMMON/IDRHCTL1/RHSPT(MCOM),IRHCT(MCOM)
C << still working on this >>

