From b048e0a2169d31cfa864ee13f6e651951441bbe5 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Wed, 4 Dec 2013 13:53:14 +0000 Subject: [PATCH] *** empty log message *** --- base/serial/impl/psb_base_mat_impl.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/base/serial/impl/psb_base_mat_impl.f90 b/base/serial/impl/psb_base_mat_impl.f90 index b052029b..7ac4153a 100644 --- 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