From 33b91706d5c4301f0391f8223f748aae734da66d Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Wed, 19 Jun 2013 14:56:40 +0000
Subject: [PATCH] psblas3:  base/psblas/psb_daxpby.f90 
 base/psblas/psb_saxpby.f90  base/psblas/psb_zaxpby.f90

Exceedingly silly preprocessing bug.
---
 base/psblas/psb_daxpby.f90 | 4 ++--
 base/psblas/psb_saxpby.f90 | 4 ++--
 base/psblas/psb_zaxpby.f90 | 4 ++--
 3 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/base/psblas/psb_daxpby.f90 b/base/psblas/psb_daxpby.f90
index bf184e83..27631b21 100644
--- a/base/psblas/psb_daxpby.f90
+++ b/base/psblas/psb_daxpby.f90
@@ -220,7 +220,7 @@ subroutine  psb_daxpby(alpha, x, beta,y,desc_a,info, n, jx, jy)
 
   if ((in /= 0)) then
     if(desc_a%get_local_rows() > 0) then
-      call caxpby(desc_a%get_local_cols(),in,&
+      call daxpby(desc_a%get_local_cols(),in,&
            & alpha,x(iix:,jjx),lldx,beta,&
            & y(iiy:,jjy),lldy,info)
     end if
@@ -348,7 +348,7 @@ subroutine  psb_daxpbyv(alpha, x, beta,y,desc_a,info)
   end if
 
   if(desc_a%get_local_rows() > 0) then
-    call caxpby(desc_a%get_local_cols(),ione,&
+    call daxpby(desc_a%get_local_cols(),ione,&
          & alpha,x,lldx,beta,&
          & y,lldy,info)
   end if
diff --git a/base/psblas/psb_saxpby.f90 b/base/psblas/psb_saxpby.f90
index a64ca3e5..1af47f43 100644
--- a/base/psblas/psb_saxpby.f90
+++ b/base/psblas/psb_saxpby.f90
@@ -220,7 +220,7 @@ subroutine  psb_saxpby(alpha, x, beta,y,desc_a,info, n, jx, jy)
 
   if ((in /= 0)) then
     if(desc_a%get_local_rows() > 0) then
-      call caxpby(desc_a%get_local_cols(),in,&
+      call saxpby(desc_a%get_local_cols(),in,&
            & alpha,x(iix:,jjx),lldx,beta,&
            & y(iiy:,jjy),lldy,info)
     end if
@@ -348,7 +348,7 @@ subroutine  psb_saxpbyv(alpha, x, beta,y,desc_a,info)
   end if
 
   if(desc_a%get_local_rows() > 0) then
-    call caxpby(desc_a%get_local_cols(),ione,&
+    call saxpby(desc_a%get_local_cols(),ione,&
          & alpha,x,lldx,beta,&
          & y,lldy,info)
   end if
diff --git a/base/psblas/psb_zaxpby.f90 b/base/psblas/psb_zaxpby.f90
index c034d7e2..45dece41 100644
--- a/base/psblas/psb_zaxpby.f90
+++ b/base/psblas/psb_zaxpby.f90
@@ -220,7 +220,7 @@ subroutine  psb_zaxpby(alpha, x, beta,y,desc_a,info, n, jx, jy)
 
   if ((in /= 0)) then
     if(desc_a%get_local_rows() > 0) then
-      call caxpby(desc_a%get_local_cols(),in,&
+      call zaxpby(desc_a%get_local_cols(),in,&
            & alpha,x(iix:,jjx),lldx,beta,&
            & y(iiy:,jjy),lldy,info)
     end if
@@ -348,7 +348,7 @@ subroutine  psb_zaxpbyv(alpha, x, beta,y,desc_a,info)
   end if
 
   if(desc_a%get_local_rows() > 0) then
-    call caxpby(desc_a%get_local_cols(),ione,&
+    call zaxpby(desc_a%get_local_cols(),ione,&
          & alpha,x,lldx,beta,&
          & y,lldy,info)
   end if