c
      block data blktgcmsat
      include "tgcmsat.h"
c
      data satfile
     +  /'                                                        '/
      data lusat/20/, luhist/21/, luascii/22/
      data ifget/nfhist*0/, ifplt/nftot*0/, fields/nftot*0/
      data inttime/1/, lineplt/1/, iwrascii/1/
      data height/0./
      data loght
c       tn   un   vn   o2   ox  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   o1   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 
     +   0,    1,   1,   0,  0,   0,   1/
      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       ','EPOT    ',
     +  'N2      '/
      end