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

Fix compilation with --enable-serial

Browse Source
repack-nvid
sfilippone 11 months ago
parent e0a4d362fa
commit 472f16f0df
7 changed files with 21 additions and 21 deletions
Show Stats Download Patch File Download Diff File

6
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)
@ -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)

6
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)
@ -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)

6
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)
@ -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)

6
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)
@ -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)

6
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)
@ -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)

6
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)
@ -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)

6
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)
@ -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