Skip to content
GitLab
Menu
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
248f1e9f
Commit
248f1e9f
authored
Oct 10, 2016
by
Andreas Marek
Browse files
Remove old deprectated calls from test programs
parent
28ab1da5
Changes
22
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
test/C/elpa1_test_complex_c_version.c
View file @
248f1e9f
...
...
@@ -150,7 +150,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 @
248f1e9f
...
...
@@ -147,7 +147,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 @
248f1e9f
...
...
@@ -152,7 +152,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 @
248f1e9f
...
...
@@ -148,7 +148,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 @
248f1e9f
...
...
@@ -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 @
248f1e9f
...
...
@@ -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 @
248f1e9f
...
...
@@ -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 @
248f1e9f
...
...
@@ -207,9 +207,9 @@ program test_complex
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 @
248f1e9f
...
...
@@ -214,9 +214,9 @@ program test_complex2
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 @
248f1e9f
...
...
@@ -229,9 +229,9 @@ program test_complex2
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 @
248f1e9f
...
...
@@ -231,9 +231,9 @@ program test_complex2
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 @
248f1e9f
...
...
@@ -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 @
248f1e9f
...
...
@@ -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 @
248f1e9f
...
...
@@ -204,9 +204,9 @@ program test_real
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 @
248f1e9f
...
...
@@ -210,9 +210,9 @@ program test_real2
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 @
248f1e9f
...
...
@@ -227,9 +227,9 @@ program test_real2
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 @
248f1e9f
...
...
@@ -224,9 +224,9 @@ program test_real2
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 @
248f1e9f
...
...
@@ -263,9 +263,9 @@ program test_real2
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 @
248f1e9f
...
...
@@ -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 @
248f1e9f
...
...
@@ -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
...
...
Prev
1
2
Next
Write
Preview
Supports
Markdown
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