From 1c446fc05196ebf5b6eb72aee926f99572a1c338 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Tue, 26 Jul 2011 11:53:59 +0000
Subject: [PATCH] psblas3-typvect:  base/serial/impl/psb_c_csc_impl.f90 
 base/serial/impl/psb_d_csc_impl.f90  base/serial/impl/psb_s_csc_impl.f90 
 base/serial/impl/psb_z_csc_impl.f90

Merged fixes for Cray ICE.
---
 base/serial/impl/psb_c_csc_impl.f90 | 2 +-
 base/serial/impl/psb_s_csc_impl.f90 | 2 +-
 base/serial/impl/psb_z_csc_impl.f90 | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/base/serial/impl/psb_c_csc_impl.f90 b/base/serial/impl/psb_c_csc_impl.f90
index a62ec659..296d8a54 100644
--- a/base/serial/impl/psb_c_csc_impl.f90
+++ b/base/serial/impl/psb_c_csc_impl.f90
@@ -1158,7 +1158,7 @@ subroutine psb_c_csc_cssm(alpha,a,x,beta,y,info,trans)
 
   if (size(x,1)<m) then 
     info = 36
-    call psb_errpush(info,name,i_err=(/3,n,0,0,0/))
+    call psb_errpush(info,name,i_err=(/3,m,0,0,0/))
     goto 9999
   end if
 
diff --git a/base/serial/impl/psb_s_csc_impl.f90 b/base/serial/impl/psb_s_csc_impl.f90
index 9144c0ed..d2a621fa 100644
--- a/base/serial/impl/psb_s_csc_impl.f90
+++ b/base/serial/impl/psb_s_csc_impl.f90
@@ -834,7 +834,7 @@ subroutine psb_s_csc_cssm(alpha,a,x,beta,y,info,trans)
 
   if (size(x,1)<m) then 
     info = 36
-    call psb_errpush(info,name,i_err=(/3,n,0,0,0/))
+    call psb_errpush(info,name,i_err=(/3,m,0,0,0/))
     goto 9999
   end if
 
diff --git a/base/serial/impl/psb_z_csc_impl.f90 b/base/serial/impl/psb_z_csc_impl.f90
index 11b50460..55d0b169 100644
--- a/base/serial/impl/psb_z_csc_impl.f90
+++ b/base/serial/impl/psb_z_csc_impl.f90
@@ -1159,7 +1159,7 @@ subroutine psb_z_csc_cssm(alpha,a,x,beta,y,info,trans)
 
   if (size(x,1)<m) then 
     info = 36
-    call psb_errpush(info,name,i_err=(/3,n,0,0,0/))
+    call psb_errpush(info,name,i_err=(/3,m,0,0,0/))
     goto 9999
   end if