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

psblas:

Browse Source 
base/serial/impl/psb_c_csr_impl.f90
 base/serial/impl/psb_d_csr_impl.f90
 base/serial/impl/psb_s_csr_impl.f90
 base/serial/impl/psb_z_csr_impl.f90

Error handlers in csr_impl
This commit is contained in:
Salvatore Filippone
2015-06-30 16:21:05 +00:00
parent 06ce920e4d
commit 8212c97344
4 changed files with 20 additions and 88 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/serial/impl/psb_c_csr_impl.f90
+5 -22
View File
@@ -1566,12 +1566,7 @@ subroutine psb_c_csr_get_diag(a,d,info)
call psb_erractionrestore(err_act)
return
9999 continue
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
9999 call psb_error_handler(err_act)
return
end subroutine psb_c_csr_get_diag
@@ -1644,12 +1639,7 @@ subroutine psb_c_csr_scal(d,a,info,side)
call psb_erractionrestore(err_act)
return
9999 continue
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
9999 call psb_error_handler(err_act)
return
end subroutine psb_c_csr_scal
@@ -1685,12 +1675,7 @@ subroutine psb_c_csr_scals(d,a,info)
call psb_erractionrestore(err_act)
return
9999 continue
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
9999 call psb_error_handler(err_act)
return
end subroutine psb_c_csr_scals
@@ -1770,10 +1755,8 @@ subroutine psb_c_csr_mold(a,b,info)
goto 9999
end if
return
9999 continue
if (err_act /= psb_act_ret_) then
call psb_error()
end if
9999 call psb_error_handler(err_act)
return
end subroutine psb_c_csr_mold
base/serial/impl/psb_d_csr_impl.f90
+5 -22
View File
@@ -1566,12 +1566,7 @@ subroutine psb_d_csr_get_diag(a,d,info)
call psb_erractionrestore(err_act)
return
9999 continue
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
9999 call psb_error_handler(err_act)
return
end subroutine psb_d_csr_get_diag
@@ -1644,12 +1639,7 @@ subroutine psb_d_csr_scal(d,a,info,side)
call psb_erractionrestore(err_act)
return
9999 continue
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
9999 call psb_error_handler(err_act)
return
end subroutine psb_d_csr_scal
@@ -1685,12 +1675,7 @@ subroutine psb_d_csr_scals(d,a,info)
call psb_erractionrestore(err_act)
return
9999 continue
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
9999 call psb_error_handler(err_act)
return
end subroutine psb_d_csr_scals
@@ -1770,10 +1755,8 @@ subroutine psb_d_csr_mold(a,b,info)
goto 9999
end if
return
9999 continue
if (err_act /= psb_act_ret_) then
call psb_error()
end if
9999 call psb_error_handler(err_act)
return
end subroutine psb_d_csr_mold
base/serial/impl/psb_s_csr_impl.f90
+5 -22
View File
@@ -1566,12 +1566,7 @@ subroutine psb_s_csr_get_diag(a,d,info)
call psb_erractionrestore(err_act)
return
9999 continue
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
9999 call psb_error_handler(err_act)
return
end subroutine psb_s_csr_get_diag
@@ -1644,12 +1639,7 @@ subroutine psb_s_csr_scal(d,a,info,side)
call psb_erractionrestore(err_act)
return
9999 continue
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
9999 call psb_error_handler(err_act)
return
end subroutine psb_s_csr_scal
@@ -1685,12 +1675,7 @@ subroutine psb_s_csr_scals(d,a,info)
call psb_erractionrestore(err_act)
return
9999 continue
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
9999 call psb_error_handler(err_act)
return
end subroutine psb_s_csr_scals
@@ -1770,10 +1755,8 @@ subroutine psb_s_csr_mold(a,b,info)
goto 9999
end if
return
9999 continue
if (err_act /= psb_act_ret_) then
call psb_error()
end if
9999 call psb_error_handler(err_act)
return
end subroutine psb_s_csr_mold
base/serial/impl/psb_z_csr_impl.f90
+5 -22
View File
@@ -1566,12 +1566,7 @@ subroutine psb_z_csr_get_diag(a,d,info)
call psb_erractionrestore(err_act)
return
9999 continue
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
9999 call psb_error_handler(err_act)
return
end subroutine psb_z_csr_get_diag
@@ -1644,12 +1639,7 @@ subroutine psb_z_csr_scal(d,a,info,side)
call psb_erractionrestore(err_act)
return
9999 continue
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
9999 call psb_error_handler(err_act)
return
end subroutine psb_z_csr_scal
@@ -1685,12 +1675,7 @@ subroutine psb_z_csr_scals(d,a,info)
call psb_erractionrestore(err_act)
return
9999 continue
call psb_erractionrestore(err_act)
if (err_act == psb_act_abort_) then
call psb_error()
return
end if
9999 call psb_error_handler(err_act)
return
end subroutine psb_z_csr_scals
@@ -1770,10 +1755,8 @@ subroutine psb_z_csr_mold(a,b,info)
goto 9999
end if
return
9999 continue
if (err_act /= psb_act_ret_) then
call psb_error()
end if
9999 call psb_error_handler(err_act)
return
end subroutine psb_z_csr_mold