anchor.diff:  !===============================================================================
  -program rad3toncf
  +program rad3voltoncf
   !===============================================================================
   ! Convert a set of rad3 files to NetCDF format.  Supply a file containing lines
   !     file, y_offset, x_offset
  
positive.code:                call usage
           end select
        enddo
        if (.not.outfile_set) outfile = trim(infile) // '.nc'
        call get_command(command)
     end subroutine get_args
  
  end program rad3toncf
  !-------------------------------------------------------------------------------
  
negative.code:    character(len=250) :: infile, outfile = 'rad3voltoncf.nc', command
     real(8) :: lin_gain, exp_gain
     integer :: start_samp
     logical :: rmean = .false., gain = .false.
  
     call get_args
  
  