c-----------------------------------------------------------------------
c /rttbls/ - Define common block for radiative transfer tables
c            - For continuous scan tables 
c
c NOTE: any routine that includes this file must also include the file
c  'params.inc'

      REAL*8      sza       (0:n_sza-1)
      REAL*8      lncossza  (0:n_sza-1)
      CHARACTER*1 prftype   (0:n_ozone-1)
      REAL*8      ozone     (0:n_ozone-1)
      REAL*8      waveln    (0:n_waveln-1)
      REAL*8      press     (0:n_press-1)
      REAL*4      fs(0:n_sza-1,0:n_ozone-1,0:n_waveln-1,0:n_press-1)
      REAL*4      gg(0:n_sza-1,0:n_ozone-1,0:n_waveln-1,0:n_press-1)
      REAL*4      sb          (0:n_ozone-1,0:n_waveln-1,0:n_press-1)
      INTEGER*4   ixlowlat, ixmidlat, ixhighlat

      COMMON /rttbls/ waveln, ozone, sza, lncossza, press, 
     &                fs, gg, sb, 
     &                ixlowlat, ixmidlat, ixhighlat, prftype

      SAVE /rttbls/