program READ_SST
      parameter(ilat=180,ilon=360,undef=-999.99)
      integer value(ilon,ilat),day,month,year
      real   sst(ilon,ilat)
      character*38  IFILE
c
      IFILE="HadISST1_SST_1971-2006.txt"
c
      open (20,file=IFILE,form="formatted",status="old",
     +      access="sequential")
c
c*** Main loop
c
      irec=1
 111  read(20,900,end=999) day,month,year
      print *,"day,month,year",day,month,year
      do j=1,ilat
      read(20,901) (value(i,j),i=1,ilon)
      enddo
c
      do j=1,ilat
      do i=1,ilon
        if(value(i,j).EQ.-1000) then
          sst(i,j)=undef
        elseif(value(i,j).EQ.-32768) then
          sst(i,j)=undef
        else
          sst(i,j) = 0.01*value(i,j)
        endif
      enddo
      enddo
      go to 111
c
 900  format(3I6,i6,a6,i6,a6)
 901  format(360I6)
 999  continue
c
      stop
      end