From a10d403a82a8c0766dcaf206aa1228d4de72f819 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Mon, 3 Jul 2006 15:04:31 +0000 Subject: [PATCH] Revert to old version to avoid performance problem. To be investigated further. --- src/serial/psb_dnumbmm.f90 | 2 +- src/serial/psb_dsymbmm.f90 | 2 +- src/serial/psb_znumbmm.f90 | 2 +- src/serial/psb_zsymbmm.f90 | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/src/serial/psb_dnumbmm.f90 b/src/serial/psb_dnumbmm.f90 index 0fa97547..278954c6 100644 --- a/src/serial/psb_dnumbmm.f90 +++ b/src/serial/psb_dnumbmm.f90 @@ -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) diff --git a/src/serial/psb_dsymbmm.f90 b/src/serial/psb_dsymbmm.f90 index 4e9f3b3f..67e1a092 100644 --- a/src/serial/psb_dsymbmm.f90 +++ b/src/serial/psb_dsymbmm.f90 @@ -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) diff --git a/src/serial/psb_znumbmm.f90 b/src/serial/psb_znumbmm.f90 index 0b400fda..53f4f031 100644 --- a/src/serial/psb_znumbmm.f90 +++ b/src/serial/psb_znumbmm.f90 @@ -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) diff --git a/src/serial/psb_zsymbmm.f90 b/src/serial/psb_zsymbmm.f90 index 5568278a..4b7d23f7 100644 --- a/src/serial/psb_zsymbmm.f90 +++ b/src/serial/psb_zsymbmm.f90 @@ -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)