anchor.diff:  
   subroutine gcmdln()
   
  -use io, only: stderr, verbosity
  +use io, only: stderr, verbosity, isNumeric
   
   use grid, only: output_file, &
                   grid_mode, &
  
positive.code:             cycle
          else
              call get_command_argument(i,tag)
              read (tag,*,iostat=ios) x_end
              if (ios.ne.0) then
                  ! No second value provided
  
negative.code: ! Arguments
  character(len=*) :: str
  
  ! Local variables
  integer :: i
  
  if (str.ne.'') then
      i = index(str,'no_details')
      if (i.ne.0) then
          if (str.ne.'') then
              write(stderr,*) trim(str(1:i-1))
          endif
          call error_exit(1)
          write(stderr,*)
      endif
  