fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-17 03:12:15 +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_coo_impl.f90
+8 -8
View File
@@ -591,13 +591,13 @@ subroutine psb_c_coo_cssm(alpha,a,x,beta,y,info,trans)
m = a%get_nrows()
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
@@ -941,13 +941,13 @@ subroutine psb_c_coo_cssv(alpha,a,x,beta,y,info,trans)
m = a%get_nrows()
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
@@ -1295,13 +1295,13 @@ subroutine psb_c_coo_csmv(alpha,a,x,beta,y,info,trans)
end if
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
@@ -1492,13 +1492,13 @@ subroutine psb_c_coo_csmm(alpha,a,x,beta,y,info,trans)
end if
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
base/serial/impl/psb_c_csc_impl.f90
+8 -8
View File
@@ -93,14 +93,14 @@ subroutine psb_c_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_c_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_c_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_c_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
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
base/serial/impl/psb_d_coo_impl.f90
+8 -8
View File
@@ -591,13 +591,13 @@ subroutine psb_d_coo_cssm(alpha,a,x,beta,y,info,trans)
m = a%get_nrows()
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
@@ -941,13 +941,13 @@ subroutine psb_d_coo_cssv(alpha,a,x,beta,y,info,trans)
m = a%get_nrows()
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
@@ -1295,13 +1295,13 @@ subroutine psb_d_coo_csmv(alpha,a,x,beta,y,info,trans)
end if
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
@@ -1492,13 +1492,13 @@ subroutine psb_d_coo_csmm(alpha,a,x,beta,y,info,trans)
end if
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
base/serial/impl/psb_d_csc_impl.f90
+8 -8
View File
@@ -93,14 +93,14 @@ subroutine psb_d_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_d_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_d_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_d_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
base/serial/impl/psb_d_csr_impl.f90
+6 -6
View File
@@ -93,14 +93,14 @@ subroutine psb_d_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_d_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_d_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
base/serial/impl/psb_s_coo_impl.f90
+8 -8
View File
@@ -591,13 +591,13 @@ subroutine psb_s_coo_cssm(alpha,a,x,beta,y,info,trans)
m = a%get_nrows()
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
@@ -941,13 +941,13 @@ subroutine psb_s_coo_cssv(alpha,a,x,beta,y,info,trans)
m = a%get_nrows()
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
@@ -1295,13 +1295,13 @@ subroutine psb_s_coo_csmv(alpha,a,x,beta,y,info,trans)
end if
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
@@ -1492,13 +1492,13 @@ subroutine psb_s_coo_csmm(alpha,a,x,beta,y,info,trans)
end if
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
base/serial/impl/psb_s_csc_impl.f90
+8 -8
View File
@@ -93,14 +93,14 @@ subroutine psb_s_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_s_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_s_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_s_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
base/serial/impl/psb_s_csr_impl.f90
+6 -6
View File
@@ -93,14 +93,14 @@ subroutine psb_s_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_s_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_s_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
base/serial/impl/psb_z_coo_impl.f90
+8 -8
View File
@@ -591,13 +591,13 @@ subroutine psb_z_coo_cssm(alpha,a,x,beta,y,info,trans)
m = a%get_nrows()
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
@@ -941,13 +941,13 @@ subroutine psb_z_coo_cssv(alpha,a,x,beta,y,info,trans)
m = a%get_nrows()
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
@@ -1295,13 +1295,13 @@ subroutine psb_z_coo_csmv(alpha,a,x,beta,y,info,trans)
end if
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
@@ -1492,13 +1492,13 @@ subroutine psb_z_coo_csmm(alpha,a,x,beta,y,info,trans)
end if
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
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
base/serial/impl/psb_z_csr_impl.f90
+6 -6
View File
@@ -93,14 +93,14 @@ subroutine psb_z_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_z_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_z_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