anchor.diff:  ! dictionary to find cross-section information later on.
   !=====================================================================
   
  -  subroutine read_xsdata( path )
  +  subroutine read_xsdata(path)
   
       character(*), intent(in) :: path
   
  
positive.code:     end if
  
      ! Check if xsdata exists and is readable
      inquire( FILE=filename, EXIST=file_exists, READ=readable )
      if ( .not. file_exists ) then
         msg = "Cross section summary '" // trim(filename) // "' does not exist!"
         call error( msg )
      elseif ( readable(1:3) == 'NO' ) then
         msg = "Cross section summary '" // trim(filename) // "' is not readable!" &
              & // "Change file permissions with chmod command."
         call error( msg )
      end if
  
      ! open xsdata file
  
negative.code:     count = 0
      do
         read(unit=in, fmt='(A250)', iostat=ioError) line
         if (ioError < 0) then
            ! reached end of file
            exit
         elseif (ioError > 0) then
            msg = "Unknown error while reading file: " // filename
            close(unit=in)
            call error(msg)
         end if
         count = count + 1
      end do
  