anchor.diff:  ! dictionary to find cross-section information later on.
   !=====================================================================
   
  -  subroutine read_xsdata( path )
  +  subroutine read_xsdata(path)
   
       character(*), intent(in) :: path
   
  
positive.code:     rewind(in)
      do
         read(unit=in, fmt='(A250)', iostat=ioError) line
         if ( ioError < 0 ) exit
         index = index + 1
         call split_string(line, words, n)
         if ( n == 0 ) cycle ! skip blank line
  
         ! Check to make sure there are enough arguments
         if ( n < 9 ) then
            msg = "Not enough arguments on xsdata line: " // line
            close(unit=in)
            call error( msg )
         end if
  
         iso => xsdatas(index)
  
negative.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
  