fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-19 20:32:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

psblas3:

Browse Source 
base/modules/psb_gen_block_map_mod.f90

Never use qsort again!
This commit is contained in:
Salvatore Filippone
2012-02-07 20:40:07 +00:00
parent 204faaba12
commit 6dc39bfb56
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_gen_block_map_mod.f90
+1 -1
View File
@@ -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_)