c----CAMx v7.40 260801
c  
c     CHMDAT.INC contains all chemistry variables 
c                            
c      Copyright Ramboll
c            
c     Modifications:  
c       4/4/00     Added aerosol deposition variables to /aerochm/
c       1/9/02     Aerosol size cut points and density now a function of
c                  species
c       8/20/02    Added minimum CWC to define presence of clouds
c      12/12/02    Expanded species list for Mechanism 4
c       1/10/03    Added array for deposition output species names
c      10/14/04    Modifications for mechanism 10
c      11/30/06    Created by taking Static variables out of chmstry.com
c      12/29/06 -bkoo-     Expanded species list for the updated SOA scheme
c      01/08/07 -bkoo-     Expanded species list for Mechanism 6 (CB05)
c                          Now ipigrxn is a scalar pointer to NO self-reaction
c      07/04/07 -bkoo-     Added pointer to hydrolysis of N2O5
c      04/28/08 -gyarwood- Added EBI solver
c      04/12/12 -cemery-   Added T and P adjustments to photolysis rates
c      04/30/13 -cemery-   Added surface model
c      06/28/13 -bkoo-     Added indexes for new GREASD PiG chemistry
c      10/14/13 -bkoo-     Added pointer to hydrolysis of organic nitrate
c      03/18/14 -bkoo-     Added species for benzene SOA
c      04/07/14 -cemery-   Added top con file
c      12/07/14 -bkoo-     Added species for VBS
c      01/08/16 -bkoo-     Updated for SAPRC99->SAPRC07TC
c                                      Revised VBS
c                                      Removal of IEH solver
c      02/29/16 -bkoo-     Added pointer to heterogeneous rxn of N2O5 + HCL
c      07/20/16 -bkoo-     Added pointer to heterogeneous hydrolysis of INTR
c      09/02/16 -bkoo-     Revised heterogeneous rxn pointers
c      11/28/16 -bkoo-     Revised VBS precursors
c      11/22/17 -bkoo-     Added PFE/PMN/PK/PCA/PMG
c      01/12/18 -bkoo-     Removed BNZA/TOLA/XYLA/ISP/TRP
c      01/06/19 -cemery-   Added PAL/PSI/PTI
c      11/17/20 -cemery-   Added definition of TUV photolysis file labels
c      01/20/21 -gwilson-  Added "blank" pointers for traditional tracer species
c      04/25/26 -gyarwood- Master species list for CAMx v7.4 (428 species)
c 
c-----------------------------------------------------------------------
c     Parameters for some of the switches:
c
c     CDCMC  -- string for requesting the CMC chemistry solver
c     CDEBI  -- string for requesting the EBI chemistry solver
c     CDIEH  -- string for requesting the IEH chemistry solver
c     CDLSOD -- string for requesting the LSODE chemistry solver
c     IDCMC  -- code for using the CMC chemistry solver
c     IDEBI  -- code for using the EBI chemistry solver
c     IDIEH  -- code for using the IEH chemistry solver
c     IDLSOD -- code for using the LSODE chemistry solver
c
c-----------------------------------------------------------------------
c
      character*10 CDCMC
      character*10 CDEBI
      character*10 CDIEH
      character*10 CDLSOD
      integer      IDCMC
      integer      IDEBI
      integer      IDIEH
      integer      IDLSOD
c
      parameter( CDCMC  = "CMC       " )
      parameter( CDEBI  = "EBI       " )
      parameter( CDIEH  = "IEH       " )
      parameter( CDLSOD = "LSODE     " )
      parameter( IDCMC  = 1 )
      parameter( IDEBI  = 2 )
      parameter( IDIEH  = 3 )
      parameter( IDLSOD = 4 )
c 
c-----------------------------------------------------------------------
c    Variables for the number of species in input files:
c
c    ngas    --  number of gas species being modeled
c    naero   --  number of aersol species being modeled
c    nspec   --  total number of modeled species
c    nrad    --  number of radical species being modeled
c    nreact  --  number of chemical reactions
c    idmech  --  the code which determines which chemical mechanism is used
c    idsolv  --  the code which determines which chemstry solver to use
c    navspc  --  number of species to write to output average file
c    ndepspc --  number of species to write to deposition file
c    nicspc  --  number of species in the initial conditions file
c    nbcspc  --  number of species in the boundary conditions file
c    ntcspc  --  number of species in the top concentrations file
c    nemspc  --  number of species in the ALL emissions files
c    nsmspc  --  number of species in surface model
c    nsmrxn  --  number of reactions in surface model
c
c-----------------------------------------------------------------------
c
       integer      ngas
       integer      naero
       integer      nspec
       integer      nrad
       integer      nreact
       integer      idmech
       integer      idsolv
       integer      navspc
       integer      ndepspc
       integer      nicspc
       integer      nbcspc
       integer      ntcspc
       integer      nemspc
       integer      nsmspc
       integer      nsmrxn
c
      common /chm1/ ngas, naero, nspec, nrad, nreact,
     &                         idmech, idsolv, navspc, ndepspc, nicspc,
     &                           nbcspc, ntcspc, nsmspc, nsmrxn, nemspc
c
c-----------------------------------------------------------------------
c
c    aeropt --  keyword for aerosol scheme ('NONE', 'INERT', 'CF')
c    leqsam --  logical flag to use EQSAM chemistry
c
c-----------------------------------------------------------------------
c
      character*10 aeropt
      logical leqsam
c
      common /chm2/ aeropt
      common /chm2dat/ leqsam
c
c-----------------------------------------------------------------------
c     Variables for photolysis data:
c
c     nphot1   -- number of primary photolysis reactions
c     nphot2   -- number of secondary (scaled) photolysis reactions
c
c-----------------------------------------------------------------------
c
      integer nphot1
      integer nphot2
      character*20 tuvlabl(10)
c
      common /photmap/ nphot1, nphot2, tuvlabl
c 
c-----------------------------------------------------------------------
c     Mercury chemistry variables 
c     Variables for vertical profiles of Cl2, Br and BrO for Hg chemistry
c
c     NHTHAL   --  number of heights for halogen concentrations 
c     hthal    --  heights (km) for the top of each concentration range
c     cl2day  --  profile of Cl2 (ppm) with height during day over ocean
c     cl2nite --  profile of Cl2 (ppm) with height at night over ocean
c     brlprof  --  profile of Br (ppm) with height over land
c     brwprof  --  profile of Br (ppm) with height over ocean
c     brolprof --  profile of BrO (ppm) with height over land
c     browprof --  profile of BrO (ppm) with height over ocean
c
c     MWHG     --  Hg molecular weight 
c-----------------------------------------------------------------------
c
      integer, parameter :: NHTHAL = 6
      real, parameter :: MWHG = 200.59
c
      real, dimension(NHTHAL) :: hthal,brlprof,brwprof,brolprof,
     &                           browprof,cl2day,cl2nite
c
      common /halprofs/ hthal, brlprof, brwprof, brolprof, browprof,
     &                  cl2day, cl2nite
c 
c
c-----------------------------------------------------------------------
c     Variables to define parameters for each chemical species:
c
c     henso20  -- Henry's Law constant at STP for SO2 (molar/atm)
c     tfactso2 -- Temperature dependence of SO2 Henry's Law constant (1/K)
c     nbin     -- Number of aerosol size bins
c     cwmin    -- Minimum cloud water threshold (g/m3)
c     tamin    -- Cloud water freezing threshold (K)
c
c-----------------------------------------------------------------------
c
      real henso20
      real tfactso2
      real cwmin
      real tamin
c
      common /depchm/ henso20, tfactso2, cwmin, tamin
c
      integer nbin
c
      common /aerochm/ nbin
c
c-----------------------------------------------------------------------
c     Pointers to photolysis reactions that receive T,P adjustments
c
      integer jno2rxn,jo3rxn,jhcho1rxn,jhcho2rxn,jch3chorxn
      common /phtrxn/ jno2rxn,jo3rxn,jhcho1rxn,jhcho2rxn,jch3chorxn
c
c-----------------------------------------------------------------------
c     Pointers to heterogeneous reactions to be adjusted in KHETERO
c                    N2O5 + H2O -> 2 HNO3       (1)
c                    N2O5 + HCL -> CLN2 + HNO3  (2)
c                    NTR2 + H2O -> HNO3         (3)
c                    INTR + H2O -> HNO3         (4)
c                    SO2        -> SULF         (5)
c                    GLY        -> CGLY         (6)
c                   MGLY        -> CGLY         (7)
c
      integer, parameter :: NHETRXN = 7
      integer, dimension(NHETRXN) :: ihetrxn
      common /hetrxn/ ihetrxn
c
c-----------------------------------------------------------------------
c     Pointer used to lookup pig chemistry rate constant
c
c     ipigrxn  -- pointer to NO self-reaction
c                    NO + NO -> 2 NO2
c
      integer ipigrxn
c
      common /pigrxn/ ipigrxn

      integer, parameter :: l_O    = 1,
     &                      l_O1D  = 2,
     &                      l_OH   = 3,
     &                      l_HO2  = 4,
     &                      l_NO3  = 5,
     &                      l_N2O5 = 6,
     &                      l_NO   = 7,
     &                      l_NO2  = 8,
     &                      l_O3   = 9,
     &                      l_HONO = 10,
     &                      l_HNO3 = 11,
     &                      l_CO   = 12,
     &                      l_FORM = 13,
     &                      l_SO2  = 14,
     &                      l_SULF = 15
      integer, parameter :: NRPIGCHEM = 23
      integer, parameter :: NSPIGCHEM = 15
      integer, dimension(NSPIGCHEM) :: lsmap
      integer, dimension(NRPIGCHEM) :: lrmap
      common /pigchemmap/ lsmap, lrmap
c
c----------------------------------------------------------------------
c    Variables for controlling calls to aerosol routines
c
c     dtaero     -- user input time interval (min) between calls to aerosol 
c                   routines
c     dt_aero    -- adjusted (for I/O frequency) time interval (min) between
c                   calls to aerosol routines
c
      real dtaero
      real dt_aero
c
      common /aero_t/ dtaero, dt_aero
c
c-----------------------------------------------------------------------
c     Parameters for mapping input species to internal model order:
c
c      NSPNAM  -- number of recognizable state species
c
      integer   NSPNAM
c
      parameter ( NSPNAM  =   428 )
c 
c-----------------------------------------------------------------------
c     Variables for mapping input species to internal model order:
c
c     kmap     -- mapping of species on chemistry parameters file to
c                 internal order
c
c-----------------------------------------------------------------------
c
      integer kmap(NSPNAM)
c
      common /kname/ kmap
c
      integer      kapo2,   kautx,   kbzo2
      integer      kc2o3,   kcgly,    kcro
      integer      kcxo3,   kdpar,   kepx2
      integer       kho2,   khpo2,      ki
      integer        kio,   kiso2,   kmeo2
      integer         ko,    ko1d,     koh
      integer       koio,   kopo3,    kro2
      integer       kror,    kto2,   ktpo2
      integer      kxlo2,    kxo2,   kxo2h
      integer      kxo2n,   kxpar,   kxprp
      integer        kbr,    kbro,     kcl
      integer       kclo,   khco3,   karpx
      integer      kbacl,    kdee,    kdme
      integer      kedoh,    keh2,   kestr
      integer      ketac,   ketfm,   kethr
      integer      kfvc1,   khact,   khket
      integer      khpar,   kibta,   kipoh
      integer      kmeac,   kmefm,   knpoh
      integer      kpdoh,    kroh,   ksxd5
      integer      ktprd,   kaacd,   kacet
      integer      kald2,   kaldx,   kbenz
      integer      kcat1,     kco,   kcres
      integer      kcron,    kdms,   kech4
      integer      kepox,    keth,   ketha
      integer      kethy,   ketoh,   kfacd
      integer      kform,    kgly,   kglyd
      integer      kh2o2,    khcl,     khi
      integer      khio3,   khno3,    khoi
      integer      khono,   khpld,     ki2
      integer      ki2o2,   kino3,   kintr
      integer      kiole,   kisop,   kispd
      integer      kispx,   kixoy,    kket
      integer      kmeoh,   kmepx,   kmgly
      integer      kn2o5,    knh3,     kno
      integer       kno2,    kno3,   kntr1
      integer      kntr2,     ko3,    kole
      integer      kopan,   kopen,   kpacd
      integer       kpan,   kpanx,    kpar
      integer       kpna,   kprpa,   krooh
      integer       kso2,    ksqt,   ksulf
      integer      kterp,    ktol,   kxopn
      integer       kxyl,   kacg1,   kacg2
      integer      kaoa0,   kaoa1,   kaoa2
      integer      kbcg1,   kbcg2,   kboa0
      integer      kboa1,   kboa2,   kccrs
      integer      kcprm,   kfcrs,   kfprm
      integer       khoa,   kivc1,   kivc2
      integer      kivoa,     kna,    kpal
      integer       kpca,    kpcl,    kpec
      integer       kpfe,   kph2o,     kpk
      integer       kpmg,    kpmn,   kpnh4
      integer      kpno3,    kpsi,   kpso4
      integer       kpti,   ksvoa,    kcg1
      integer       kcg2,    kcg3,    kcg4
      integer       kpoa,   ksoa1,   ksoa2
      integer      ksoa3,   ksoa4,   ksopa
      integer      ksopb,    kntr,    kbr2
      integer      kbrcl,   kbrn2,   kbrn3
      integer      kch3i,    kcl2,   kclad
      integer      kclao,   kcln2,   kcln3
      integer      kfmbr,   kfmcl,    khbr
      integer      khobr,   khocl,   kialk
      integer       kibr,    kicl,   kino2
      integer       kmb2,   kmb2c,    kmb3
      integer       kmbc,   kmbc2,    kmi2
      integer       kmib,    kmic,   kssbr
      integer      ksscl,   kssn3,    khg0
      integer       khg2,  khgiip, khgiipc
      integer       khgp,   kivob,   kivod
      integer      kivog,   kpap0,   kpap1
      integer      kpap2,   kpap3,   kpap4
      integer      kpas0,   kpas1,   kpas2
      integer      kpas3,   kpas4,   kpbs0
      integer      kpbs1,   kpbs2,   kpbs3
      integer      kpbs4,   kpcp0,   kpcp1
      integer      kpcp2,   kpcp3,   kpcp4
      integer      kpfp0,   kpfp1,   kpfp2
      integer      kpfp3,   kpfp4,   kvap1
      integer      kvap2,   kvap3,   kvap4
      integer      kvas1,   kvas2,   kvas3
      integer      kvas4,   kvbs1,   kvbs2
      integer      kvbs3,   kvbs4,   kvcp1
      integer      kvcp2,   kvcp3,   kvcp4
      integer      kvfp1,   kvfp2,   kvfp3
      integer      kvfp4,   kaco3,   kactp
      integer      kadcn,   kaddc,   kapip
      integer      kbal1,   kbal2,   kbalp
      integer      kbenp,    kcho,   ketep
      integer      kethp,   khc3p,   khc5p
      integer      khc8p,   kketp,   klimp
      integer      kmacp,    kmcp,   kmcto
      integer      kmctp,   kmekp,    kmo2
      integer      kmvkp,   kolip,   kolnd
      integer      kolnn,   koltp,   korap
      integer      kper1,   kper2,   ktlp1
      integer      ktolp,    ktr2,   kualp
      integer       kxy2,   kxyl1,   kxylp
      integer      kxyo2,   kxyop,    kacd
      integer       kace,    kact,    kald
      integer       kapi,    kben,    kcsl
      integer      kdcb1,   kdcb2,   kdcb3
      integer      kdien,    keoh,    kepx
      integer       kete,   keteg,    khc3
      integer       khc5,    khc8,   khno4
      integer      kishp,    kiso,   kison
      integer       klim,   kmahp,    kmct
      integer       kmoh,   knald,    koli
      integer       kolt,   konit,    kop1
      integer       kop2,   kora1,   kora2
      integer       kpaa,   kphen,    kppn
      integer      kuald,    kxym,    kxyo
      integer       kxyp,   kbzc3,    kbzo
      integer      kmac3,   kmco3,    ko3p
      integer      krco3,   kro2c,   kro2x
      integer      ktbuo,   kxace,   kxacr
      integer      kxaf1,   kxaf2,   kxaf3
      integer      kxbac,   kxbal,   kxcch
      integer       kxco,   kxgld,   kxgly
      integer      kxhch,   kxho2,   kxipr
      integer      kxma3,   kxmac,   kxmc3
      integer      kxmek,   kxmeo,   kxmgl
      integer      kxmvk,   kxno2,    kxoh
      integer      kxpd2,   kxrc3,   kxrch
      integer      kxrn3,   kxtbu,   ky6px
      integer      kyapx,   kyrpx,   kzrn3
      integer      kacro,   kacye,   kafg1
      integer      kafg2,   kafg3,   kalk1
      integer      kalk2,   kalk3,   kalk4
      integer      kalk5,   kapin,   karo1
      integer      karo2,   kb124,   kbald
      integer      kbd13,   kccho,   kco3h
      integer      kcooh,   kethe,   khcho
      integer      kiprd,   kmacr,    kmek
      integer      kmpan,    kmvk,   kmxyl
      integer      knphe,   kole1,   kole2
      integer      koxyl,   kpan2,   kpbzn
      integer      kprd2,   kprpe,   kpxyl
      integer      kr6px,   krapx,   krcho
      integer      krno3,   kro3h,   ksesq
      integer      ktolu,     kxn,   ktr01
      integer      ktr02,   ktr03,   ktr04
      integer      ktr05,   ktr06,   ktr07
      integer      ktr08,   ktr09
c
      equivalence
     &   (kmap(  1),   kapo2),(kmap(  2),   kautx),(kmap(  3),   kbzo2),
     &   (kmap(  4),   kc2o3),(kmap(  5),   kcgly),(kmap(  6),    kcro),
     &   (kmap(  7),   kcxo3),(kmap(  8),   kdpar),(kmap(  9),   kepx2),
     &   (kmap( 10),    kho2),(kmap( 11),   khpo2),(kmap( 12),      ki),
     &   (kmap( 13),     kio),(kmap( 14),   kiso2),(kmap( 15),   kmeo2),
     &   (kmap( 16),      ko),(kmap( 17),    ko1d),(kmap( 18),     koh),
     &   (kmap( 19),    koio),(kmap( 20),   kopo3),(kmap( 21),    kro2),
     &   (kmap( 22),    kror),(kmap( 23),    kto2),(kmap( 24),   ktpo2),
     &   (kmap( 25),   kxlo2),(kmap( 26),    kxo2),(kmap( 27),   kxo2h),
     &   (kmap( 28),   kxo2n),(kmap( 29),   kxpar),(kmap( 30),   kxprp),
     &   (kmap( 31),     kbr),(kmap( 32),    kbro),(kmap( 33),     kcl),
     &   (kmap( 34),    kclo),(kmap( 35),   khco3),(kmap( 36),   karpx),
     &   (kmap( 37),   kbacl),(kmap( 38),    kdee),(kmap( 39),    kdme),
     &   (kmap( 40),   kedoh),(kmap( 41),    keh2),(kmap( 42),   kestr),
     &   (kmap( 43),   ketac),(kmap( 44),   ketfm),(kmap( 45),   kethr),
     &   (kmap( 46),   kfvc1),(kmap( 47),   khact),(kmap( 48),   khket),
     &   (kmap( 49),   khpar),(kmap( 50),   kibta),(kmap( 51),   kipoh),
     &   (kmap( 52),   kmeac),(kmap( 53),   kmefm),(kmap( 54),   knpoh),
     &   (kmap( 55),   kpdoh),(kmap( 56),    kroh),(kmap( 57),   ksxd5),
     &   (kmap( 58),   ktprd),(kmap( 59),   kaacd),(kmap( 60),   kacet),
     &   (kmap( 61),   kald2),(kmap( 62),   kaldx),(kmap( 63),   kbenz),
     &   (kmap( 64),   kcat1),(kmap( 65),     kco),(kmap( 66),   kcres),
     &   (kmap( 67),   kcron),(kmap( 68),    kdms),(kmap( 69),   kech4),
     &   (kmap( 70),   kepox),(kmap( 71),    keth),(kmap( 72),   ketha),
     &   (kmap( 73),   kethy),(kmap( 74),   ketoh),(kmap( 75),   kfacd),
     &   (kmap( 76),   kform),(kmap( 77),    kgly),(kmap( 78),   kglyd),
     &   (kmap( 79),   kh2o2),(kmap( 80),    khcl),(kmap( 81),     khi),
     &   (kmap( 82),   khio3),(kmap( 83),   khno3),(kmap( 84),    khoi),
     &   (kmap( 85),   khono),(kmap( 86),   khpld),(kmap( 87),     ki2),
     &   (kmap( 88),   ki2o2),(kmap( 89),   kino3),(kmap( 90),   kintr),
     &   (kmap( 91),   kiole),(kmap( 92),   kisop),(kmap( 93),   kispd),
     &   (kmap( 94),   kispx),(kmap( 95),   kixoy),(kmap( 96),    kket),
     &   (kmap( 97),   kmeoh),(kmap( 98),   kmepx),(kmap( 99),   kmgly),
     &   (kmap(100),   kn2o5),(kmap(101),    knh3),(kmap(102),     kno),
     &   (kmap(103),    kno2),(kmap(104),    kno3),(kmap(105),   kntr1),
     &   (kmap(106),   kntr2),(kmap(107),     ko3),(kmap(108),    kole),
     &   (kmap(109),   kopan),(kmap(110),   kopen),(kmap(111),   kpacd),
     &   (kmap(112),    kpan),(kmap(113),   kpanx),(kmap(114),    kpar),
     &   (kmap(115),    kpna),(kmap(116),   kprpa),(kmap(117),   krooh),
     &   (kmap(118),    kso2),(kmap(119),    ksqt),(kmap(120),   ksulf),
     &   (kmap(121),   kterp),(kmap(122),    ktol),(kmap(123),   kxopn),
     &   (kmap(124),    kxyl),(kmap(125),   kacg1),(kmap(126),   kacg2),
     &   (kmap(127),   kaoa0),(kmap(128),   kaoa1),(kmap(129),   kaoa2),
     &   (kmap(130),   kbcg1),(kmap(131),   kbcg2),(kmap(132),   kboa0),
     &   (kmap(133),   kboa1),(kmap(134),   kboa2),(kmap(135),   kccrs),
     &   (kmap(136),   kcprm),(kmap(137),   kfcrs),(kmap(138),   kfprm),
     &   (kmap(139),    khoa),(kmap(140),   kivc1),(kmap(141),   kivc2),
     &   (kmap(142),   kivoa),(kmap(143),     kna),(kmap(144),    kpal),
     &   (kmap(145),    kpca),(kmap(146),    kpcl),(kmap(147),    kpec),
     &   (kmap(148),    kpfe),(kmap(149),   kph2o),(kmap(150),     kpk),
     &   (kmap(151),    kpmg),(kmap(152),    kpmn),(kmap(153),   kpnh4),
     &   (kmap(154),   kpno3),(kmap(155),    kpsi),(kmap(156),   kpso4),
     &   (kmap(157),    kpti),(kmap(158),   ksvoa),(kmap(159),    kcg1),
     &   (kmap(160),    kcg2),(kmap(161),    kcg3),(kmap(162),    kcg4),
     &   (kmap(163),    kpoa),(kmap(164),   ksoa1),(kmap(165),   ksoa2),
     &   (kmap(166),   ksoa3),(kmap(167),   ksoa4),(kmap(168),   ksopa),
     &   (kmap(169),   ksopb),(kmap(170),    kntr),(kmap(171),    kbr2),
     &   (kmap(172),   kbrcl),(kmap(173),   kbrn2),(kmap(174),   kbrn3),
     &   (kmap(175),   kch3i),(kmap(176),    kcl2),(kmap(177),   kclad),
     &   (kmap(178),   kclao),(kmap(179),   kcln2),(kmap(180),   kcln3),
     &   (kmap(181),   kfmbr),(kmap(182),   kfmcl),(kmap(183),    khbr),
     &   (kmap(184),   khobr),(kmap(185),   khocl),(kmap(186),   kialk),
     &   (kmap(187),    kibr),(kmap(188),    kicl),(kmap(189),   kino2),
     &   (kmap(190),    kmb2),(kmap(191),   kmb2c),(kmap(192),    kmb3),
     &   (kmap(193),    kmbc),(kmap(194),   kmbc2),(kmap(195),    kmi2),
     &   (kmap(196),    kmib),(kmap(197),    kmic),(kmap(198),   kssbr),
     &   (kmap(199),   ksscl),(kmap(200),   kssn3),(kmap(201),    khg0),
     &   (kmap(202),    khg2),(kmap(203),  khgiip),(kmap(204), khgiipc),
     &   (kmap(205),    khgp),(kmap(206),   kivob),(kmap(207),   kivod),
     &   (kmap(208),   kivog),(kmap(209),   kpap0),(kmap(210),   kpap1),
     &   (kmap(211),   kpap2),(kmap(212),   kpap3),(kmap(213),   kpap4),
     &   (kmap(214),   kpas0),(kmap(215),   kpas1),(kmap(216),   kpas2),
     &   (kmap(217),   kpas3),(kmap(218),   kpas4),(kmap(219),   kpbs0),
     &   (kmap(220),   kpbs1),(kmap(221),   kpbs2),(kmap(222),   kpbs3),
     &   (kmap(223),   kpbs4),(kmap(224),   kpcp0),(kmap(225),   kpcp1),
     &   (kmap(226),   kpcp2),(kmap(227),   kpcp3),(kmap(228),   kpcp4),
     &   (kmap(229),   kpfp0),(kmap(230),   kpfp1),(kmap(231),   kpfp2),
     &   (kmap(232),   kpfp3),(kmap(233),   kpfp4),(kmap(234),   kvap1),
     &   (kmap(235),   kvap2),(kmap(236),   kvap3),(kmap(237),   kvap4),
     &   (kmap(238),   kvas1),(kmap(239),   kvas2),(kmap(240),   kvas3),
     &   (kmap(241),   kvas4),(kmap(242),   kvbs1),(kmap(243),   kvbs2),
     &   (kmap(244),   kvbs3),(kmap(245),   kvbs4),(kmap(246),   kvcp1),
     &   (kmap(247),   kvcp2),(kmap(248),   kvcp3),(kmap(249),   kvcp4),
     &   (kmap(250),   kvfp1),(kmap(251),   kvfp2),(kmap(252),   kvfp3),
     &   (kmap(253),   kvfp4),(kmap(254),   kaco3),(kmap(255),   kactp),
     &   (kmap(256),   kadcn),(kmap(257),   kaddc),(kmap(258),   kapip),
     &   (kmap(259),   kbal1),(kmap(260),   kbal2),(kmap(261),   kbalp),
     &   (kmap(262),   kbenp),(kmap(263),    kcho),(kmap(264),   ketep),
     &   (kmap(265),   kethp),(kmap(266),   khc3p),(kmap(267),   khc5p),
     &   (kmap(268),   khc8p),(kmap(269),   kketp),(kmap(270),   klimp)
      equivalence
     &   (kmap(271),   kmacp),(kmap(272),    kmcp),(kmap(273),   kmcto),
     &   (kmap(274),   kmctp),(kmap(275),   kmekp),(kmap(276),    kmo2),
     &   (kmap(277),   kmvkp),(kmap(278),   kolip),(kmap(279),   kolnd),
     &   (kmap(280),   kolnn),(kmap(281),   koltp),(kmap(282),   korap),
     &   (kmap(283),   kper1),(kmap(284),   kper2),(kmap(285),   ktlp1),
     &   (kmap(286),   ktolp),(kmap(287),    ktr2),(kmap(288),   kualp),
     &   (kmap(289),    kxy2),(kmap(290),   kxyl1),(kmap(291),   kxylp),
     &   (kmap(292),   kxyo2),(kmap(293),   kxyop),(kmap(294),    kacd),
     &   (kmap(295),    kace),(kmap(296),    kact),(kmap(297),    kald),
     &   (kmap(298),    kapi),(kmap(299),    kben),(kmap(300),    kcsl),
     &   (kmap(301),   kdcb1),(kmap(302),   kdcb2),(kmap(303),   kdcb3),
     &   (kmap(304),   kdien),(kmap(305),    keoh),(kmap(306),    kepx),
     &   (kmap(307),    kete),(kmap(308),   keteg),(kmap(309),    khc3),
     &   (kmap(310),    khc5),(kmap(311),    khc8),(kmap(312),   khno4),
     &   (kmap(313),   kishp),(kmap(314),    kiso),(kmap(315),   kison),
     &   (kmap(316),    klim),(kmap(317),   kmahp),(kmap(318),    kmct),
     &   (kmap(319),    kmoh),(kmap(320),   knald),(kmap(321),    koli),
     &   (kmap(322),    kolt),(kmap(323),   konit),(kmap(324),    kop1),
     &   (kmap(325),    kop2),(kmap(326),   kora1),(kmap(327),   kora2),
     &   (kmap(328),    kpaa),(kmap(329),   kphen),(kmap(330),    kppn),
     &   (kmap(331),   kuald),(kmap(332),    kxym),(kmap(333),    kxyo),
     &   (kmap(334),    kxyp),(kmap(335),   kbzc3),(kmap(336),    kbzo),
     &   (kmap(337),   kmac3),(kmap(338),   kmco3),(kmap(339),    ko3p),
     &   (kmap(340),   krco3),(kmap(341),   kro2c),(kmap(342),   kro2x),
     &   (kmap(343),   ktbuo),(kmap(344),   kxace),(kmap(345),   kxacr),
     &   (kmap(346),   kxaf1),(kmap(347),   kxaf2),(kmap(348),   kxaf3),
     &   (kmap(349),   kxbac),(kmap(350),   kxbal),(kmap(351),   kxcch),
     &   (kmap(352),    kxco),(kmap(353),   kxgld),(kmap(354),   kxgly),
     &   (kmap(355),   kxhch),(kmap(356),   kxho2),(kmap(357),   kxipr),
     &   (kmap(358),   kxma3),(kmap(359),   kxmac),(kmap(360),   kxmc3),
     &   (kmap(361),   kxmek),(kmap(362),   kxmeo),(kmap(363),   kxmgl),
     &   (kmap(364),   kxmvk),(kmap(365),   kxno2),(kmap(366),    kxoh),
     &   (kmap(367),   kxpd2),(kmap(368),   kxrc3),(kmap(369),   kxrch),
     &   (kmap(370),   kxrn3),(kmap(371),   kxtbu),(kmap(372),   ky6px),
     &   (kmap(373),   kyapx),(kmap(374),   kyrpx),(kmap(375),   kzrn3),
     &   (kmap(376),   kacro),(kmap(377),   kacye),(kmap(378),   kafg1),
     &   (kmap(379),   kafg2),(kmap(380),   kafg3),(kmap(381),   kalk1),
     &   (kmap(382),   kalk2),(kmap(383),   kalk3),(kmap(384),   kalk4),
     &   (kmap(385),   kalk5),(kmap(386),   kapin),(kmap(387),   karo1),
     &   (kmap(388),   karo2),(kmap(389),   kb124),(kmap(390),   kbald),
     &   (kmap(391),   kbd13),(kmap(392),   kccho),(kmap(393),   kco3h),
     &   (kmap(394),   kcooh),(kmap(395),   kethe),(kmap(396),   khcho),
     &   (kmap(397),   kiprd),(kmap(398),   kmacr),(kmap(399),    kmek),
     &   (kmap(400),   kmpan),(kmap(401),    kmvk),(kmap(402),   kmxyl),
     &   (kmap(403),   knphe),(kmap(404),   kole1),(kmap(405),   kole2),
     &   (kmap(406),   koxyl),(kmap(407),   kpan2),(kmap(408),   kpbzn),
     &   (kmap(409),   kprd2),(kmap(410),   kprpe),(kmap(411),   kpxyl),
     &   (kmap(412),   kr6px),(kmap(413),   krapx),(kmap(414),   krcho),
     &   (kmap(415),   krno3),(kmap(416),   kro3h),(kmap(417),   ksesq),
     &   (kmap(418),   ktolu),(kmap(419),     kxn),(kmap(420),   ktr01),
     &   (kmap(421),   ktr02),(kmap(422),   ktr03),(kmap(423),   ktr04),
     &   (kmap(424),   ktr05),(kmap(425),   ktr06),(kmap(426),   ktr07),
     &   (kmap(427),   ktr08),(kmap(428),   ktr09)
