base/modules/psb_gen_block_map_mod.f90

Never use qsort again!
psblas3-type-indexed
Salvatore Filippone 13 years ago
parent 204faaba12
commit 6dc39bfb56

@ -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_)

Loading…
Cancel
Save