psblas3-integer8:

base/modules/psb_gen_block_map_mod.f90 Never use qsort again!
13 years ago · 2bc9249c1a
parent 29646c30c7
commit 2bc9249c1a
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
@ -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_)