c     Program written 11/14/13 by Vern Kousky
c     creates swne section for daily data 1980-2009 
c23456789012345678901234567890123456789012345678901234567890123456789012
      parameter (imax=29,jmax=29,ndmax=10958)
      dimension x(imax,jmax),xs(17)
      character path*30
      data path/'/cpc/home/wd52vk/samer/fronts/'/
      open (11,file=path//'vvel500-SA-y1980-2009',
     *access='direct',form='unformatted',recl=imax*jmax*4)
      open (51,file=path//'vvel500-swne-section-y1980-2009',
     *access='direct',form='unformatted',recl=17*4)
      do 1 iday=1,ndmax
      read(11,rec=iday)x
ccc   extract dat for swne section
      ii=13
      jj=7
      do 2 k=1,17
      xs(k)=x(ii,jj)
      ii=ii+1
      jj=jj+1
 2    continue
      write(51,rec=iday)xs
 1    continue
      stop
      end