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

Fixed makefile and use statements for psb_msort, psb_qsort etc.

Browse Source
This commit is contained in:
Salvatore Filippone
2007-02-07 14:12:41 +00:00
parent 12b31cfdae
commit 8d7204857d
2 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files
psb_dsp_renum.f90
+5 -5
View File
@@ -97,7 +97,7 @@ subroutine psb_dsp_renum(a,desc_a,blck,p,atmp,info)
!
! We want: NEW(I) = OLD(PERM(I))
!
call isrx(nnr,itmp2,p%perm)
call psb_msort(itmp2(1:nnr),ix=p%perm)
do k=1, nnr
p%invperm(p%perm(k)) = k
@@ -138,7 +138,7 @@ subroutine psb_dsp_renum(a,desc_a,blck,p,atmp,info)
atmp%ia1(j+k-1) = p%invperm(a%ia1(jj+kk-1))
endif
enddo
call isrx(k,atmp%ia1(j:j+k-1),itmp2)
call psb_msort(atmp%ia1(j:j+k-1),ix=itmp2)
do kk=1,k
atmp%aspk(j+kk-1) = rtmp(itmp2(kk))
enddo
@@ -165,7 +165,7 @@ subroutine psb_dsp_renum(a,desc_a,blck,p,atmp,info)
atmp%ia1(j+k-1) = p%invperm(blck%ia1(jj+kk-1))
endif
enddo
call isrx(k,atmp%ia1(j:j+k-1),itmp2)
call psb_msort(atmp%ia1(j:j+k-1),ix=itmp2)
do kk=1,k
atmp%aspk(j+kk-1) = rtmp(itmp2(kk))
enddo
@@ -298,7 +298,7 @@ subroutine psb_dsp_renum(a,desc_a,blck,p,atmp,info)
atmp%ia1(j+k-1) = p%invperm(a%ia1(jj+kk-1))
endif
enddo
call isrx(k,atmp%ia1(j:j+k-1),itmp2)
call psb_msort(atmp%ia1(j:j+k-1),ix=itmp2)
do kk=1,k
atmp%aspk(j+kk-1) = rtmp(itmp2(kk))
enddo
@@ -325,7 +325,7 @@ subroutine psb_dsp_renum(a,desc_a,blck,p,atmp,info)
atmp%ia1(j+k-1) = p%invperm(blck%ia1(jj+kk-1))
endif
enddo
call isrx(k,atmp%ia1(j:j+k-1),itmp2)
call psb_msort(atmp%ia1(j:j+k-1),ix=itmp2)
do kk=1,k
atmp%aspk(j+kk-1) = rtmp(itmp2(kk))
enddo
psb_zsp_renum.f90
+5 -5
View File
@@ -95,7 +95,7 @@ subroutine psb_zsp_renum(a,desc_a,blck,p,atmp,info)
!
! We want: NEW(I) = OLD(PERM(I))
!
call isrx(nnr,itmp2,p%perm)
call psb_msort(itmp2(1:nnr),ix=p%perm)
do k=1, nnr
p%invperm(p%perm(k)) = k
@@ -136,7 +136,7 @@ subroutine psb_zsp_renum(a,desc_a,blck,p,atmp,info)
atmp%ia1(j+k-1) = p%invperm(a%ia1(jj+kk-1))
endif
enddo
call isrx(k,atmp%ia1(j:j+k-1),itmp2)
call psb_msort(atmp%ia1(j:j+k-1),ix=itmp2)
do kk=1,k
atmp%aspk(j+kk-1) = ztmp(itmp2(kk))
enddo
@@ -163,7 +163,7 @@ subroutine psb_zsp_renum(a,desc_a,blck,p,atmp,info)
atmp%ia1(j+k-1) = p%invperm(blck%ia1(jj+kk-1))
endif
enddo
call isrx(k,atmp%ia1(j:j+k-1),itmp2)
call psb_msort(atmp%ia1(j:j+k-1),ix=itmp2)
do kk=1,k
atmp%aspk(j+kk-1) = ztmp(itmp2(kk))
enddo
@@ -297,7 +297,7 @@ subroutine psb_zsp_renum(a,desc_a,blck,p,atmp,info)
atmp%ia1(j+k-1) = p%invperm(a%ia1(jj+kk-1))
endif
enddo
call isrx(k,atmp%ia1(j:j+k-1),itmp2)
call psb_msort(atmp%ia1(j:j+k-1),ix=itmp2)
do kk=1,k
atmp%aspk(j+kk-1) = ztmp(itmp2(kk))
enddo
@@ -324,7 +324,7 @@ subroutine psb_zsp_renum(a,desc_a,blck,p,atmp,info)
atmp%ia1(j+k-1) = p%invperm(blck%ia1(jj+kk-1))
endif
enddo
call isrx(k,atmp%ia1(j:j+k-1),itmp2)
call psb_msort(atmp%ia1(j:j+k-1),ix=itmp2)
do kk=1,k
atmp%aspk(j+kk-1) = ztmp(itmp2(kk))
enddo