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

get_rank and get_mpicomm

Browse Source 
Make psb_get_rank and  psb_get_mpicomm functions, not
subroutines. Document same.
This commit is contained in:
Salvatore Filippone
2019-11-20 14:03:59 +00:00
parent 35b6ee6578
commit cf6db2ea0b
54 changed files with 158 additions and 160 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/internals/psi_extrct_dl.F90
+1 -1
View File
@@ -265,7 +265,7 @@ subroutine psi_i_extract_dep_list(ictxt,is_bld,is_upd,desc_str,dep_list,&
if (err /= 0) goto 9999
call psb_sum(iictxt,length_dl(0:np))
call psb_get_mpicomm(iictxt,icomm )
icomm = psb_get_mpicomm(iictxt)
allocate(itmp(dl_lda),stat=info)
if (info /= psb_success_) then
info=psb_err_alloc_dealloc_