anchor.diff:  !character (len=*), allocatable :: basedir
   character(len=4) :: tile_num
   integer, parameter :: dx=3750, dy=3750
  -character(len=255) :: dayfile, nightfile, dtimefile, ntimefile
  -character(len=255) :: avgfile, dztimefile, nztimefile
  +character(len=400) :: dayfile, outdayfile, dtimefile, ntimefile
  +character(len=400) :: avgfile, dztimefile, nztimefile
   character(len=255) :: arg4, basedir
   character(len=4) :: arg1, arg3
   character(len=3) :: arg2
  
positive.code: call getarg(2,arg2)
  call getarg(3,arg3)
  call getarg(4,tile_num)
  call getarg(5,arg4)
  read(arg1,'(i4)') iyear
  read(arg2,'(i3)') iday
  read(arg3,'(i4)') time
  basedir=trim(arg4)
  
  write(6,*) iyear, iday, time, tile_num, basedir
  yyyyddd=iyear*1000+iday
  
negative.code: enddo
  enddo
  
  !write(dayfile,'(a,a,a)') basedir,'/PROCESSING/overpass_corr/TRAD1_',tile_num
  open(10,file=outdayfile,form='unformatted',access='direct',recl=dx*dy*4)
  write(10,rec=1) day_corr
  close(10)
  
  