fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-21 05:12:13 +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
cbind/base/psb_base_tools_cbind_mod.F90
+6 -4
View File
@@ -28,7 +28,7 @@ contains
integer(psb_c_ipk_) :: res
integer(psb_c_lpk_), value :: ng
integer(psb_c_ipk_), value :: cctxt
type(psb_c_object_type), value :: cctxt
integer(psb_c_ipk_) :: vg(*)
type(psb_c_object_type) :: cdh
type(psb_desc_type), pointer :: descp
@@ -63,7 +63,8 @@ contains
implicit none
integer(psb_c_ipk_) :: res
integer(psb_c_ipk_), value :: nl, cctxt
type(psb_c_object_type), value :: cctxt
integer(psb_c_ipk_), value :: nl
integer(psb_c_lpk_) :: vl(*)
type(psb_c_object_type) :: cdh
type(psb_desc_type), pointer :: descp
@@ -103,7 +104,8 @@ contains
implicit none
integer(psb_c_ipk_) :: res
integer(psb_c_ipk_), value :: nl, cctxt
type(psb_c_object_type), value :: cctxt
integer(psb_c_ipk_), value :: nl
type(psb_c_object_type) :: cdh
type(psb_desc_type), pointer :: descp
integer(psb_c_ipk_) :: info
@@ -137,7 +139,7 @@ contains
integer(psb_c_ipk_) :: res
integer(psb_c_lpk_), value :: n
integer(psb_c_ipk_), value :: cctxt
type(psb_c_object_type), value :: cctxt
type(psb_c_object_type) :: cdh
type(psb_desc_type), pointer :: descp
integer(psb_c_ipk_) :: info