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

psblas2

Browse Source 
base/serial/psb_sfixcoo.f90

Fixed type mismatch in fixcoo.
This commit is contained in:
Salvatore Filippone
2008-07-25 14:57:22 +00:00
parent 0a3d2871c9
commit 7f2074779d
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/serial/psb_sfixcoo.f90
+2 -2
View File
@@ -166,7 +166,7 @@ subroutine psb_sfixcoo(a,info,idir)
case(1) ! Col major order
call msort_up(nza,a%ia2(1),iaux(1),iret)
if (iret == 0) call reordvn(nza,a%aspk(1),a%ia1(1),a%ia2(1),iaux(1))
if (iret == 0) call sreordvn(nza,a%aspk(1),a%ia1(1),a%ia2(1),iaux(1))
i = 1
j = i
do while (i <= nza)
@@ -177,7 +177,7 @@ subroutine psb_sfixcoo(a,info,idir)
nzl = j - i
call msort_up(nzl,a%ia1(i),iaux(1),iret)
if (iret == 0) &
& call reordvn(nzl,a%aspk(i),a%ia1(i),a%ia2(i),iaux(1))
& call sreordvn(nzl,a%aspk(i),a%ia1(i),a%ia2(i),iaux(1))
i = j
enddo