Skip to content

GitLab

elpa
elpa
Commit 1c076203 authored by Pavel Kus's avatar Pavel Kus
Browse files
Options

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

by putting #ifdef WIHT_MPI where it should have been
parent 2de377ed
Hide whitespace changes
Inline Side-by-side
Showing with 12 additions and 1 deletion
test/Fortran/elpa2/complex_2stage_banded.F90
View file @ 1c076203
......@@ -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)
......
test/Fortran/elpa2/double_instance.F90
View file @ 1c076203
......@@ -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)
......
test/Fortran/elpa2/real_2stage_banded.F90
View file @ 1c076203
......@@ -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)
......
test/Fortran/elpa2/single_complex_2stage_banded.F90
View file @ 1c076203
......@@ -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)
......
test/Fortran/elpa2/single_real_2stage_banded.F90
View file @ 1c076203
......@@ -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