From 6dc39bfb56d868f6be3d3990d462f842b35b3a10 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Tue, 7 Feb 2012 20:40:07 +0000 Subject: [PATCH] psblas3: base/modules/psb_gen_block_map_mod.f90 Never use qsort again! --- base/modules/psb_gen_block_map_mod.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/base/modules/psb_gen_block_map_mod.f90 b/base/modules/psb_gen_block_map_mod.f90 index 9b1737b8..bfb95dfc 100644 --- a/base/modules/psb_gen_block_map_mod.f90 +++ b/base/modules/psb_gen_block_map_mod.f90 @@ -656,7 +656,7 @@ contains call psb_realloc(nhal,2,idxmap%srt_l2g,info) idxmap%srt_l2g(1:nhal,1) = idxmap%loc_to_glob(1:nhal) - call psb_qsort(idxmap%srt_l2g(:,1),& + call psb_msort(idxmap%srt_l2g(:,1),& & ix=idxmap%srt_l2g(:,2),dir=psb_sort_up_) call idxmap%set_state(psb_desc_asb_)