*** empty log message ***

11 years ago · b048e0a216
parent fd82da8d8a
commit b048e0a216
1 changed files with 1 additions and 1 deletions
--- a/base/serial/impl/psb_base_mat_impl.f90
+++ b/base/serial/impl/psb_base_mat_impl.f90
@ -224,7 +224,7 @@ subroutine psb_base_get_neigh(a,idx,neigh,n,info,lev)
        ntl = ntl+nn
      end if
    end do
-    call psb_msort_unique(neigh(ill+1:ill+ntl),nn)
+    call psb_msort_unique(neigh(ill+1:ill+ntl),nn,dir=psb_sort_up_)
    ifl = ill + 1
    ill = ill + nn
  end do