Commit fe11440b authored by Andreas Marek's avatar Andreas Marek
Browse files

Remove old deprectated calls from test programs

parent 0a956259
...@@ -166,7 +166,7 @@ int main(int argc, char** argv) { ...@@ -166,7 +166,7 @@ int main(int argc, char** argv) {
#ifdef WITH_MPI #ifdef WITH_MPI
my_mpi_comm_world = MPI_Comm_c2f(MPI_COMM_WORLD); my_mpi_comm_world = MPI_Comm_c2f(MPI_COMM_WORLD);
#endif #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) { if (myid == 0) {
printf("\n"); printf("\n");
......
...@@ -157,7 +157,7 @@ int main(int argc, char** argv) { ...@@ -157,7 +157,7 @@ int main(int argc, char** argv) {
#else #else
my_mpi_comm_world =1 ; my_mpi_comm_world =1 ;
#endif #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) { if (myid == 0) {
printf("\n"); printf("\n");
......
...@@ -163,7 +163,7 @@ int main(int argc, char** argv) { ...@@ -163,7 +163,7 @@ int main(int argc, char** argv) {
#ifdef WITH_MPI #ifdef WITH_MPI
my_mpi_comm_world = MPI_Comm_c2f(MPI_COMM_WORLD); my_mpi_comm_world = MPI_Comm_c2f(MPI_COMM_WORLD);
#endif #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) { if (myid == 0) {
printf("\n"); printf("\n");
......
...@@ -156,7 +156,7 @@ int main(int argc, char** argv) { ...@@ -156,7 +156,7 @@ int main(int argc, char** argv) {
#ifdef WITH_MPI #ifdef WITH_MPI
my_mpi_comm_world = MPI_Comm_c2f(MPI_COMM_WORLD); my_mpi_comm_world = MPI_Comm_c2f(MPI_COMM_WORLD);
#endif #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) { if (myid == 0) {
printf("\n"); printf("\n");
......
...@@ -226,9 +226,9 @@ program read_real ...@@ -226,9 +226,9 @@ program read_real
call BLACS_Gridinfo( my_blacs_ctxt, nprow, npcol, my_prow, my_pcol ) call BLACS_Gridinfo( my_blacs_ctxt, nprow, npcol, my_prow, my_pcol )
! All ELPA routines need MPI communicators for communicating within ! 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) mpi_comm_rows, mpi_comm_cols)
! Read matrix size ! Read matrix size
......
...@@ -181,9 +181,9 @@ program test_cholesky ...@@ -181,9 +181,9 @@ program test_cholesky
end if end if
! All ELPA routines need MPI communicators for communicating within ! 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) mpi_comm_rows, mpi_comm_cols)
if (myid==0) then if (myid==0) then
......
...@@ -181,9 +181,9 @@ program test_cholesky ...@@ -181,9 +181,9 @@ program test_cholesky
end if end if
! All ELPA routines need MPI communicators for communicating within ! 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) mpi_comm_rows, mpi_comm_cols)
if (myid==0) then if (myid==0) then
......
...@@ -178,9 +178,9 @@ program test_cholesky ...@@ -178,9 +178,9 @@ program test_cholesky
end if end if
! All ELPA routines need MPI communicators for communicating within ! 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) mpi_comm_rows, mpi_comm_cols)
if (myid==0) then if (myid==0) then
......
...@@ -178,9 +178,9 @@ program test_cholesky ...@@ -178,9 +178,9 @@ program test_cholesky
end if end if
! All ELPA routines need MPI communicators for communicating within ! 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) mpi_comm_rows, mpi_comm_cols)
if (myid==0) then if (myid==0) then
......
...@@ -209,9 +209,9 @@ program test_complex_double_precision ...@@ -209,9 +209,9 @@ program test_complex_double_precision
end if end if
! All ELPA routines need MPI communicators for communicating within ! 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) mpi_comm_rows, mpi_comm_cols)
if (myid==0) then if (myid==0) then
......
...@@ -225,9 +225,9 @@ program test_complex2_double_precision ...@@ -225,9 +225,9 @@ program test_complex2_double_precision
end if end if
! All ELPA routines need MPI communicators for communicating within ! 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) mpi_comm_rows, mpi_comm_cols)
if (myid==0) then if (myid==0) then
......
...@@ -276,9 +276,9 @@ program test_complex2_choose_kernel_with_api_double_precision ...@@ -276,9 +276,9 @@ program test_complex2_choose_kernel_with_api_double_precision
end if end if
! All ELPA routines need MPI communicators for communicating within ! 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) mpi_comm_rows, mpi_comm_cols)
if (myid==0) then if (myid==0) then
......
...@@ -276,9 +276,9 @@ program test_complex2_choose_kernel_with_api_single_precision ...@@ -276,9 +276,9 @@ program test_complex2_choose_kernel_with_api_single_precision
end if end if
! All ELPA routines need MPI communicators for communicating within ! 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) mpi_comm_rows, mpi_comm_cols)
if (myid==0) then if (myid==0) then
......
...@@ -249,9 +249,9 @@ program test_complex2_default_kernel_double_precision ...@@ -249,9 +249,9 @@ program test_complex2_default_kernel_double_precision
end if end if
! All ELPA routines need MPI communicators for communicating within ! 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) mpi_comm_rows, mpi_comm_cols)
if (myid==0) then if (myid==0) then
......
...@@ -247,9 +247,9 @@ program test_complex2_default_kernel_single_precision ...@@ -247,9 +247,9 @@ program test_complex2_default_kernel_single_precision
end if end if
! All ELPA routines need MPI communicators for communicating within ! 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) mpi_comm_rows, mpi_comm_cols)
if (myid==0) then if (myid==0) then
......
...@@ -236,9 +236,9 @@ program test_complex2_gpu_version_double_precision ...@@ -236,9 +236,9 @@ program test_complex2_gpu_version_double_precision
end if end if
! All ELPA routines need MPI communicators for communicating within ! 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) mpi_comm_rows, mpi_comm_cols)
if (myid==0) then if (myid==0) then
......
...@@ -236,9 +236,9 @@ program test_complex2_gpu_version_single_precision ...@@ -236,9 +236,9 @@ program test_complex2_gpu_version_single_precision
end if end if
! All ELPA routines need MPI communicators for communicating within ! 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) mpi_comm_rows, mpi_comm_cols)
if (myid==0) then if (myid==0) then
......
...@@ -225,9 +225,9 @@ program test_complex2_single_precision ...@@ -225,9 +225,9 @@ program test_complex2_single_precision
end if end if
! All ELPA routines need MPI communicators for communicating within ! 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) mpi_comm_rows, mpi_comm_cols)
if (myid==0) then if (myid==0) then
......
...@@ -209,9 +209,9 @@ program test_complex_single_precision ...@@ -209,9 +209,9 @@ program test_complex_single_precision
end if end if
! All ELPA routines need MPI communicators for communicating within ! 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) mpi_comm_rows, mpi_comm_cols)
if (myid==0) then if (myid==0) then
......
...@@ -181,9 +181,9 @@ program test_invert_trm ...@@ -181,9 +181,9 @@ program test_invert_trm
end if end if
! All ELPA routines need MPI communicators for communicating within ! 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) mpi_comm_rows, mpi_comm_cols)
if (myid==0) then if (myid==0) then
......
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