C---+----1----+----2----+----3----+----4----+----5----+----6----+----7--
      SUBROUTINE TABLE2(TOZ)

C Subroutine: Reads in the TABLE#2 climatological (using Nov78-Jan92
C data) monthly mean TOMS fields tabulated in Reference Publication 
C RP-1360 by Stanford et al. [1995].
C Output data array:
C     TOZ(LON,LAT,MON) = TOMS total column ozone fields
C Array elements:
C     LON=1,2,...,18 <==> 180,-160,-140,...,160 degrees longitude
C     LAT=1,2,...,19 <==> 85S,75S,..,15S,5S,EQU,5N,15N,..,75N,85N
C                           (NOTE: equatorial data is included)
C     MON=1,2,...,12,13 <==> Jan,Feb,...,Dec,climatology(Nov78-Jan92)

      PARAMETER(NLON=18,NLAT=19,NMON=12)
      CHARACTER*115 STUFF
      CHARACTER*10 FNAME
      CHARACTER*6 CHLAT
      INTEGER B(18)
      REAL TOZ(NLON,NLAT,NMON+1)
      DATA FNAME /'table2.n7t'/

      OPEN(12,FORM='FORMATTED',FILE=FNAME,STATUS='OLD')
      DO I=1,5
        READ(12,'(A115)') STUFF
        WRITE(*,'(A115)') STUFF
      ENDDO
      DO MON=1,NMON+1
        READ(12,'(A115)') STUFF
        WRITE(*,'(A115)') STUFF
        DO LAT=1,NLAT
          READ(12,'(1X,A6,18I5)') CHLAT,B
          WRITE(*,'(1X,A6,18I5)') CHLAT,B
          DO LON=1,NLON
            TOZ(LON,NLAT+1-LAT,MON)=FLOAT(B(LON))
          ENDDO
        ENDDO
      ENDDO

      RETURN
      END