psblas3:

base/modules/psb_gen_block_map_mod.f90 Never use qsort again!
13 years ago · 6dc39bfb56
parent 204faaba12
commit 6dc39bfb56
1 changed files with 1 additions and 1 deletions
--- 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_)