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

@@ -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

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

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