fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-18 03:42:09 +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
#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)
base/modules/penv/psi_d_collective_mod.F90
+4 -4
View File
@@ -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)
base/modules/penv/psi_e_collective_mod.F90
+4 -4
View File
@@ -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)
base/modules/penv/psi_i2_collective_mod.F90
+4 -4
View File
@@ -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)
base/modules/penv/psi_m_collective_mod.F90
+4 -4
View File
@@ -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)
base/modules/penv/psi_s_collective_mod.F90
+4 -4
View File
@@ -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)
base/modules/penv/psi_z_collective_mod.F90
+4 -4
View File
@@ -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)