fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-20 21:02:26 +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_z_csc_impl.f90
+8 -8
View File
@@ -93,14 +93,14 @@ subroutine psb_z_csc_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,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
@@ -366,14 +366,14 @@ subroutine psb_z_csc_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
@@ -650,14 +650,14 @@ subroutine psb_z_csc_cssv(alpha,a,x,beta,y,info,trans)
if (size(x,1)<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,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
@@ -864,14 +864,14 @@ subroutine psb_z_csc_cssm(alpha,a,x,beta,y,info,trans)
if (size(x,1)<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) = 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