c  written by Vern Kousky 8/18/09
c23456789012345678901234567890123456789012345678901234567890123456789012
      parameter (num=930)
      dimension rcor(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)
      nrec=0
      n=904
      read(11,rec=n)rcor
      write(6,200)rcor
 200  format(15f8.1)
      icnt=0
      do 1 k=1,num
      if(rcor(k).ge.60.)icnt=icnt+1
1     continue
      write(6,201)icnt
 201  format(i8)
      stop
      end