From c76878554148cc1733419c6da8fa0ef102f54cc2 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Wed, 14 Apr 2021 15:09:49 -0400 Subject: [PATCH] Do not call symm_dep_list in serial mode --- base/internals/psi_xtr_loc_dl.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/base/internals/psi_xtr_loc_dl.F90 b/base/internals/psi_xtr_loc_dl.F90 index 8275add9..c920ade1 100644 --- a/base/internals/psi_xtr_loc_dl.F90 +++ b/base/internals/psi_xtr_loc_dl.F90 @@ -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