anchor.diff:     character(len=250) :: infile, outfile = 'rad3voltoncf.nc', command
      real(8) :: lin_gain, exp_gain
      integer :: start_samp
  -   logical :: rmean = .false., gain = .false., outfile_set = .false.
  +   logical :: rmean = .false., gain = .false.
   
      call get_args
   
  
positive.code:                iarg = iarg + 4
              case('-o')
                 call get_command_argument(iarg+1, outfile)
                 outfile_set = .true.
                 iarg = iarg + 2
              case('-rmean')
                 rmean = .true.
  
negative.code: !===============================================================================
  program rad3voltoncf
  !===============================================================================
  ! Convert a set of rad3 files to NetCDF format.  Supply a file containing lines
  !     file, y_offset, x_offset
  