c       Program to determine cold frontal passages over South America 
c234567890123456789001234567890123456789012345678901234567890123456789012
      parameter (ndmax=10958,imax=29,jmax=29)
      character path*30
      data path/'/cpc/home/wd52vk/samer/fronts/'/
      open (11,file=path//'SA-cf-dates-y1980-2009',
     *access='direct',form='unformatted',recl=28)
      open (51,file=path//'SA-cf-dates-swne-section-12mons1980-2009',
     *access='direct',form='unformatted',recl=28)
      irec=0
      iref=13
      jref=7
      nrec=0
 99   continue
      irec=irec+1
      read(11,rec=irec)i,j,idate,ndate,sum,v,tot
      if(i.eq.iref.and.j.eq.jref)go to 1
      if(i.gt.iref)go to 2
      go to 99
 2    iref=iref+1
      jref=jref+1
      if(jref.gt.19)go to 999
      if(i.eq.iref.and.j.eq.jref)go to 1
      go to 99 
 1    continue
c     iyear=idate/10000
c     imon=(idate-iyear*10000)/100
c     iday=idate-iyear*10000-imon*100
c     if(imon.ne.2)go to 99
      nrec=nrec+1
      write(51,rec=nrec)i,j,idate,ndate,sum,v,tot
      write(6,200)i,j,idate,ndate,sum,v,tot
 200  format(4i10,3f8.1)
      go to 99
 999  continue
      stop
      end