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.
14 years ago · 1c446fc051
parent 76fdd859f7
commit 1c446fc051
3 changed files with 3 additions and 3 deletions
--- 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

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

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