Fix gather with SERIAL

sfilippone · Nov 7, 2023 · f7d2c85 · f7d2c85
1 parent d718ef1
commit f7d2c85
Show file tree

Hide file tree

Showing 7 changed files with 28 additions and 28 deletions.
diff --git a/base/modules/penv/psi_c_collective_mod.F90 b/base/modules/penv/psi_c_collective_mod.F90
@@ -107,7 +107,7 @@ subroutine psb_cgather_s(ctxt,dat,resv,root,mode,request)
     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 @@ subroutine psb_cgather_v(ctxt,dat,resv,root,mode,request)
     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 @@ subroutine psb_cgather_v(ctxt,dat,resv,root,mode,request)
     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 @@ subroutine psb_cgatherv_v(ctxt,dat,resv,szs,root,mode,request)
     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
@@ -747,7 +747,7 @@ subroutine psb_dgather_s(ctxt,dat,resv,root,mode,request)
     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 @@ subroutine psb_dgather_v(ctxt,dat,resv,root,mode,request)
     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 @@ subroutine psb_dgather_v(ctxt,dat,resv,root,mode,request)
     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 @@ subroutine psb_dgatherv_v(ctxt,dat,resv,szs,root,mode,request)
     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
@@ -585,7 +585,7 @@ subroutine psb_egather_s(ctxt,dat,resv,root,mode,request)
     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 @@ subroutine psb_egather_v(ctxt,dat,resv,root,mode,request)
     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 @@ subroutine psb_egather_v(ctxt,dat,resv,root,mode,request)
     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 @@ subroutine psb_egatherv_v(ctxt,dat,resv,szs,root,mode,request)
     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
@@ -585,7 +585,7 @@ subroutine psb_i2gather_s(ctxt,dat,resv,root,mode,request)
     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 @@ subroutine psb_i2gather_v(ctxt,dat,resv,root,mode,request)
     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 @@ subroutine psb_i2gather_v(ctxt,dat,resv,root,mode,request)
     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 @@ subroutine psb_i2gatherv_v(ctxt,dat,resv,szs,root,mode,request)
     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
@@ -585,7 +585,7 @@ subroutine psb_mgather_s(ctxt,dat,resv,root,mode,request)
     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 @@ subroutine psb_mgather_v(ctxt,dat,resv,root,mode,request)
     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 @@ subroutine psb_mgather_v(ctxt,dat,resv,root,mode,request)
     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 @@ subroutine psb_mgatherv_v(ctxt,dat,resv,szs,root,mode,request)
     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
@@ -747,7 +747,7 @@ subroutine psb_sgather_s(ctxt,dat,resv,root,mode,request)
     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 @@ subroutine psb_sgather_v(ctxt,dat,resv,root,mode,request)
     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 @@ subroutine psb_sgather_v(ctxt,dat,resv,root,mode,request)
     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 @@ subroutine psb_sgatherv_v(ctxt,dat,resv,szs,root,mode,request)
     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
@@ -107,7 +107,7 @@ subroutine psb_zgather_s(ctxt,dat,resv,root,mode,request)
     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 @@ subroutine psb_zgather_v(ctxt,dat,resv,root,mode,request)
     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 @@ subroutine psb_zgather_v(ctxt,dat,resv,root,mode,request)
     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 @@ subroutine psb_zgatherv_v(ctxt,dat,resv,szs,root,mode,request)
     logical :: collective_start, collective_end, collective_sync
 
 #if defined(SERIAL_MPI)
-    resv(0) = dat
+    resv(:) = dat(:)
 #else
     call psb_info(ctxt,iam,np)