Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
elpa
elpa
Commits
1c076203
Commit
1c076203
authored
Nov 19, 2018
by
Pavel Kus
Browse files
Making sure, that mpi-related parameters are set only in MPI tests
by putting #ifdef WIHT_MPI where it should have been
parent
2de377ed
Changes
5
Hide whitespace changes
Inline
Side-by-side
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
)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment