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-swne-section-dec1980-2009',
     *access='direct',form='unformatted',recl=28)
      irec=0
 99   continue
      irec=irec+1
      read(11,rec=irec)i,j,idate,ndate,sum,v,tot
      if(j.gt.19)go to 999
      iyear=idate/10000
      imon=(idate-iyear*10000)/100
      iday=idate-iyear*10000-imon*100
      if(iyear.eq.2009)go to 1
      go to 99
 1    continue
      write(6,200)i,j,idate,ndate,sum,v,tot
 200  format(4i10,3f8.1)
      go to 99
 999  continue
      stop
      end