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

Fixed temporary copy problem in call to mrgsrt

Browse Source
This commit is contained in:
Alfredo Buttari
2005-12-07 09:30:43 +00:00
parent c3b199021d
commit a26ea197e3
3 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/serial/imsr.f90
+1 -1
View File
@@ -23,7 +23,7 @@
endif
call mrgsrt(n,x,iaux,iret)
call mrgsrt(n,x(1),iaux(1),iret)
if (iret == 0) then
lp = iaux(0)
src/serial/imsrx.f90
+1 -1
View File
@@ -31,7 +31,7 @@
indx(k) = k
enddo
call mrgsrt(n,x,iaux,iret)
call mrgsrt(n,x(1),iaux(1),iret)
if (iret /= 1) then
lp = iaux(0)
src/serial/psb_dfixcoo.f90
+8 -8
View File
@@ -41,8 +41,8 @@ Subroutine psb_dfixcoo(A,INFO,idir)
case(0) ! Row major order
call mrgsrt(nza,a%ia1,iaux,iret)
if (iret.eq.0) call reordvn(nza,a%aspk,a%ia1,a%ia2,iaux)
call mrgsrt(nza,a%ia1(1),iaux(1),iret)
if (iret.eq.0) call reordvn(nza,a%aspk(1),a%ia1(1),a%ia2(1),iaux(1))
i = 1
j = i
do while (i.le.nza)
@@ -51,9 +51,9 @@ Subroutine psb_dfixcoo(A,INFO,idir)
if (j > nza) exit
enddo
nzl = j - i
call mrgsrt(nzl,a%ia2(i),iaux,iret)
call mrgsrt(nzl,a%ia2(i),iaux(1),iret)
if (iret.eq.0) &
& call reordvn(nzl,a%aspk(i),a%ia1(i),a%ia2(i),iaux)
& call reordvn(nzl,a%aspk(i),a%ia1(i),a%ia2(i),iaux(1))
i = j
enddo
@@ -82,8 +82,8 @@ Subroutine psb_dfixcoo(A,INFO,idir)
case(1) ! Col major order
call mrgsrt(nza,a%ia2,iaux,iret)
if (iret.eq.0) call reordvn(nza,a%aspk,a%ia1,a%ia2,iaux)
call mrgsrt(nza,a%ia2(1),iaux(1),iret)
if (iret.eq.0) call reordvn(nza,a%aspk(1),a%ia1(1),a%ia2(1),iaux(1))
i = 1
j = i
do while (i.le.nza)
@@ -92,9 +92,9 @@ Subroutine psb_dfixcoo(A,INFO,idir)
if (j > nza) exit
enddo
nzl = j - i
call mrgsrt(nzl,a%ia1(i:i+nzl-1),iaux,iret)
call mrgsrt(nzl,a%ia1(i),iaux(1),iret)
if (iret.eq.0) &
& call reordvn(nzl,a%aspk(i:i+nzl-1),a%ia1(i:i+nzl-1),a%ia2(i:i+nzl-1),iaux)
& call reordvn(nzl,a%aspk(i),a%ia1(i),a%ia2(i),iaux(1))
i = j
enddo