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

Fix internals for SERIAL_MPI

Browse Source
This commit is contained in:
Salvatore Filippone
2021-04-13 16:54:47 +02:00
parent 39e1efb508
commit ceda17be7e
4 changed files with 18 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/penv/psi_penv_mod.F90
+2 -1
View File
@@ -45,6 +45,7 @@ module mpi
integer(psb_mpk_), parameter :: mpi_character = 7
integer(psb_mpk_), parameter :: mpi_logical = 8
integer(psb_mpk_), parameter :: mpi_integer2 = 9
integer(psb_mpk_), parameter :: mpi_integer4 = 10
integer(psb_mpk_), parameter :: mpi_comm_null = -1
integer(psb_mpk_), parameter :: mpi_comm_world = 1
@@ -823,7 +824,7 @@ contains
call psb_set_debug_unit(psb_err_unit)
#if defined(SERIAL_MPI)
ctxt = nctxt
ctxt%ctxt = nctxt ! allocate on assignment
nctxt = nctxt + 1
call psi_register_mpi_extras(info)