anchor.diff:    end if
   
   1 write(6,"(a)",iostat=ierro) "SIXTRACR> Stop "//cstring
  -  call f_close(6)
  -  ! and get rid of fort.92
  -  rewind 92
  +  ! call f_close(6)
  +  rewind(92) ! Get rid of fort.92
     endfile(92,iostat=ierro)
     call f_close(92)
     write(93,"(a)") "SIXTRACR> Stop "//cstring
   #ifdef BOINC
  -  do i=2,120
  -    inquire(i,opened=fOpen)
  -    if (fOpen) write(93,"(a,i0,a)") "SIXTRACR> Unit ",i," is open"
  -  end do
  +  ! do i=2,120
  +  !   inquire(i,opened=fOpen)
  +  !   if (fOpen) write(93,"(a,i0,a)") "SIXTRACR> Unit ",i," is open"
  +  ! end do
     ! call boinc_zipitall()
     ! call boinc_finish_graphics()
     if(errout /= 0) then
  
positive.code:     call f_close(93)
      call print_lastlines_to_stderr(93,"fort.93")
      call print_lastlines_to_stderr(6,"fort.6")
  
      write(error_unit,"(a,i0)") "Stopping, errout = ",errout
      stop 1
    else ! No error
  
negative.code:     call boincrf('fort.6',filename)
      call print_lastlines_to_stderr(6,filename)
    end if
    call boinc_finish(errout) ! This call does not return
  #else
    if(errout /= 0) then
      call f_close(93)
      call print_lastlines_to_stderr(93,"fort.93")
      call print_lastlines_to_stderr(6,"fort.6")
      write(error_unit,"(a,i0)") "ABEND> Stopping, errout = ",errout
      stop 1
    else
  