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

Change name of ICTXT to CTXT

Browse Source
This commit is contained in:
Salvatore Filippone
2020-11-16 16:15:48 +01:00
parent 8b2b86d44d
commit 6a6f6ad2c2
470 changed files with 7601 additions and 7601 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/error.f90
+6 -6
View File
@@ -33,14 +33,14 @@
! Wrapper subroutines to provide error tools to F77 and C code
!
subroutine FCpsb_errcomm(ictxt, err)
subroutine FCpsb_errcomm(ctxt, err)
use psb_const_mod
use psb_error_mod
use psi_penv_mod
type(psb_ctxt_type), intent(in) :: ictxt
type(psb_ctxt_type), intent(in) :: ctxt
integer(psb_ipk_), intent(inout):: err
call psb_errcomm(ictxt, err)
call psb_errcomm(ctxt, err)
end subroutine FCpsb_errcomm
@@ -66,15 +66,15 @@ subroutine FCpsb_serror()
end subroutine FCpsb_serror
subroutine FCpsb_perror(ictxt)
subroutine FCpsb_perror(ctxt)
use psb_const_mod
use psb_error_mod
use psi_penv_mod
implicit none
type(psb_ctxt_type), intent(in) :: ictxt
type(psb_ctxt_type), intent(in) :: ctxt
call psb_error(ictxt)
call psb_error(ctxt)
end subroutine FCpsb_perror