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

Do not call symm_dep_list in serial mode

Browse Source
This commit is contained in:
Salvatore Filippone
2021-04-14 15:09:49 -04:00
parent bcedcd312d
commit c768785541
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/internals/psi_xtr_loc_dl.F90
+1 -1
View File
@@ -209,7 +209,7 @@ subroutine psi_i_xtr_loc_dl(ctxt,is_bld,is_upd,desc_str,loc_dl,length_dl,info)
call psb_msort_unique(loc_dl(1:pdl),ldu)
pdl = ldu
call psb_realloc(pdl,loc_dl,info)
call psi_symm_dep_list(loc_dl,ctxt,info)
if (np>1) call psi_symm_dep_list(loc_dl,ctxt,info)
pdl = size(loc_dl)
length_dl = 0
length_dl(me) = pdl