c     Program written 11/14/13 by Vern Kousky
c     creates swne section for daily data 1980-2009 
c23456789012345678901234567890123456789012345678901234567890123456789012
      parameter (imax=40,jmax=40,ndmax=10958)
      dimension x(imax,jmax),xs(24)
      character path*33
      data path/'/cpc/home/wd52vk/samer/satellite/'/
      open (11,file=path//'irwin-SA-daily-ave-1.75x1.75deg-boxes-y1980-2
     *009',access='direct',form='unformatted',recl=imax*jmax*4)
      open (51,file=path//'irwin-swne-section1-y1980-2009',
     *access='direct',form='unformatted',recl=24*4)
      do 1 iday=1,ndmax
      read(11,rec=iday)x
ccc   extract data for swne section
      ii=18
      jj=9
      do 2 k=1,24
      xs(k)=x(ii,jj)
      ii=ii+1
      jj=jj+1
 2    continue
      write(51,rec=iday)xs
 1    continue
      stop
      end