From 7f5715c10d329a4705b3eaf7c2efd5f318df1813 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Tue, 28 Apr 2015 20:11:05 +0000 Subject: [PATCH] *** empty log message *** --- base/modules/psb_sort_mod.f90 | 11 ----------- 1 file changed, 11 deletions(-) diff --git a/base/modules/psb_sort_mod.f90 b/base/modules/psb_sort_mod.f90 index 30e647d6..edf7a85d 100644 --- a/base/modules/psb_sort_mod.f90 +++ b/base/modules/psb_sort_mod.f90 @@ -44,16 +44,6 @@ module psb_sort_mod use psb_const_mod - ! - ! The up/down constant are defined in pairs having - ! opposite values. We make use of this fact in the heapsort routine. - ! - integer(psb_ipk_), parameter :: psb_sort_up_ = 1, psb_sort_down_ = -1 - integer(psb_ipk_), parameter :: psb_lsort_up_ = 2, psb_lsort_down_ = -2 - integer(psb_ipk_), parameter :: psb_asort_up_ = 3, psb_asort_down_ = -3 - integer(psb_ipk_), parameter :: psb_alsort_up_ = 4, psb_alsort_down_ = -4 - integer(psb_ipk_), parameter :: psb_sort_ovw_idx_ = 0, psb_sort_keep_idx_ = 1 - integer(psb_ipk_), parameter :: psb_heap_resize = 200 type psb_int_heap integer(psb_ipk_) :: last, dir @@ -198,7 +188,6 @@ module psb_sort_mod interface psb_hsort -!!$ module procedure ihsort, shsort, chsort, dhsort, zhsort subroutine ihsort(x,ix,dir,flag) import :: psb_ipk_, psb_spk_, psb_dpk_ integer(psb_ipk_), intent(inout) :: x(:)