Revert to old version to avoid performance problem. To be investigated further.

psblas3-type-indexed
Salvatore Filippone 19 years ago
parent 4d851f3462
commit a10d403a82

@ -71,7 +71,7 @@ subroutine psb_dnumbmm(a,b,c)
! Note: we still have to test about possible performance hits.
!
!
if (.false.) then
if (.true.) then
call numbmm(a%m,a%k,b%k,a%ia2,a%ia1,0,a%aspk,&
& b%ia2,b%ia1,0,b%aspk,&
& c%ia2,c%ia1,0,c%aspk,temp)

@ -83,7 +83,7 @@ subroutine psb_dsymbmm(a,b,c)
! Note: we need to test whether there is a performance impact
! in not using the original Douglas & Bank code.
!
if (.false.) then
if (.true.) then
call symbmm(a%m,a%k,b%k,a%ia2,a%ia1,0,&
& b%ia2,b%ia1,0,&
& c%ia2,c%ia1,0,itemp)

@ -71,7 +71,7 @@ subroutine psb_znumbmm(a,b,c)
! Note: we still have to test about possible performance hits.
!
!
if (.false.) then
if (.true.) then
call znumbmm(a%m,a%k,b%k,a%ia2,a%ia1,0,a%aspk,&
& b%ia2,b%ia1,0,b%aspk,&
& c%ia2,c%ia1,0,c%aspk,temp)

@ -83,7 +83,7 @@ subroutine psb_zsymbmm(a,b,c)
! Note: we need to test whether there is a performance impact
! in not using the original Douglas & Bank code.
!
if (.false.) then
if (.true.) then
call symbmm(a%m,a%k,b%k,a%ia2,a%ia1,0,&
& b%ia2,b%ia1,0,&
& c%ia2,c%ia1,0,itemp)

Loading…
Cancel
Save