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

*** empty log message ***

Browse Source
This commit is contained in:
Alfredo Buttari
2005-09-29 09:02:07 +00:00
parent 3ac80ee128
commit 0e235de552
15 changed files with 424 additions and 357 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/serial/f77/dswmm.f
+1 -1
View File
@@ -153,7 +153,7 @@ C
C
C
CALL DCOOMM(TRANS,M,N,K,ALPHA,DESCRA,A,IA1,
+ IA2,INFOA,B,LDB,BETA,C,LDC,WORK)
+ IA2,INFOA,B,LDB,BETA,C,LDC,WORK,LWORK,IERROR)
ELSE
C
C This data structure not yet considered
src/serial/psb_dcsdp.f90
+1 -1
View File
@@ -266,7 +266,7 @@ subroutine psb_dcsdp(a, b,info,ifc,check,trans,unitd)
case ('COO')
call dcoco(trans_, a%m, a%k, unitd_, d, a%descra, a%aspk,&
& a%ia2, a%ia1, a%infoa, b%pl, b%descra, b%aspk, b%ia1,&
& a%ia1, a%ia2, a%infoa, b%pl, b%descra, b%aspk, b%ia1,&
& b%ia2, b%infoa, b%pr, size(b%aspk), size(b%ia1),&
& size(b%ia2), work, 2*size(work), info)
if (info/=0) then
src/serial/psb_dfixcoo.f90
+2 -2
View File
@@ -41,9 +41,9 @@ Subroutine psb_dfixcoo(A,INFO)
if (j > nza) exit
enddo
nzl = j - i
call mrgsrt(nzl,a%ia2(i:i+nzl-1),iaux,iret)
call mrgsrt(nzl,a%ia2(i),iaux,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)
i = j
enddo