Commit e23a05c4 authored by Andreas Marek's avatar Andreas Marek
Browse files

Exclude Toeplitz tests for small matrices

parent c87379f8
......@@ -473,6 +473,13 @@ program test
#endif
#endif /* TEST_CHOLESKY */
! check first whether to abort
if (na < 10) then
#ifdef WITH_MPI
call mpi_finalize(mpierr)
#endif
stop 77
endif
call prepare_matrix_toeplitz(na, diagonalElement, subdiagonalElement, &
d, sd, ds, sds, a, as, nblk, np_rows, &
np_cols, my_prow, my_pcol)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment