mirror of
https://github.com/sfilippone/psblas3.git
synced 2026-10-24 23:01:48 +00:00
Revert to old version to avoid performance problem. To be investigated further.
This commit is contained in:
@@ -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)
|
||||
|
||||
Reference in New Issue
Block a user