fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-20 12:52:14 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix error message handling for CSMV

Browse Source
This commit is contained in:
Salvatore Filippone
2018-01-15 14:22:03 +00:00
parent 2cc244433e
commit a947008be2
12 changed files with 88 additions and 88 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/serial/impl/psb_c_csr_impl.f90
+6 -6
View File
@@ -93,14 +93,14 @@ subroutine psb_c_csr_csmv(alpha,a,x,beta,y,info,trans)
if (size(x,1)<n) then
info = psb_err_input_asize_small_i_
ierr(1) = 3; ierr(2) = n;
ierr(1) = 3; ierr(2) = size(x); ierr(3) = n;
call psb_errpush(info,name,i_err=ierr)
goto 9999
end if
if (size(y,1)<m) then
info = psb_err_input_asize_small_i_
ierr(1) = 5; ierr(2) = m;
ierr(1) = 5; ierr(2) = size(y); ierr(3) =m;
call psb_errpush(info,name,i_err=ierr)
goto 9999
end if
@@ -436,14 +436,14 @@ subroutine psb_c_csr_csmm(alpha,a,x,beta,y,info,trans)
if (size(x,1)<n) then
info = psb_err_input_asize_small_i_
ierr(1) = 3; ierr(2) = n;
ierr(1) = 3; ierr(2) = size(x,1); ierr(3) = n;
call psb_errpush(info,name,i_err=ierr)
goto 9999
end if
if (size(y,1)<m) then
info = psb_err_input_asize_small_i_
ierr(1) = 5; ierr(2) = m;
ierr(1) = 5; ierr(2) = size(y,1); ierr(3) =m;
call psb_errpush(info,name,i_err=ierr)
goto 9999
end if
@@ -784,14 +784,14 @@ subroutine psb_c_csr_cssv(alpha,a,x,beta,y,info,trans)
if (size(x)<m) then
info = psb_err_input_asize_small_i_
ierr(1) = 3; ierr(2) = m;
ierr(1) = 3; ierr(2) = size(x,1); ierr(3) = m;
call psb_errpush(info,name,i_err=ierr)
goto 9999
end if
if (size(y)<m) then
info = psb_err_input_asize_small_i_
ierr(1) = 5; ierr(2) = m;
ierr(1) = 5; ierr(2) = size(y,1); ierr(3) =m;
call psb_errpush(info,name,i_err=ierr)
goto 9999
end if