From 2bc9249c1af03228e20aa59322127d56217dca6e Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Tue, 7 Feb 2012 20:41:52 +0000 Subject: [PATCH] psblas3-integer8: 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 498ba4e6..b6613559 100644 --- a/base/modules/psb_gen_block_map_mod.f90 +++ b/base/modules/psb_gen_block_map_mod.f90 @@ -660,7 +660,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_)