c       Program to determine cold frontal passages over South America 
c234567890123456789001234567890123456789012345678901234567890123456789012
      parameter (ndmax=10958,nyrs=30,numcf=12600)
      dimension ndmon(12)
      data ndmon/31,28,31,30,31,30,31,31,30,31,30,31/
      character path*30
      data path/'/cpc/home/wd52vk/samer/fronts/'/
      open (11,file=path//'SA-cf-dates-swne-section-12mons1980-2009',
     *access='direct',form='unformatted',recl=28)
      open (51,file=path//'SA-fropa-dates-for-25s-dec1980-2009',
     *form='formatted')
      nrec=0
      irec=0
 99   continue
      irec=irec+1 
      if(irec.gt.numcf)go to 999
      read(11,rec=irec)i,j,idate,ndate,sum,v,tot
      if(j.ne.13)go to 99
      iyear=idate/10000
      imon=(idate-iyear*10000)/100
      if(imon.ne.12)go to 99
      write(51,200)i,j,idate,ndate,sum,v,tot
 200  format(4i10,3f8.1)
      go to 99
 999  continue
      stop
      end