*** empty log message ***

17 years ago · edc6f423a7
parent 908ef1d466
commit edc6f423a7
1 changed files with 1 additions and 1 deletions
--- a/base/internals/psi_dl_check.f90
+++ b/base/internals/psi_dl_check.f90
@ -65,7 +65,7 @@ subroutine psi_dl_check(dep_list,dl_lda,np,length_dl)
    outer: do 
      if (i >length_dl(proc)) exit outer
      proc2=dep_list(i,proc)
-      if (proc2.ne.psb_no_comm_) then
+      if (proc2.ne.-1) then
        ! ...search proc in proc2's dep_list....
        j=1
        p2loop:do