anchor.diff:  !-------------------------------------------------------------------------------
   
   !===============================================================================
  +subroutine rad3_check_file_name(file)
  +!===============================================================================
  +! Makes sure that a file does not contain the extension
  +   character(len=*), intent(in) :: file
  +   if (len_trim(file) > 5) then
  +      if (file(len_trim(file)-3:len_trim(file)) == '.rd3' .or. &
  +          file(len_trim(file)-3:len_trim(file)) == '.rad') &
  +         call rad3_warning('rad3_check_file_name: Supplied filename includes extension.  Do not supply.')
  +   endif
  +end subroutine rad3_check_file_name
  +!-------------------------------------------------------------------------------
  +
  +!===============================================================================
   subroutine rad3_error(str)
   !===============================================================================
      character(len=*), intent(in) :: str
  
positive.code:       ! Header part; not all fields needed
        integer :: n  ! number of samples
        real(rs) :: frequency
        real(rs) :: frequency_steps
        real(rs) :: signal_position
        real(rs) :: raw_signal_position
        integer :: distance_flag
        integer :: time_flag
        integer :: program_flag
  
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
  