From f7d2c856ece7dedfbb8495d1ce7f68bf2cd699f6 Mon Sep 17 00:00:00 2001 From: sfilippone Date: Tue, 7 Nov 2023 21:44:22 +0100 Subject: [PATCH] Fix gather with SERIAL --- base/modules/penv/psi_c_collective_mod.F90 | 8 ++++---- base/modules/penv/psi_d_collective_mod.F90 | 8 ++++---- base/modules/penv/psi_e_collective_mod.F90 | 8 ++++---- base/modules/penv/psi_i2_collective_mod.F90 | 8 ++++---- base/modules/penv/psi_m_collective_mod.F90 | 8 ++++---- base/modules/penv/psi_s_collective_mod.F90 | 8 ++++---- base/modules/penv/psi_z_collective_mod.F90 | 8 ++++---- 7 files changed, 28 insertions(+), 28 deletions(-) diff --git a/base/modules/penv/psi_c_collective_mod.F90 b/base/modules/penv/psi_c_collective_mod.F90 index 8da302d0..dd6f88ed 100644 --- a/base/modules/penv/psi_c_collective_mod.F90 +++ b/base/modules/penv/psi_c_collective_mod.F90 @@ -107,7 +107,7 @@ contains logical :: collective_start, collective_end, collective_sync #if defined(SERIAL_MPI) - resv(0) = dat + resv(1) = dat #else call psb_info(ctxt,iam,np) @@ -160,7 +160,7 @@ contains use mpi #endif implicit none -#ifdef MPI_H +#ifdef MP.I_H include 'mpif.h' #endif type(psb_ctxt_type), intent(in) :: ctxt @@ -175,7 +175,7 @@ contains logical :: collective_start, collective_end, collective_sync #if defined(SERIAL_MPI) - resv(0) = dat + resv(:) = dat(:) #else call psb_info(ctxt,iam,np) @@ -245,7 +245,7 @@ contains logical :: collective_start, collective_end, collective_sync #if defined(SERIAL_MPI) - resv(0) = dat + resv(:) = dat(:) #else call psb_info(ctxt,iam,np) diff --git a/base/modules/penv/psi_d_collective_mod.F90 b/base/modules/penv/psi_d_collective_mod.F90 index 9639d650..5376710b 100644 --- a/base/modules/penv/psi_d_collective_mod.F90 +++ b/base/modules/penv/psi_d_collective_mod.F90 @@ -747,7 +747,7 @@ contains logical :: collective_start, collective_end, collective_sync #if defined(SERIAL_MPI) - resv(0) = dat + resv(1) = dat #else call psb_info(ctxt,iam,np) @@ -800,7 +800,7 @@ contains use mpi #endif implicit none -#ifdef MPI_H +#ifdef MP.I_H include 'mpif.h' #endif type(psb_ctxt_type), intent(in) :: ctxt @@ -815,7 +815,7 @@ contains logical :: collective_start, collective_end, collective_sync #if defined(SERIAL_MPI) - resv(0) = dat + resv(:) = dat(:) #else call psb_info(ctxt,iam,np) @@ -885,7 +885,7 @@ contains logical :: collective_start, collective_end, collective_sync #if defined(SERIAL_MPI) - resv(0) = dat + resv(:) = dat(:) #else call psb_info(ctxt,iam,np) diff --git a/base/modules/penv/psi_e_collective_mod.F90 b/base/modules/penv/psi_e_collective_mod.F90 index b9ab089b..7e134f79 100644 --- a/base/modules/penv/psi_e_collective_mod.F90 +++ b/base/modules/penv/psi_e_collective_mod.F90 @@ -585,7 +585,7 @@ contains logical :: collective_start, collective_end, collective_sync #if defined(SERIAL_MPI) - resv(0) = dat + resv(1) = dat #else call psb_info(ctxt,iam,np) @@ -638,7 +638,7 @@ contains use mpi #endif implicit none -#ifdef MPI_H +#ifdef MP.I_H include 'mpif.h' #endif type(psb_ctxt_type), intent(in) :: ctxt @@ -653,7 +653,7 @@ contains logical :: collective_start, collective_end, collective_sync #if defined(SERIAL_MPI) - resv(0) = dat + resv(:) = dat(:) #else call psb_info(ctxt,iam,np) @@ -723,7 +723,7 @@ contains logical :: collective_start, collective_end, collective_sync #if defined(SERIAL_MPI) - resv(0) = dat + resv(:) = dat(:) #else call psb_info(ctxt,iam,np) diff --git a/base/modules/penv/psi_i2_collective_mod.F90 b/base/modules/penv/psi_i2_collective_mod.F90 index 339e4281..23e3cad6 100644 --- a/base/modules/penv/psi_i2_collective_mod.F90 +++ b/base/modules/penv/psi_i2_collective_mod.F90 @@ -585,7 +585,7 @@ contains logical :: collective_start, collective_end, collective_sync #if defined(SERIAL_MPI) - resv(0) = dat + resv(1) = dat #else call psb_info(ctxt,iam,np) @@ -638,7 +638,7 @@ contains use mpi #endif implicit none -#ifdef MPI_H +#ifdef MP.I_H include 'mpif.h' #endif type(psb_ctxt_type), intent(in) :: ctxt @@ -653,7 +653,7 @@ contains logical :: collective_start, collective_end, collective_sync #if defined(SERIAL_MPI) - resv(0) = dat + resv(:) = dat(:) #else call psb_info(ctxt,iam,np) @@ -723,7 +723,7 @@ contains logical :: collective_start, collective_end, collective_sync #if defined(SERIAL_MPI) - resv(0) = dat + resv(:) = dat(:) #else call psb_info(ctxt,iam,np) diff --git a/base/modules/penv/psi_m_collective_mod.F90 b/base/modules/penv/psi_m_collective_mod.F90 index 8f45d398..b6021d33 100644 --- a/base/modules/penv/psi_m_collective_mod.F90 +++ b/base/modules/penv/psi_m_collective_mod.F90 @@ -585,7 +585,7 @@ contains logical :: collective_start, collective_end, collective_sync #if defined(SERIAL_MPI) - resv(0) = dat + resv(1) = dat #else call psb_info(ctxt,iam,np) @@ -638,7 +638,7 @@ contains use mpi #endif implicit none -#ifdef MPI_H +#ifdef MP.I_H include 'mpif.h' #endif type(psb_ctxt_type), intent(in) :: ctxt @@ -653,7 +653,7 @@ contains logical :: collective_start, collective_end, collective_sync #if defined(SERIAL_MPI) - resv(0) = dat + resv(:) = dat(:) #else call psb_info(ctxt,iam,np) @@ -723,7 +723,7 @@ contains logical :: collective_start, collective_end, collective_sync #if defined(SERIAL_MPI) - resv(0) = dat + resv(:) = dat(:) #else call psb_info(ctxt,iam,np) diff --git a/base/modules/penv/psi_s_collective_mod.F90 b/base/modules/penv/psi_s_collective_mod.F90 index 6ffaae05..44fdc8df 100644 --- a/base/modules/penv/psi_s_collective_mod.F90 +++ b/base/modules/penv/psi_s_collective_mod.F90 @@ -747,7 +747,7 @@ contains logical :: collective_start, collective_end, collective_sync #if defined(SERIAL_MPI) - resv(0) = dat + resv(1) = dat #else call psb_info(ctxt,iam,np) @@ -800,7 +800,7 @@ contains use mpi #endif implicit none -#ifdef MPI_H +#ifdef MP.I_H include 'mpif.h' #endif type(psb_ctxt_type), intent(in) :: ctxt @@ -815,7 +815,7 @@ contains logical :: collective_start, collective_end, collective_sync #if defined(SERIAL_MPI) - resv(0) = dat + resv(:) = dat(:) #else call psb_info(ctxt,iam,np) @@ -885,7 +885,7 @@ contains logical :: collective_start, collective_end, collective_sync #if defined(SERIAL_MPI) - resv(0) = dat + resv(:) = dat(:) #else call psb_info(ctxt,iam,np) diff --git a/base/modules/penv/psi_z_collective_mod.F90 b/base/modules/penv/psi_z_collective_mod.F90 index 8b3ec277..6600edc4 100644 --- a/base/modules/penv/psi_z_collective_mod.F90 +++ b/base/modules/penv/psi_z_collective_mod.F90 @@ -107,7 +107,7 @@ contains logical :: collective_start, collective_end, collective_sync #if defined(SERIAL_MPI) - resv(0) = dat + resv(1) = dat #else call psb_info(ctxt,iam,np) @@ -160,7 +160,7 @@ contains use mpi #endif implicit none -#ifdef MPI_H +#ifdef MP.I_H include 'mpif.h' #endif type(psb_ctxt_type), intent(in) :: ctxt @@ -175,7 +175,7 @@ contains logical :: collective_start, collective_end, collective_sync #if defined(SERIAL_MPI) - resv(0) = dat + resv(:) = dat(:) #else call psb_info(ctxt,iam,np) @@ -245,7 +245,7 @@ contains logical :: collective_start, collective_end, collective_sync #if defined(SERIAL_MPI) - resv(0) = dat + resv(:) = dat(:) #else call psb_info(ctxt,iam,np)