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

Updates for C ctxt handling.

Browse Source
This commit is contained in:
Salvatore Filippone
2020-11-18 15:35:48 +01:00
parent 5f67cc4bb5
commit 9178d63ebd
16 changed files with 195 additions and 236 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psi_i_mod.F90
+3 -11
View File
@@ -110,20 +110,12 @@ module psi_i_mod
end interface
interface psi_bld_glb_dep_list
!!$ subroutine psi_i_bld_glb_dep_list(ctxt,loc_dl,length_dl,dep_list,dl_lda,info)
!!$ import
!!$ type(psb_ctxt_type), intent(in) :: ctxt
!!$ integer(psb_ipk_), intent(out) :: dl_lda
!!$ integer(psb_ipk_), intent(in) :: loc_dl(:), length_dl(0:)
!!$ integer(psb_ipk_), allocatable, intent(out) :: dep_list(:,:)
!!$ integer(psb_ipk_), intent(out) :: info
!!$ end subroutine psi_i_bld_glb_dep_list
subroutine psi_i_bld_glb_csr_dep_list(ctxt,loc_dl,length_dl,c_dep_list,dl_ptr,info)
import
integer(psb_ipk_), intent(in) :: ctxt
integer(psb_ipk_), intent(in) :: loc_dl(:), length_dl(0:)
type(psb_ctxt_type), intent(in) :: ctxt
integer(psb_ipk_), intent(in) :: loc_dl(:), length_dl(0:)
integer(psb_ipk_), allocatable, intent(out) :: c_dep_list(:), dl_ptr(:)
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_), intent(out) :: info
end subroutine psi_i_bld_glb_csr_dep_list
end interface