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

Fix silly error with uninitialized variable

Browse Source
This commit is contained in:
Salvatore Filippone
2021-02-05 13:44:21 +01:00
parent 82c2e6374b
commit 76900aedff
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/internals/psi_graph_fnd_owner.F90
+3 -3
View File
@@ -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