c  written by Vern Kousky 8/5/14
c  Program to write out the dates for highly correlated patterns    
c23456789012345678901234567890123456789012345678901234567890123456789012
      parameter (num=930)
      dimension rcor(num),idate(num)
      character path*33
      data path/'/cpc/home/wd52vk/samer/satellite/'/
      open (11,file='pattern-correlations-irwin-SA-jan1980-2009'
     *,access='direct',form='unformatted',recl=num*4)
      open (51,file='pattern-correlation-dates-rcor70-6jan1986'
     *,form='formatted')
      ndate=19860106
      write(6,201)ndate
      write(51,201)ndate
 201  format(i8)
ccc   compute idate
      n=0
      do 99 iyr=1,30
      iyear=iyr+1979
      imon=1
      do 98 iday=1,31
      n=n+1
      idate(n)=iyear*10000+imon*100+iday
 98   continue
 99   continue
      do 1 n=1,num
      if(idate(n).ne.ndate)go to 1
      write(6,205)ndate,idate(n)
 205  format(2i10)
      read(11,rec=n)rcor
      do 2 k=1,num
      if(rcor(k).lt.70.)go to 2
      write(6,200)idate(k),rcor(k)
      write(51,200)idate(k),rcor(k)
 200  format(5x,i10,2x,f8.1)
 2    continue
 1    continue
      stop
      end