Scheduled maintenance on Monday 2019-06-24 between 10:00-11:00 CEST

Commit 1c076203 authored by Pavel Kus's avatar Pavel Kus

Making sure, that mpi-related parameters are set only in MPI tests

by putting #ifdef WIHT_MPI where it should have been
parent 2de377ed
......@@ -231,12 +231,14 @@ program test_complex2_double_banded
assert_elpa_ok(success)
call e%set("nblk", nblk, success)
assert_elpa_ok(success)
#ifdef WITH_MPI
call e%set("mpi_comm_parent", MPI_COMM_WORLD, success)
assert_elpa_ok(success)
call e%set("process_row", my_prow, success)
assert_elpa_ok(success)
call e%set("process_col", my_pcol, success)
assert_elpa_ok(success)
#endif
call e%set("bandwidth", bandwidth, success)
assert_elpa_ok(success)
......
......@@ -144,12 +144,14 @@ program test_interface
assert_elpa_ok(success)
call e1%set("nblk", nblk, success)
assert_elpa_ok(success)
#ifdef WITH_MPI
call e1%set("mpi_comm_parent", MPI_COMM_WORLD, success)
assert_elpa_ok(success)
call e1%set("process_row", my_prow, success)
assert_elpa_ok(success)
call e1%set("process_col", my_pcol, success)
assert_elpa_ok(success)
#endif
assert(e1%setup() .eq. ELPA_OK)
......@@ -172,13 +174,14 @@ program test_interface
assert_elpa_ok(success)
call e2%set("nblk", nblk, success)
assert_elpa_ok(success)
#ifdef WITH_MPI
call e2%set("mpi_comm_parent", MPI_COMM_WORLD, success)
assert_elpa_ok(success)
call e2%set("process_row", my_prow, success)
assert_elpa_ok(success)
call e2%set("process_col", my_pcol, success)
assert_elpa_ok(success)
#endif
assert(e2%setup() .eq. ELPA_OK)
call e2%set("solver", ELPA_SOLVER_1STAGE, success)
......
......@@ -224,12 +224,14 @@ program test_real2_double_banded
assert_elpa_ok(success)
call e%set("nblk", nblk, success)
assert_elpa_ok(success)
#ifdef WITH_MPI
call e%set("mpi_comm_parent", MPI_COMM_WORLD, success)
assert_elpa_ok(success)
call e%set("process_row", my_prow, success)
assert_elpa_ok(success)
call e%set("process_col", my_pcol, success)
assert_elpa_ok(success)
#endif
call e%set("bandwidth", bandwidth, success)
assert_elpa_ok(success)
......
......@@ -230,12 +230,14 @@ program test_complex2_single_banded
assert_elpa_ok(success)
call e%set("nblk", nblk, success)
assert_elpa_ok(success)
#ifdef WITH_MPI
call e%set("mpi_comm_parent", MPI_COMM_WORLD, success)
assert_elpa_ok(success)
call e%set("process_row", my_prow, success)
assert_elpa_ok(success)
call e%set("process_col", my_pcol, success)
assert_elpa_ok(success)
#endif
call e%set("bandwidth", bandwidth, success)
assert_elpa_ok(success)
......
......@@ -223,12 +223,14 @@ program test_real2_single_banded
assert_elpa_ok(success)
call e%set("nblk", nblk, success)
assert_elpa_ok(success)
#ifdef WITH_MPI
call e%set("mpi_comm_parent", MPI_COMM_WORLD, success)
assert_elpa_ok(success)
call e%set("process_row", my_prow, success)
assert_elpa_ok(success)
call e%set("process_col", my_pcol, success)
assert_elpa_ok(success)
#endif
call e%set("bandwidth", bandwidth, success)
assert_elpa_ok(success)
......
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