anchor.diff:  
      ! Helper routines not exposed
      private :: rad3_error, &
  -              rad3_warning
  +              rad3_warning, &
  +              rad3_allocate, &
  +              rad3_verbose, &
  +              rad3_check_file_name
   
      ! Type defining a section (collection of traces)
      type rad3trace
  
positive.code: !-------------------------------------------------------------------------------
  
  !===============================================================================
  subroutine rad3_remove_mean(tr)
  !===============================================================================
  ! Remove the mean trace from each shot
  
negative.code:    logical :: exists
     integer :: i
  
     call rad3_check_file_name(file)
     ! Get header information
     call rad3_read_rad_file(trim(file)//'.rad', tr)
     ! Allocate memory for section
  