*** empty log message ***

14 years ago · f8df315f48
parent 80690b0f28
commit f8df315f48
1 changed files with 1 additions and 1 deletions
--- a/base/serial/impl/psb_d_csc_impl.f90
+++ b/base/serial/impl/psb_d_csc_impl.f90
@ -833,7 +833,7 @@ subroutine psb_d_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