Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
elpa
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
14
Issues
14
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
Operations
Operations
Incidents
Environments
Analytics
Analytics
Repository
Value Stream
Wiki
Wiki
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Commits
Issue Boards
Open sidebar
elpa
elpa
Commits
fe11440b
Commit
fe11440b
authored
Oct 10, 2016
by
Andreas Marek
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Remove old deprectated calls from test programs
parent
0a956259
Changes
42
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
Showing
42 changed files
with
80 additions
and
80 deletions
+80
-80
test/C/elpa1_test_complex_c_version.c
test/C/elpa1_test_complex_c_version.c
+1
-1
test/C/elpa1_test_real_c_version.c
test/C/elpa1_test_real_c_version.c
+1
-1
test/C/elpa2_test_complex_c_version.c
test/C/elpa2_test_complex_c_version.c
+1
-1
test/C/elpa2_test_real_c_version.c
test/C/elpa2_test_real_c_version.c
+1
-1
test/Fortran/read_real.F90
test/Fortran/read_real.F90
+2
-2
test/Fortran/test_cholesky_complex.F90
test/Fortran/test_cholesky_complex.F90
+2
-2
test/Fortran/test_cholesky_complex_single.F90
test/Fortran/test_cholesky_complex_single.F90
+2
-2
test/Fortran/test_cholesky_real.F90
test/Fortran/test_cholesky_real.F90
+2
-2
test/Fortran/test_cholesky_real_single.F90
test/Fortran/test_cholesky_real_single.F90
+2
-2
test/Fortran/test_complex.F90
test/Fortran/test_complex.F90
+2
-2
test/Fortran/test_complex2.F90
test/Fortran/test_complex2.F90
+2
-2
test/Fortran/test_complex2_api.F90
test/Fortran/test_complex2_api.F90
+2
-2
test/Fortran/test_complex2_api_single.F90
test/Fortran/test_complex2_api_single.F90
+2
-2
test/Fortran/test_complex2_default.F90
test/Fortran/test_complex2_default.F90
+2
-2
test/Fortran/test_complex2_default_single.F90
test/Fortran/test_complex2_default_single.F90
+2
-2
test/Fortran/test_complex2_gpu.F90
test/Fortran/test_complex2_gpu.F90
+2
-2
test/Fortran/test_complex2_gpu_single.F90
test/Fortran/test_complex2_gpu_single.F90
+2
-2
test/Fortran/test_complex2_single.F90
test/Fortran/test_complex2_single.F90
+2
-2
test/Fortran/test_complex_single.F90
test/Fortran/test_complex_single.F90
+2
-2
test/Fortran/test_invert_trm_complex.F90
test/Fortran/test_invert_trm_complex.F90
+2
-2
test/Fortran/test_invert_trm_complex_single.F90
test/Fortran/test_invert_trm_complex_single.F90
+2
-2
test/Fortran/test_invert_trm_real.F90
test/Fortran/test_invert_trm_real.F90
+2
-2
test/Fortran/test_invert_trm_real_single.F90
test/Fortran/test_invert_trm_real_single.F90
+2
-2
test/Fortran/test_real.F90
test/Fortran/test_real.F90
+2
-2
test/Fortran/test_real2.F90
test/Fortran/test_real2.F90
+2
-2
test/Fortran/test_real2_api.F90
test/Fortran/test_real2_api.F90
+2
-2
test/Fortran/test_real2_api_single.F90
test/Fortran/test_real2_api_single.F90
+2
-2
test/Fortran/test_real2_default.F90
test/Fortran/test_real2_default.F90
+2
-2
test/Fortran/test_real2_default_single.F90
test/Fortran/test_real2_default_single.F90
+2
-2
test/Fortran/test_real2_gpu.F90
test/Fortran/test_real2_gpu.F90
+2
-2
test/Fortran/test_real2_gpu_single.F90
test/Fortran/test_real2_gpu_single.F90
+2
-2
test/Fortran/test_real2_qr.F90
test/Fortran/test_real2_qr.F90
+2
-2
test/Fortran/test_real2_qr_single.F90
test/Fortran/test_real2_qr_single.F90
+2
-2
test/Fortran/test_real2_single.F90
test/Fortran/test_real2_single.F90
+2
-2
test/Fortran/test_real_single.F90
test/Fortran/test_real_single.F90
+2
-2
test/Fortran/test_real_with_c.F90
test/Fortran/test_real_with_c.F90
+2
-2
test/Fortran/test_toeplitz.F90
test/Fortran/test_toeplitz.F90
+2
-2
test/Fortran/test_toeplitz_single.F90
test/Fortran/test_toeplitz_single.F90
+2
-2
test/Fortran/test_transpose_multiply_complex.F90
test/Fortran/test_transpose_multiply_complex.F90
+2
-2
test/Fortran/test_transpose_multiply_complex_single.F90
test/Fortran/test_transpose_multiply_complex_single.F90
+2
-2
test/Fortran/test_transpose_multiply_real.F90
test/Fortran/test_transpose_multiply_real.F90
+2
-2
test/Fortran/test_transpose_multiply_real_single.F90
test/Fortran/test_transpose_multiply_real_single.F90
+2
-2
No files found.
test/C/elpa1_test_complex_c_version.c
View file @
fe11440b
...
...
@@ -166,7 +166,7 @@ int main(int argc, char** argv) {
#ifdef WITH_MPI
my_mpi_comm_world
=
MPI_Comm_c2f
(
MPI_COMM_WORLD
);
#endif
mpierr
=
get_elpa
_communicators
(
my_mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpi_comm_rows
,
&
mpi_comm_cols
);
mpierr
=
elpa_get
_communicators
(
my_mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpi_comm_rows
,
&
mpi_comm_cols
);
if
(
myid
==
0
)
{
printf
(
"
\n
"
);
...
...
test/C/elpa1_test_real_c_version.c
View file @
fe11440b
...
...
@@ -157,7 +157,7 @@ int main(int argc, char** argv) {
#else
my_mpi_comm_world
=
1
;
#endif
mpierr
=
get_elpa
_communicators
(
my_mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpi_comm_rows
,
&
mpi_comm_cols
);
mpierr
=
elpa_get
_communicators
(
my_mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpi_comm_rows
,
&
mpi_comm_cols
);
if
(
myid
==
0
)
{
printf
(
"
\n
"
);
...
...
test/C/elpa2_test_complex_c_version.c
View file @
fe11440b
...
...
@@ -163,7 +163,7 @@ int main(int argc, char** argv) {
#ifdef WITH_MPI
my_mpi_comm_world
=
MPI_Comm_c2f
(
MPI_COMM_WORLD
);
#endif
mpierr
=
get_elpa
_communicators
(
my_mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpi_comm_rows
,
&
mpi_comm_cols
);
mpierr
=
elpa_get
_communicators
(
my_mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpi_comm_rows
,
&
mpi_comm_cols
);
if
(
myid
==
0
)
{
printf
(
"
\n
"
);
...
...
test/C/elpa2_test_real_c_version.c
View file @
fe11440b
...
...
@@ -156,7 +156,7 @@ int main(int argc, char** argv) {
#ifdef WITH_MPI
my_mpi_comm_world
=
MPI_Comm_c2f
(
MPI_COMM_WORLD
);
#endif
mpierr
=
get_elpa
_communicators
(
my_mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpi_comm_rows
,
&
mpi_comm_cols
);
mpierr
=
elpa_get
_communicators
(
my_mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpi_comm_rows
,
&
mpi_comm_cols
);
if
(
myid
==
0
)
{
printf
(
"
\n
"
);
...
...
test/Fortran/read_real.F90
View file @
fe11440b
...
...
@@ -226,9 +226,9 @@ program read_real
call
BLACS_Gridinfo
(
my_blacs_ctxt
,
nprow
,
npcol
,
my_prow
,
my_pcol
)
! All ELPA routines need MPI communicators for communicating within
! rows or columns of processes, these are set in
get_elpa
_communicators
! rows or columns of processes, these are set in
elpa_get
_communicators
call
get_elpa
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
call
elpa_get
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpi_comm_rows
,
mpi_comm_cols
)
! Read matrix size
...
...
test/Fortran/test_cholesky_complex.F90
View file @
fe11440b
...
...
@@ -181,9 +181,9 @@ program test_cholesky
end
if
! All ELPA routines need MPI communicators for communicating within
! rows or columns of processes, these are set in
get_elpa
_communicators.
! rows or columns of processes, these are set in
elpa_get
_communicators.
mpierr
=
get_elpa
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpierr
=
elpa_get
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpi_comm_rows
,
mpi_comm_cols
)
if
(
myid
==
0
)
then
...
...
test/Fortran/test_cholesky_complex_single.F90
View file @
fe11440b
...
...
@@ -181,9 +181,9 @@ program test_cholesky
end
if
! All ELPA routines need MPI communicators for communicating within
! rows or columns of processes, these are set in
get_elpa
_communicators.
! rows or columns of processes, these are set in
elpa_get
_communicators.
mpierr
=
get_elpa
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpierr
=
elpa_get
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpi_comm_rows
,
mpi_comm_cols
)
if
(
myid
==
0
)
then
...
...
test/Fortran/test_cholesky_real.F90
View file @
fe11440b
...
...
@@ -178,9 +178,9 @@ program test_cholesky
end
if
! All ELPA routines need MPI communicators for communicating within
! rows or columns of processes, these are set in
get_elpa
_communicators.
! rows or columns of processes, these are set in
elpa_get
_communicators.
mpierr
=
get_elpa
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpierr
=
elpa_get
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpi_comm_rows
,
mpi_comm_cols
)
if
(
myid
==
0
)
then
...
...
test/Fortran/test_cholesky_real_single.F90
View file @
fe11440b
...
...
@@ -178,9 +178,9 @@ program test_cholesky
end
if
! All ELPA routines need MPI communicators for communicating within
! rows or columns of processes, these are set in
get_elpa
_communicators.
! rows or columns of processes, these are set in
elpa_get
_communicators.
mpierr
=
get_elpa
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpierr
=
elpa_get
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpi_comm_rows
,
mpi_comm_cols
)
if
(
myid
==
0
)
then
...
...
test/Fortran/test_complex.F90
View file @
fe11440b
...
...
@@ -209,9 +209,9 @@ program test_complex_double_precision
end
if
! All ELPA routines need MPI communicators for communicating within
! rows or columns of processes, these are set in
get_elpa
_communicators.
! rows or columns of processes, these are set in
elpa_get
_communicators.
mpierr
=
get_elpa
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpierr
=
elpa_get
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpi_comm_rows
,
mpi_comm_cols
)
if
(
myid
==
0
)
then
...
...
test/Fortran/test_complex2.F90
View file @
fe11440b
...
...
@@ -225,9 +225,9 @@ program test_complex2_double_precision
end
if
! All ELPA routines need MPI communicators for communicating within
! rows or columns of processes, these are set in
get_elpa
_communicators.
! rows or columns of processes, these are set in
elpa_get
_communicators.
mpierr
=
get_elpa
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpierr
=
elpa_get
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpi_comm_rows
,
mpi_comm_cols
)
if
(
myid
==
0
)
then
...
...
test/Fortran/test_complex2_api.F90
View file @
fe11440b
...
...
@@ -276,9 +276,9 @@ program test_complex2_choose_kernel_with_api_double_precision
end
if
! All ELPA routines need MPI communicators for communicating within
! rows or columns of processes, these are set in
get_elpa
_communicators
! rows or columns of processes, these are set in
elpa_get
_communicators
mpierr
=
get_elpa
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpierr
=
elpa_get
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpi_comm_rows
,
mpi_comm_cols
)
if
(
myid
==
0
)
then
...
...
test/Fortran/test_complex2_api_single.F90
View file @
fe11440b
...
...
@@ -276,9 +276,9 @@ program test_complex2_choose_kernel_with_api_single_precision
end
if
! All ELPA routines need MPI communicators for communicating within
! rows or columns of processes, these are set in
get_elpa
_communicators
! rows or columns of processes, these are set in
elpa_get
_communicators
mpierr
=
get_elpa
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpierr
=
elpa_get
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpi_comm_rows
,
mpi_comm_cols
)
if
(
myid
==
0
)
then
...
...
test/Fortran/test_complex2_default.F90
View file @
fe11440b
...
...
@@ -249,9 +249,9 @@ program test_complex2_default_kernel_double_precision
end
if
! All ELPA routines need MPI communicators for communicating within
! rows or columns of processes, these are set in
get_elpa
_communicators
! rows or columns of processes, these are set in
elpa_get
_communicators
mpierr
=
get_elpa
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpierr
=
elpa_get
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpi_comm_rows
,
mpi_comm_cols
)
if
(
myid
==
0
)
then
...
...
test/Fortran/test_complex2_default_single.F90
View file @
fe11440b
...
...
@@ -247,9 +247,9 @@ program test_complex2_default_kernel_single_precision
end
if
! All ELPA routines need MPI communicators for communicating within
! rows or columns of processes, these are set in
get_elpa
_communicators.
! rows or columns of processes, these are set in
elpa_get
_communicators.
mpierr
=
get_elpa
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpierr
=
elpa_get
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpi_comm_rows
,
mpi_comm_cols
)
if
(
myid
==
0
)
then
...
...
test/Fortran/test_complex2_gpu.F90
View file @
fe11440b
...
...
@@ -236,9 +236,9 @@ program test_complex2_gpu_version_double_precision
end
if
! All ELPA routines need MPI communicators for communicating within
! rows or columns of processes, these are set in
get_elpa
_communicators
! rows or columns of processes, these are set in
elpa_get
_communicators
mpierr
=
get_elpa
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpierr
=
elpa_get
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpi_comm_rows
,
mpi_comm_cols
)
if
(
myid
==
0
)
then
...
...
test/Fortran/test_complex2_gpu_single.F90
View file @
fe11440b
...
...
@@ -236,9 +236,9 @@ program test_complex2_gpu_version_single_precision
end
if
! All ELPA routines need MPI communicators for communicating within
! rows or columns of processes, these are set in
get_elpa
_communicators
! rows or columns of processes, these are set in
elpa_get
_communicators
mpierr
=
get_elpa
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpierr
=
elpa_get
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpi_comm_rows
,
mpi_comm_cols
)
if
(
myid
==
0
)
then
...
...
test/Fortran/test_complex2_single.F90
View file @
fe11440b
...
...
@@ -225,9 +225,9 @@ program test_complex2_single_precision
end
if
! All ELPA routines need MPI communicators for communicating within
! rows or columns of processes, these are set in
get_elpa
_communicators.
! rows or columns of processes, these are set in
elpa_get
_communicators.
mpierr
=
get_elpa
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpierr
=
elpa_get
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpi_comm_rows
,
mpi_comm_cols
)
if
(
myid
==
0
)
then
...
...
test/Fortran/test_complex_single.F90
View file @
fe11440b
...
...
@@ -209,9 +209,9 @@ program test_complex_single_precision
end
if
! All ELPA routines need MPI communicators for communicating within
! rows or columns of processes, these are set in
get_elpa
_communicators.
! rows or columns of processes, these are set in
elpa_get
_communicators.
mpierr
=
get_elpa
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpierr
=
elpa_get
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpi_comm_rows
,
mpi_comm_cols
)
if
(
myid
==
0
)
then
...
...
test/Fortran/test_invert_trm_complex.F90
View file @
fe11440b
...
...
@@ -181,9 +181,9 @@ program test_invert_trm
end
if
! All ELPA routines need MPI communicators for communicating within
! rows or columns of processes, these are set in
get_elpa
_communicators.
! rows or columns of processes, these are set in
elpa_get
_communicators.
mpierr
=
get_elpa
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpierr
=
elpa_get
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpi_comm_rows
,
mpi_comm_cols
)
if
(
myid
==
0
)
then
...
...
test/Fortran/test_invert_trm_complex_single.F90
View file @
fe11440b
...
...
@@ -181,9 +181,9 @@ program test_invert_trm
end
if
! All ELPA routines need MPI communicators for communicating within
! rows or columns of processes, these are set in
get_elpa
_communicators.
! rows or columns of processes, these are set in
elpa_get
_communicators.
mpierr
=
get_elpa
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpierr
=
elpa_get
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpi_comm_rows
,
mpi_comm_cols
)
if
(
myid
==
0
)
then
...
...
test/Fortran/test_invert_trm_real.F90
View file @
fe11440b
...
...
@@ -178,9 +178,9 @@ program test_invert_trm
end
if
! All ELPA routines need MPI communicators for communicating within
! rows or columns of processes, these are set in
get_elpa
_communicators.
! rows or columns of processes, these are set in
elpa_get
_communicators.
mpierr
=
get_elpa
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpierr
=
elpa_get
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpi_comm_rows
,
mpi_comm_cols
)
if
(
myid
==
0
)
then
...
...
test/Fortran/test_invert_trm_real_single.F90
View file @
fe11440b
...
...
@@ -178,9 +178,9 @@ program test_invert_trm
end
if
! All ELPA routines need MPI communicators for communicating within
! rows or columns of processes, these are set in
get_elpa
_communicators.
! rows or columns of processes, these are set in
elpa_get
_communicators.
mpierr
=
get_elpa
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpierr
=
elpa_get
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpi_comm_rows
,
mpi_comm_cols
)
if
(
myid
==
0
)
then
...
...
test/Fortran/test_real.F90
View file @
fe11440b
...
...
@@ -206,9 +206,9 @@ program test_real_double_precision
end
if
! All ELPA routines need MPI communicators for communicating within
! rows or columns of processes, these are set in
get_elpa
_communicators.
! rows or columns of processes, these are set in
elpa_get
_communicators.
mpierr
=
get_elpa
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpierr
=
elpa_get
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpi_comm_rows
,
mpi_comm_cols
)
if
(
myid
==
0
)
then
...
...
test/Fortran/test_real2.F90
View file @
fe11440b
...
...
@@ -219,9 +219,9 @@ program test_real2_double_precision
end
if
! All ELPA routines need MPI communicators for communicating within
! rows or columns of processes, these are set in
get_elpa
_communicators.
! rows or columns of processes, these are set in
elpa_get
_communicators.
mpierr
=
get_elpa
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpierr
=
elpa_get
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpi_comm_rows
,
mpi_comm_cols
)
if
(
myid
==
0
)
then
...
...
test/Fortran/test_real2_api.F90
View file @
fe11440b
...
...
@@ -278,9 +278,9 @@ program test_real2_choose_kernel_with_api_double_precision
end
if
! All ELPA routines need MPI communicators for communicating within
! rows or columns of processes, these are set in
get_elpa
_communicators.
! rows or columns of processes, these are set in
elpa_get
_communicators.
mpierr
=
get_elpa
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpierr
=
elpa_get
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpi_comm_rows
,
mpi_comm_cols
)
if
(
myid
==
0
)
then
...
...
test/Fortran/test_real2_api_single.F90
View file @
fe11440b
...
...
@@ -278,9 +278,9 @@ program test_real2_choose_kernel_with_api_single_precision
end
if
! All ELPA routines need MPI communicators for communicating within
! rows or columns of processes, these are set in
get_elpa
_communicators.
! rows or columns of processes, these are set in
elpa_get
_communicators.
mpierr
=
get_elpa
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpierr
=
elpa_get
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpi_comm_rows
,
mpi_comm_cols
)
if
(
myid
==
0
)
then
...
...
test/Fortran/test_real2_default.F90
View file @
fe11440b
...
...
@@ -241,9 +241,9 @@ program test_real2_default_kernel_double_precision
end
if
! All ELPA routines need MPI communicators for communicating within
! rows or columns of processes, these are set in
get_elpa
_communicators.
! rows or columns of processes, these are set in
elpa_get
_communicators.
mpierr
=
get_elpa
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpierr
=
elpa_get
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpi_comm_rows
,
mpi_comm_cols
)
if
(
myid
==
0
)
then
...
...
test/Fortran/test_real2_default_single.F90
View file @
fe11440b
...
...
@@ -241,9 +241,9 @@ program test_real2_default_kernel_single_precision
end
if
! All ELPA routines need MPI communicators for communicating within
! rows or columns of processes, these are set in
get_elpa
_communicators.
! rows or columns of processes, these are set in
elpa_get
_communicators.
mpierr
=
get_elpa
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpierr
=
elpa_get
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpi_comm_rows
,
mpi_comm_cols
)
if
(
myid
==
0
)
then
...
...
test/Fortran/test_real2_gpu.F90
View file @
fe11440b
...
...
@@ -235,9 +235,9 @@ program test_real2_gpu_version_double_precision
end
if
! All ELPA routines need MPI communicators for communicating within
! rows or columns of processes, these are set in
get_elpa
_communicators.
! rows or columns of processes, these are set in
elpa_get
_communicators.
mpierr
=
get_elpa
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpierr
=
elpa_get
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpi_comm_rows
,
mpi_comm_cols
)
if
(
myid
==
0
)
then
...
...
test/Fortran/test_real2_gpu_single.F90
View file @
fe11440b
...
...
@@ -235,9 +235,9 @@ program test_real2_gpu_version_single_precision
end
if
! All ELPA routines need MPI communicators for communicating within
! rows or columns of processes, these are set in
get_elpa
_communicators.
! rows or columns of processes, these are set in
elpa_get
_communicators.
mpierr
=
get_elpa
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpierr
=
elpa_get
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpi_comm_rows
,
mpi_comm_cols
)
if
(
myid
==
0
)
then
...
...
test/Fortran/test_real2_qr.F90
View file @
fe11440b
...
...
@@ -280,9 +280,9 @@ program test_real2_default_kernel_qr_decomposition_double_precision
end
if
! All ELPA routines need MPI communicators for communicating within
! rows or columns of processes, these are set in
get_elpa
_communicators.
! rows or columns of processes, these are set in
elpa_get
_communicators.
mpierr
=
get_elpa
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpierr
=
elpa_get
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpi_comm_rows
,
mpi_comm_cols
)
if
(
myid
==
0
)
then
...
...
test/Fortran/test_real2_qr_single.F90
View file @
fe11440b
...
...
@@ -286,9 +286,9 @@ program test_real2_default_kernel_qr_decomposition_single_precision
end
if
! All ELPA routines need MPI communicators for communicating within
! rows or columns of processes, these are set in
get_elpa
_communicators.
! rows or columns of processes, these are set in
elpa_get
_communicators.
mpierr
=
get_elpa
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpierr
=
elpa_get
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpi_comm_rows
,
mpi_comm_cols
)
if
(
myid
==
0
)
then
...
...
test/Fortran/test_real2_single.F90
View file @
fe11440b
...
...
@@ -219,9 +219,9 @@ program test_real2_single_precision
end
if
! All ELPA routines need MPI communicators for communicating within
! rows or columns of processes, these are set in
get_elpa
_communicators.
! rows or columns of processes, these are set in
elpa_get
_communicators.
mpierr
=
get_elpa
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpierr
=
elpa_get
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpi_comm_rows
,
mpi_comm_cols
)
if
(
myid
==
0
)
then
...
...
test/Fortran/test_real_single.F90
View file @
fe11440b
...
...
@@ -206,9 +206,9 @@ program test_real_single_precision
end
if
! All ELPA routines need MPI communicators for communicating within
! rows or columns of processes, these are set in
get_elpa
_communicators.
! rows or columns of processes, these are set in
elpa_get
_communicators.
mpierr
=
get_elpa
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpierr
=
elpa_get
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpi_comm_rows
,
mpi_comm_cols
)
if
(
myid
==
0
)
then
...
...
test/Fortran/test_real_with_c.F90
View file @
fe11440b
...
...
@@ -247,9 +247,9 @@ program test_real
my_pcolFromC
=
my_pcol
! All ELPA routines need MPI communicators for communicating within
! rows or columns of processes, these are set in
get_elpa
_communicators.
! rows or columns of processes, these are set in
elpa_get
_communicators.
mpierr
=
get_elpa
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpierr
=
elpa_get
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpi_comm_rows
,
mpi_comm_cols
)
! call here a c function, which via the c-interface in turn calls the
...
...
test/Fortran/test_toeplitz.F90
View file @
fe11440b
...
...
@@ -197,9 +197,9 @@ program test_solve_tridi
end
if
! All ELPA routines need MPI communicators for communicating within
! rows or columns of processes, these are set in
get_elpa
_communicators.
! rows or columns of processes, these are set in
elpa_get
_communicators.
mpierr
=
get_elpa
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpierr
=
elpa_get
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpi_comm_rows
,
mpi_comm_cols
)
if
(
myid
==
0
)
then
...
...
test/Fortran/test_toeplitz_single.F90
View file @
fe11440b
...
...
@@ -197,9 +197,9 @@ program test_solve_tridi_single
end
if
! All ELPA routines need MPI communicators for communicating within
! rows or columns of processes, these are set in
get_elpa
_communicators.
! rows or columns of processes, these are set in
elpa_get
_communicators.
mpierr
=
get_elpa
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpierr
=
elpa_get
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpi_comm_rows
,
mpi_comm_cols
)
if
(
myid
==
0
)
then
...
...
test/Fortran/test_transpose_multiply_complex.F90
View file @
fe11440b
...
...
@@ -177,9 +177,9 @@ program test_transpose_multiply
end
if
! All ELPA routines need MPI communicators for communicating within
! rows or columns of processes, these are set in
get_elpa
_communicators.
! rows or columns of processes, these are set in
elpa_get
_communicators.
mpierr
=
get_elpa
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpierr
=
elpa_get
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpi_comm_rows
,
mpi_comm_cols
)
if
(
myid
==
0
)
then
...
...
test/Fortran/test_transpose_multiply_complex_single.F90
View file @
fe11440b
...
...
@@ -177,9 +177,9 @@ program test_transpose_multiply
end
if
! All ELPA routines need MPI communicators for communicating within
! rows or columns of processes, these are set in
get_elpa
_communicators.
! rows or columns of processes, these are set in
elpa_get
_communicators.
mpierr
=
get_elpa
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpierr
=
elpa_get
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpi_comm_rows
,
mpi_comm_cols
)
if
(
myid
==
0
)
then
...
...
test/Fortran/test_transpose_multiply_real.F90
View file @
fe11440b
...
...
@@ -176,9 +176,9 @@ program test_transpose_multiply
end
if
! All ELPA routines need MPI communicators for communicating within
! rows or columns of processes, these are set in
get_elpa
_communicators.
! rows or columns of processes, these are set in
elpa_get
_communicators.
mpierr
=
get_elpa
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpierr
=
elpa_get
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpi_comm_rows
,
mpi_comm_cols
)
if
(
myid
==
0
)
then
...
...
test/Fortran/test_transpose_multiply_real_single.F90
View file @
fe11440b
...
...
@@ -176,9 +176,9 @@ program test_transpose_multiply
end
if
! All ELPA routines need MPI communicators for communicating within
! rows or columns of processes, these are set in
get_elpa
_communicators.
! rows or columns of processes, these are set in
elpa_get
_communicators.
mpierr
=
get_elpa
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpierr
=
elpa_get
_communicators
(
mpi_comm_world
,
my_prow
,
my_pcol
,
&
mpi_comm_rows
,
mpi_comm_cols
)
if
(
myid
==
0
)
then
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a 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