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

C interface. Not fully working yet.

Browse Source
This commit is contained in:
Salvatore Filippone
2020-11-16 09:51:08 +01:00
parent b376d226cb
commit 8b2b86d44d
3 changed files with 11 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/penv/psi_penv_mod.F90
+8 -3
View File
@@ -870,7 +870,8 @@ contains
include 'mpif.h'
#endif
type(psb_ctxt_type), intent(out) :: ictxt
integer(psb_mpk_), intent(in), optional :: np, basectxt, ids(:)
type(psb_ctxt_type), intent(in), optional :: basectxt
integer(psb_mpk_), intent(in), optional :: np, ids(:)
integer(psb_mpk_) :: i, isnullcomm, icomm
integer(psb_mpk_), allocatable :: iids(:)
@@ -898,8 +899,12 @@ contains
end if
end if
if (present(basectxt)) then
basecomm = basectxt
if (present(basectxt)) then
if (allocated(basectxt%ctxt)) then
basecomm = basectxt%ctxt
else
basecomm = mpi_comm_world
end if
else
basecomm = mpi_comm_world
end if