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:     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
  