fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
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
psblas-3.4-maint
Salvatore Filippone 10 years ago
parent 06ce920e4d
commit 8212c97344
4 changed files with 20 additions and 88 deletions
Show Stats Download Patch File Download Diff File

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

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

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

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

Write Preview
Loading…
Cancel
Save