anchor.diff:    call f_close(93)
   
   #ifdef BOINC
  -  call copyToStdErr(91,"fort.91")
  +  call copyToStdErr(91,"fort.91",10)
     call boinc_finish(errout) ! This call does not return
   #else
  +  call copyToStdErr(91,"fort.91",50)
     if(errout /= 0) then
  -    write(error_unit,"(a,i0)") "ABEND> ERROR Stopping with error ",errout
  +    ! Don't write to stderr, it breaks the error tests.
  +    write(output_unit,"(a,i0)") "ABEND> ERROR Stopping with error ",errout
       stop 1
     else
       stop
  
positive.code:   bufIdx = 0
    bufMax = 0
  10 continue
    read(fUnit,"(a)",end=20,err=20) inLine
    bufIdx = bufIdx + 1
    if(bufIdx > maxLines) bufIdx = 1
    if(bufIdx > bufMax)   bufMax = bufIdx
    inBuf(bufIdx) = inLine
    goto 10
  
  20 continue
    if(bufIdx > 0) then
      do i=bufIdx+1,bufMax
        write(error_unit,"(a)") trim(inBuf(i))
      end do
      if(bufIdx > 1) then
        do i=1,bufIdx
          write(error_unit,"(a)") trim(inBuf(i))
        end do
      end if
    end if
  
negative.code: 
    integer,          intent(in) :: fUnit
    character(len=*), intent(in) :: fName
    integer,          intent(in) :: maxLines
  
    integer i, bufIdx, bufMax, lnSize, ioStat, szBuf(maxLines)
    logical isOpen, fErr
    character(len=256) inLine, inBuf(maxLines)
  
    inquire(unit=fUnit,opened=isOpen)
    if(isOpen) then
  