fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-24 14:51:49 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fixed declaration and use of CONTEXT with new type.

Browse Source
This commit is contained in:
Salvatore Filippone
2020-11-14 16:42:15 +01:00
parent 2009ed8dbe
commit b376d226cb
468 changed files with 3616 additions and 2324 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/error.f90
+7 -27
View File
@@ -36,7 +36,8 @@
subroutine FCpsb_errcomm(ictxt, err)
use psb_const_mod
use psb_error_mod
integer(psb_ipk_), intent(in) :: ictxt
use psi_penv_mod
type(psb_ctxt_type), intent(in) :: ictxt
integer(psb_ipk_), intent(inout):: err
call psb_errcomm(ictxt, err)
@@ -48,16 +49,14 @@ subroutine FCpsb_errpush(err_c, r_name, i_err)
use psb_error_mod
implicit none
integer(psb_ipk_), intent(in) :: err_c
character(len=20), intent(in) :: r_name
integer(psb_ipk_), intent(in) :: err_c
character(len=20), intent(in) :: r_name
integer(psb_ipk_) :: i_err(5)
call psb_errpush(err_c, r_name, i_err=i_err)
end subroutine FCpsb_errpush
subroutine FCpsb_serror()
use psb_const_mod
use psb_error_mod
@@ -67,23 +66,18 @@ subroutine FCpsb_serror()
end subroutine FCpsb_serror
subroutine FCpsb_perror(ictxt)
use psb_const_mod
use psb_error_mod
use psi_penv_mod
implicit none
integer(psb_ipk_), intent(in) :: ictxt
type(psb_ctxt_type), intent(in) :: ictxt
call psb_error(ictxt)
end subroutine FCpsb_perror
function FCpsb_get_errstatus()
use psb_const_mod
use psb_error_mod
@@ -95,7 +89,6 @@ function FCpsb_get_errstatus()
end function FCpsb_get_errstatus
subroutine FCpsb_get_errverbosity(v)
use psb_const_mod
use psb_error_mod
@@ -107,8 +100,6 @@ subroutine FCpsb_get_errverbosity(v)
end subroutine FCpsb_get_errverbosity
subroutine FCpsb_set_errverbosity(v)
use psb_const_mod
use psb_error_mod
@@ -120,8 +111,6 @@ subroutine FCpsb_set_errverbosity(v)
end subroutine FCpsb_set_errverbosity
subroutine FCpsb_erractionsave(err_act)
use psb_const_mod
use psb_error_mod
@@ -133,7 +122,6 @@ subroutine FCpsb_erractionsave(err_act)
end subroutine FCpsb_erractionsave
subroutine FCpsb_get_erraction(err_act)
use psb_const_mod
use psb_error_mod
@@ -143,8 +131,6 @@ subroutine FCpsb_get_erraction(err_act)
call psb_get_erraction(err_act)
end subroutine FCpsb_get_erraction
subroutine FCpsb_erractionrestore(err_act)
use psb_const_mod
use psb_error_mod
@@ -155,9 +141,3 @@ subroutine FCpsb_erractionrestore(err_act)
call psb_erractionrestore(err_act)
end subroutine FCpsb_erractionrestore