fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fix error message handling for CSMV

Browse Source
pull/6/head
Salvatore Filippone 7 years ago
parent 2cc244433e
commit a947008be2
12 changed files with 88 additions and 88 deletions
Show Stats Download Patch File Download Diff File

16
base/serial/impl/psb_c_coo_impl.f90
Unescape Escape 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

16
base/serial/impl/psb_c_csc_impl.f90
Unescape Escape 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

12
base/serial/impl/psb_c_csr_impl.f90
Unescape Escape 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

16
base/serial/impl/psb_d_coo_impl.f90
Unescape Escape 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

16
base/serial/impl/psb_d_csc_impl.f90
Unescape Escape 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

12
base/serial/impl/psb_d_csr_impl.f90
Unescape Escape 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

16
base/serial/impl/psb_s_coo_impl.f90
Unescape Escape 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

16
base/serial/impl/psb_s_csc_impl.f90
Unescape Escape 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

12
base/serial/impl/psb_s_csr_impl.f90
Unescape Escape 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

16
base/serial/impl/psb_z_coo_impl.f90
Unescape Escape 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

16
base/serial/impl/psb_z_csc_impl.f90
Unescape Escape 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

12
base/serial/impl/psb_z_csr_impl.f90
Unescape Escape 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

Write Preview
Loading…
Cancel
Save