anchor.diff:                 call usage
            end select
         enddo
  -      if (.not.outfile_set) outfile = trim(infile) // '.nc'
         call get_command(command)
      end subroutine get_args
   
  -end program rad3toncf
  +end program rad3voltoncf
   !-------------------------------------------------------------------------------
  
positive.code:    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.
  
     call get_args
  
  
negative.code:                iarg = iarg + 4
              case('-o')
                 call get_command_argument(iarg+1, outfile)
                 iarg = iarg + 2
              case('-rmean')
                 rmean = .true.
  