anchor.diff:         write(17, "(A, I0)") 'nProcX = ', nProcX
          write(17, "(A, I0)") 'nProcY = ', nProcY
       end if
  +    call clean_stop(0, .FALSE.)
       stop 1
     end if
   
  
positive.code:       hypre_grid)
  
    ! Finalize MPI
    call MPI_Finalize(ierr)
  
    stop
  end program aronnax
  
negative.code:       do i = 1, nx
          if (data(i,j,k) .ne. data(i,j,k)) then
            write(17, "(A, I0)") "NaN detected at time step ", n
            call clean_stop(n, .FALSE.)
            stop 1
          end if
        end do
  