c COMMON BLOCK /tomsframe/ 
c
c   This is the "generic" version:  wavelengths are designated as _w1 .. _w6
c   the corresponding wavelengths are:
c
c     Label   N7 & M3        EP & A1 & FM5
c      _w1      313              308
c      _w2      318              313
c      _w3      331              318
c      _w4      340              322
c      _w5      360              331
c      _w6      380              360
c 
      COMMON /tomsframe/ recno, orbit,time,seq,sync,year,day,alt,nadir,
     1 ref,sza,lat,long,phi,n_w1,n_w2,
     2 n_w3,n_w4,n_w5,n_w6,isnow,o3bst,
     3 clfrac,pres,sens_w1,sens_w2,
     4 sens_w3,sens_w4,sens_w5,resn_w1,resn_w2,
     5 resn_w3,resn_w4,resn_w5,dndr_w1,dndr_w2,
     6 dndr_w3,dndr_w4,dndr_w5,dndr_w6,algflg,
     7 errflg,ozcld,soi,pcloud,prfrac,pthir,
     8 surf,lect

      INTEGER*4  recno
      INTEGER*4  alt, seq, year, day, time, lect, sync, nadir, orbit
      INTEGER*4  algflg(37), errflg(37), isnow(37), surf(37)
      REAL*4     clfrac(37), 
     &           dndr_w1(37), dndr_w2(37), dndr_w3(37),
     &           dndr_w4(37), dndr_w5(37), dndr_w6(37),
     &           lat(37), long(37),
     &           n_w1(37), n_w2(37), n_w3(37),
     &           n_w4(37), n_w5(37), n_w6(37), 
     &           o3bst(37), ozcld(37), pcloud(37),
     &           phi(37), pres(37), prfrac(37), pthir(37), ref(37),
     &           resn_w1(37), resn_w2(37), resn_w3(37),
     &           resn_w4(37), resn_w5(37), 
     &           sens_w1(37), sens_w2(37), sens_w3(37),
     &           sens_w4(37), sens_w5(37), soi(37), sza(37)

      SAVE /tomsframe/