fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-21 05:12:13 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix gather with SERIAL

Browse Source
This commit is contained in:
sfilippone
2023-11-07 21:44:22 +01:00
parent d718ef1e6d
commit f7d2c856ec
7 changed files with 28 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/penv/psi_c_collective_mod.F90
+4 -4
View File
@@ -107,7 +107,7 @@ contains
logical :: collective_start, collective_end, collective_sync logical :: collective_start, collective_end, collective_sync
#if defined(SERIAL_MPI) #if defined(SERIAL_MPI)
resv(0) = dat resv(1) = dat
#else #else
call psb_info(ctxt,iam,np) call psb_info(ctxt,iam,np)
@@ -160,7 +160,7 @@ contains
use mpi use mpi
#endif #endif
implicit none implicit none
#ifdef MPI_H #ifdef MP.I_H
include 'mpif.h' include 'mpif.h'
#endif #endif
type(psb_ctxt_type), intent(in) :: ctxt type(psb_ctxt_type), intent(in) :: ctxt
@@ -175,7 +175,7 @@ contains
logical :: collective_start, collective_end, collective_sync logical :: collective_start, collective_end, collective_sync
#if defined(SERIAL_MPI) #if defined(SERIAL_MPI)
resv(0) = dat resv(:) = dat(:)
#else #else
call psb_info(ctxt,iam,np) call psb_info(ctxt,iam,np)
@@ -245,7 +245,7 @@ contains
logical :: collective_start, collective_end, collective_sync logical :: collective_start, collective_end, collective_sync
#if defined(SERIAL_MPI) #if defined(SERIAL_MPI)
resv(0) = dat resv(:) = dat(:)
#else #else
call psb_info(ctxt,iam,np) call psb_info(ctxt,iam,np)
base/modules/penv/psi_d_collective_mod.F90
+4 -4
View File
@@ -747,7 +747,7 @@ contains
logical :: collective_start, collective_end, collective_sync logical :: collective_start, collective_end, collective_sync
#if defined(SERIAL_MPI) #if defined(SERIAL_MPI)
resv(0) = dat resv(1) = dat
#else #else
call psb_info(ctxt,iam,np) call psb_info(ctxt,iam,np)
@@ -800,7 +800,7 @@ contains
use mpi use mpi
#endif #endif
implicit none implicit none
#ifdef MPI_H #ifdef MP.I_H
include 'mpif.h' include 'mpif.h'
#endif #endif
type(psb_ctxt_type), intent(in) :: ctxt type(psb_ctxt_type), intent(in) :: ctxt
@@ -815,7 +815,7 @@ contains
logical :: collective_start, collective_end, collective_sync logical :: collective_start, collective_end, collective_sync
#if defined(SERIAL_MPI) #if defined(SERIAL_MPI)
resv(0) = dat resv(:) = dat(:)
#else #else
call psb_info(ctxt,iam,np) call psb_info(ctxt,iam,np)
@@ -885,7 +885,7 @@ contains
logical :: collective_start, collective_end, collective_sync logical :: collective_start, collective_end, collective_sync
#if defined(SERIAL_MPI) #if defined(SERIAL_MPI)
resv(0) = dat resv(:) = dat(:)
#else #else
call psb_info(ctxt,iam,np) call psb_info(ctxt,iam,np)
base/modules/penv/psi_e_collective_mod.F90
+4 -4
View File
@@ -585,7 +585,7 @@ contains
logical :: collective_start, collective_end, collective_sync logical :: collective_start, collective_end, collective_sync
#if defined(SERIAL_MPI) #if defined(SERIAL_MPI)
resv(0) = dat resv(1) = dat
#else #else
call psb_info(ctxt,iam,np) call psb_info(ctxt,iam,np)
@@ -638,7 +638,7 @@ contains
use mpi use mpi
#endif #endif
implicit none implicit none
#ifdef MPI_H #ifdef MP.I_H
include 'mpif.h' include 'mpif.h'
#endif #endif
type(psb_ctxt_type), intent(in) :: ctxt type(psb_ctxt_type), intent(in) :: ctxt
@@ -653,7 +653,7 @@ contains
logical :: collective_start, collective_end, collective_sync logical :: collective_start, collective_end, collective_sync
#if defined(SERIAL_MPI) #if defined(SERIAL_MPI)
resv(0) = dat resv(:) = dat(:)
#else #else
call psb_info(ctxt,iam,np) call psb_info(ctxt,iam,np)
@@ -723,7 +723,7 @@ contains
logical :: collective_start, collective_end, collective_sync logical :: collective_start, collective_end, collective_sync
#if defined(SERIAL_MPI) #if defined(SERIAL_MPI)
resv(0) = dat resv(:) = dat(:)
#else #else
call psb_info(ctxt,iam,np) call psb_info(ctxt,iam,np)
base/modules/penv/psi_i2_collective_mod.F90
+4 -4
View File
@@ -585,7 +585,7 @@ contains
logical :: collective_start, collective_end, collective_sync logical :: collective_start, collective_end, collective_sync
#if defined(SERIAL_MPI) #if defined(SERIAL_MPI)
resv(0) = dat resv(1) = dat
#else #else
call psb_info(ctxt,iam,np) call psb_info(ctxt,iam,np)
@@ -638,7 +638,7 @@ contains
use mpi use mpi
#endif #endif
implicit none implicit none
#ifdef MPI_H #ifdef MP.I_H
include 'mpif.h' include 'mpif.h'
#endif #endif
type(psb_ctxt_type), intent(in) :: ctxt type(psb_ctxt_type), intent(in) :: ctxt
@@ -653,7 +653,7 @@ contains
logical :: collective_start, collective_end, collective_sync logical :: collective_start, collective_end, collective_sync
#if defined(SERIAL_MPI) #if defined(SERIAL_MPI)
resv(0) = dat resv(:) = dat(:)
#else #else
call psb_info(ctxt,iam,np) call psb_info(ctxt,iam,np)
@@ -723,7 +723,7 @@ contains
logical :: collective_start, collective_end, collective_sync logical :: collective_start, collective_end, collective_sync
#if defined(SERIAL_MPI) #if defined(SERIAL_MPI)
resv(0) = dat resv(:) = dat(:)
#else #else
call psb_info(ctxt,iam,np) call psb_info(ctxt,iam,np)
base/modules/penv/psi_m_collective_mod.F90
+4 -4
View File
@@ -585,7 +585,7 @@ contains
logical :: collective_start, collective_end, collective_sync logical :: collective_start, collective_end, collective_sync
#if defined(SERIAL_MPI) #if defined(SERIAL_MPI)
resv(0) = dat resv(1) = dat
#else #else
call psb_info(ctxt,iam,np) call psb_info(ctxt,iam,np)
@@ -638,7 +638,7 @@ contains
use mpi use mpi
#endif #endif
implicit none implicit none
#ifdef MPI_H #ifdef MP.I_H
include 'mpif.h' include 'mpif.h'
#endif #endif
type(psb_ctxt_type), intent(in) :: ctxt type(psb_ctxt_type), intent(in) :: ctxt
@@ -653,7 +653,7 @@ contains
logical :: collective_start, collective_end, collective_sync logical :: collective_start, collective_end, collective_sync
#if defined(SERIAL_MPI) #if defined(SERIAL_MPI)
resv(0) = dat resv(:) = dat(:)
#else #else
call psb_info(ctxt,iam,np) call psb_info(ctxt,iam,np)
@@ -723,7 +723,7 @@ contains
logical :: collective_start, collective_end, collective_sync logical :: collective_start, collective_end, collective_sync
#if defined(SERIAL_MPI) #if defined(SERIAL_MPI)
resv(0) = dat resv(:) = dat(:)
#else #else
call psb_info(ctxt,iam,np) call psb_info(ctxt,iam,np)
base/modules/penv/psi_s_collective_mod.F90
+4 -4
View File
@@ -747,7 +747,7 @@ contains
logical :: collective_start, collective_end, collective_sync logical :: collective_start, collective_end, collective_sync
#if defined(SERIAL_MPI) #if defined(SERIAL_MPI)
resv(0) = dat resv(1) = dat
#else #else
call psb_info(ctxt,iam,np) call psb_info(ctxt,iam,np)
@@ -800,7 +800,7 @@ contains
use mpi use mpi
#endif #endif
implicit none implicit none
#ifdef MPI_H #ifdef MP.I_H
include 'mpif.h' include 'mpif.h'
#endif #endif
type(psb_ctxt_type), intent(in) :: ctxt type(psb_ctxt_type), intent(in) :: ctxt
@@ -815,7 +815,7 @@ contains
logical :: collective_start, collective_end, collective_sync logical :: collective_start, collective_end, collective_sync
#if defined(SERIAL_MPI) #if defined(SERIAL_MPI)
resv(0) = dat resv(:) = dat(:)
#else #else
call psb_info(ctxt,iam,np) call psb_info(ctxt,iam,np)
@@ -885,7 +885,7 @@ contains
logical :: collective_start, collective_end, collective_sync logical :: collective_start, collective_end, collective_sync
#if defined(SERIAL_MPI) #if defined(SERIAL_MPI)
resv(0) = dat resv(:) = dat(:)
#else #else
call psb_info(ctxt,iam,np) call psb_info(ctxt,iam,np)
base/modules/penv/psi_z_collective_mod.F90
+4 -4
View File
@@ -107,7 +107,7 @@ contains
logical :: collective_start, collective_end, collective_sync logical :: collective_start, collective_end, collective_sync
#if defined(SERIAL_MPI) #if defined(SERIAL_MPI)
resv(0) = dat resv(1) = dat
#else #else
call psb_info(ctxt,iam,np) call psb_info(ctxt,iam,np)
@@ -160,7 +160,7 @@ contains
use mpi use mpi
#endif #endif
implicit none implicit none
#ifdef MPI_H #ifdef MP.I_H
include 'mpif.h' include 'mpif.h'
#endif #endif
type(psb_ctxt_type), intent(in) :: ctxt type(psb_ctxt_type), intent(in) :: ctxt
@@ -175,7 +175,7 @@ contains
logical :: collective_start, collective_end, collective_sync logical :: collective_start, collective_end, collective_sync
#if defined(SERIAL_MPI) #if defined(SERIAL_MPI)
resv(0) = dat resv(:) = dat(:)
#else #else
call psb_info(ctxt,iam,np) call psb_info(ctxt,iam,np)
@@ -245,7 +245,7 @@ contains
logical :: collective_start, collective_end, collective_sync logical :: collective_start, collective_end, collective_sync
#if defined(SERIAL_MPI) #if defined(SERIAL_MPI)
resv(0) = dat resv(:) = dat(:)
#else #else
call psb_info(ctxt,iam,np) call psb_info(ctxt,iam,np)