c
      block data blktrac
      include 'tracsat.h'
      character*16 xch(20)
      common /agx/ xch,iget,nch
c
      data luhist/8/, lumag/10/, ludipdec/20/, lusat/12/, ludat/13/
      data
     +  ixt     ,ixu     ,ixv     ,ixo2    ,ixox    ,ixn4s   ,
     +  ixnoz   ,ixco    ,ixco2   ,ixh2o   ,ixh2    ,ixhox   ,
     +  ixop    ,ixch4   ,ixo21d  ,ixno2   ,ixno    ,ixo3    ,
     +  ixo1    ,ixoh    ,ixho2   ,ixh     ,ixn2d   ,ixti    ,
     +  ixte    ,ixne    ,ixo2p   ,ixw     ,ixz     ,ixpot   ,
     +  ixn2    ,ixui    ,ixvi    ,ixwi    ,ixver   ,ixver15m,
     +  ixver53m
     +  /1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,
     +   24,25,26,27,28,29,30,31,32,33,34,35,36,37/
      data flab
     + /'TN      ','UN      ','VN      ','O2      ','OX      ',  
     +  'N4S     ','NOZ     ','CO      ','CO2     ','H2O     ',  
     +  'H2      ','HOX     ','O+      ','CH4     ','O21D    ',
     +  'NO2     ','NO      ','O3      ','O1      ','OH      ',  
     +  'HO2     ','H       ','N2D     ','TI      ','TE      ',  
     +  'NE      ','O2+     ','W       ','Z       ','POTEN   ',
     +  'N2      ','UI      ','VI      ','WI      ','VER6300 ',
     +  'VER15M  ','VER5.3M '/
      data logint
c       tn   un   vn   o2    o  n4s   noz   co  co2  h2o  h2 hox
     +/  0,   0,   0,   1,   1,   1,    1,   1,   1,   1,  1,  1,
c       o+   ch4 o21d no2  no   o3 npo1   oh   ho2    h  n2d   ti
     +   1,    1,  1,   1,  1,   1,   1,   1,    1,   1,   1,   0,
c       te  ne  o2+    w   z   epot  n2  ui  vi  wi  ver ver15m ver5.3m
     +   0,  1,   1,   0,  0,   0,   1,  0,   0,  0,   0,     1,      0/
      data iget/0/, nch/0/
      end