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:   write(lerr,"(a,i0)") "ABEND> ERROR Reading fort.92, iostat = ",ierro
  
  15 continue
    write(6,"(a)",iostat=ierro) "SIXTRACR> Stop "//cstring
    rewind(92) ! Get rid of fort.92
    endfile(92,iostat=ierro)
    call f_close(92)
  
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
  