From 76900aedffa3c321c7caddf210e25f9187ce4aec Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Fri, 5 Feb 2021 13:44:21 +0100 Subject: [PATCH] Fix silly error with uninitialized variable --- base/internals/psi_graph_fnd_owner.F90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/base/internals/psi_graph_fnd_owner.F90 b/base/internals/psi_graph_fnd_owner.F90 index 5c731d2a..356026c6 100644 --- a/base/internals/psi_graph_fnd_owner.F90 +++ b/base/internals/psi_graph_fnd_owner.F90 @@ -103,7 +103,7 @@ subroutine psi_graph_fnd_owner(idx,iprc,idxmap,info) integer(psb_mpk_) :: icomm, minfo integer(psb_ipk_) :: i,n_row,n_col,err_act,ip,j, nsampl_out,& & nv, n_answers, nqries, nsampl_in, locr_max, ist, iend,& - & nqries_max, nadj, maxspace, mxnsin, mnnsin, nsampl, nlansw + & nqries_max, nadj, maxspace, nsampl, nlansw integer(psb_lpk_) :: mglob, ih type(psb_ctxt_type) :: ctxt integer(psb_ipk_) :: np,me, nresp @@ -269,8 +269,8 @@ subroutine psi_graph_fnd_owner(idx,iprc,idxmap,info) ! currently open queries have already been tested ! on previous adjacency lists, no need to try them again. ! - if (trace.and.(me == 0)) write(0,*) ' Further sweep',nsampl_in, mxnsin, mnnsin - if (mxnsin>0) call psi_adj_fnd_sweep(idx,iprc,ladj,& + if (trace.and.(me == 0)) write(0,*) ' Further sweep',nsampl_in + call psi_adj_fnd_sweep(idx,iprc,ladj,& & idxmap,nsampl_in,n_answers) nqries = nv - n_answers