fdurastante/amg4psblas
1
0
Fork 0
mirror of https://github.com/sfilippone/amg4psblas.git synced 2026-10-06 22:55:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

mld2p4

Browse Source 
mld_dsp_renum.f90
mld_zsp_renum.f90

Fixed bug: itmp2 on global renumbering was not initialized properly.
This commit is contained in:
Salvatore Filippone
2008-02-11 12:18:53 +00:00
parent 799171aa2b
commit 80504f9aa6
2 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mlprec/mld_dsp_renum.f90
+3 -1
View File
@@ -136,7 +136,9 @@ subroutine mld_dsp_renum(a,blck,p,atmp,info)
call psb_errpush(4010,name,a_err='Allocate')
goto 9999
end if
do i=1, nnr
itmp2(i) = i
end do
call psb_loc_to_glob(itmp2(1:nnr),p%desc_data,info,iact='I')
!
! Compute reordering. We want new(i) = old(perm(i)).
mlprec/mld_zsp_renum.f90
+3 -1
View File
@@ -136,7 +136,9 @@ subroutine mld_zsp_renum(a,blck,p,atmp,info)
call psb_errpush(4010,name,a_err='Allocate')
goto 9999
end if
do i=1, nnr
itmp2(i) = i
end do
call psb_loc_to_glob(itmp2(1:nnr),p%desc_data,info,iact='I')
!
! Compute reordering. We want new(i) = old(perm(i)).