c
      block data blkloc
      include 'timesloc.h'
c
      data labshort
     + /'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       ','EPOTEN  ',
     +  'UI      ','VI      ','WI      ','N2      ','E5577   ',
     +  'E6300   ','EO200   '/
c
      data logterp
c          tn un vn o2 ox n4s noz co co2 h2o h2 hox o+ ch4 o21d
     + /    0, 0, 0, 1, 1,  1,  1, 1,  1,  1, 1,  1, 1,  1,   1,
c          no2  no o3  o1 oh ho2 h n2d ti te ne o2+  w  z  epot
     +      1,   1, 1,  1, 1,  1,1,  1, 0, 0, 1,  1, 0, 0, 0,
c          ui vi wi  n2 e5577 e6300 eo200
     +      0, 0, 0,  1,  1,    1,    1/
c
c Field dependencies (see chflds in libutil.a):
c
c     tn    un    vn    o2    ox    n4s   noz   co    co2   h2o  
c     h2    hox   o+    ch4   o21d  no2   no    o3    o1    oh 
c     ho2   h     n2d   ti    te    ne    o2+   w     z     epot
c     ui    vi    wi    n2
c
c     e5577 e6300 eo200
c
      data ifdep /
c e5577 is dependent on t,o2,o1,n2 (plus u,v if doing doppler)
     +1,    0,    0,    1,    0,    0,    0,    0,    0,    0,
     +0,    0,    0,    0,    0,    0,    0,    0,    1,    0,
     +0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +0,    0,    0,    1,
c e6300 is dependent on t,te,o2,o1,n2,o2+,ne (plus u,v if doing doppler)
     +1,    0,    0,    1,    0,    0,    0,    0,    0,    0,
     +0,    0,    0,    0,    0,    0,    0,    0,    1,    0,
     +0,    0,    0,    0,    1,    1,    1,    0,    0,    0,
     +0,    0,    0,    1,
c eo200 is dependent on t,o2,o1,n2 (plus u,v if doing doppler)
     +1,    0,    0,    1,    0,    0,    0,    0,    0,    0,
     +0,    0,    0,    0,    0,    0,    0,    0,    1,    0,
     +0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
     +0,    0,    0,    1/
c
      end