fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-06 22:55:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix compilation with --enable-serial

Browse Source
This commit is contained in:
sfilippone
2024-03-19 14:00:03 +01:00
parent e0a4d362fa
commit 472f16f0df
7 changed files with 21 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/penv/psi_c_collective_mod.F90
+3 -3
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)
@@ -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
+3 -3
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)
@@ -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
+3 -3
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)
@@ -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
+3 -3
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)
@@ -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
+3 -3
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)
@@ -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
+3 -3
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)
@@ -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
+3 -3
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)
@@ -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)