fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fix gather with SERIAL

Browse Source
maint-3.8.1 v3.8.1-rc1-2
sfilippone 1 year ago
parent d718ef1e6d
commit f7d2c856ec
7 changed files with 28 additions and 28 deletions
Show Stats Download Patch File Download Diff File

8
base/modules/penv/psi_c_collective_mod.F90
Unescape Escape 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)

8
base/modules/penv/psi_d_collective_mod.F90
Unescape Escape 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)

8
base/modules/penv/psi_e_collective_mod.F90
Unescape Escape 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)

8
base/modules/penv/psi_i2_collective_mod.F90
Unescape Escape 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)

8
base/modules/penv/psi_m_collective_mod.F90
Unescape Escape 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)

8
base/modules/penv/psi_s_collective_mod.F90
Unescape Escape 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)

8
base/modules/penv/psi_z_collective_mod.F90
Unescape Escape 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)

Write Preview
Loading…
Cancel
Save