c     Program written 7/11/12 by Vern Kousky
c     program to combine nstn files for 1948-2009.
c23456789012345678901234567890123456789012345678901234567890123456789012
      parameter (imax=40,jmax=40,ndmax=930,nyrs=30,ndmon=31)
      dimension x(imax,jmax)
      dimension fdate(imax,jmax)
      character path*33
      data path/'/cpc/home/wd52vk/samer/satellite/'/
      open (11,file=path//'rank-irwin-SA-daily-anoms-boxes-jan1980-2009'
     *,access='direct',form='unformatted',recl=imax*jmax*4)
      open (12,file=path//'rank-dates-irwin-SA-daily-anoms-boxes-jan1980
     *-2009',access='direct',form='unformatted',recl=imax*jmax*4)
      nrec=0 
      do 1 nd=900,ndmax
      read(11,rec=nd)x
      read(12,rec=nd)fdate
      write(6,200)nd,x(27,19),fdate(27,19)
 200  format(i5,2f12.0)
 1    continue
      stop
      end