fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-06 22:55:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

new context in CBIND

Browse Source
This commit is contained in:
Salvatore Filippone
2020-11-16 16:16:11 +01:00
parent 02b9ff5cfb
commit 5f67cc4bb5
6 changed files with 84 additions and 75 deletions
Download Patch File Download Diff File Expand all files Collapse all files
cbind/prec/psb_cprec_cbind_mod.f90
+4 -4
View File
@@ -12,14 +12,14 @@ module psb_cprec_cbind_mod
contains
function psb_c_cprecinit(ictxt,ph,ptype) bind(c) result(res)
function psb_c_cprecinit(cctxt,ph,ptype) bind(c) result(res)
use psb_base_mod
use psb_prec_mod
use psb_cpenv_mod
use psb_base_string_cbind_mod
implicit none
integer(psb_c_ipk_) :: res
integer(psb_c_ipk_), value :: ictxt
integer(psb_c_ipk_), value :: cctxt
type(psb_c_cprec) :: ph
character(c_char) :: ptype(*)
@@ -27,7 +27,7 @@ contains
integer(psb_c_ipk_) :: info
character(len=80) :: fptype
type(psb_ctxt_type) :: ctxt
ctxt%ctxt = ictxt
ctxt = psb_c2f_ctxt(cctxt)
res = -1
if (c_associated(ph%item)) then
cbind/prec/psb_dprec_cbind_mod.f90
+4 -4
View File
@@ -12,14 +12,14 @@ module psb_dprec_cbind_mod
contains
function psb_c_dprecinit(ictxt,ph,ptype) bind(c) result(res)
function psb_c_dprecinit(cctxt,ph,ptype) bind(c) result(res)
use psb_base_mod
use psb_prec_mod
use psb_cpenv_mod
use psb_base_string_cbind_mod
implicit none
integer(psb_c_ipk_) :: res
integer(psb_c_ipk_), value :: ictxt
integer(psb_c_ipk_), value :: cctxt
type(psb_c_dprec) :: ph
character(c_char) :: ptype(*)
@@ -27,7 +27,7 @@ contains
integer(psb_c_ipk_) :: info
character(len=80) :: fptype
type(psb_ctxt_type) :: ctxt
ctxt%ctxt = ictxt
ctxt = psb_c2f_ctxt(cctxt)
res = -1
if (c_associated(ph%item)) then
cbind/prec/psb_sprec_cbind_mod.f90
+4 -4
View File
@@ -12,14 +12,14 @@ module psb_sprec_cbind_mod
contains
function psb_c_sprecinit(ictxt,ph,ptype) bind(c) result(res)
function psb_c_sprecinit(cctxt,ph,ptype) bind(c) result(res)
use psb_base_mod
use psb_prec_mod
use psb_cpenv_mod
use psb_base_string_cbind_mod
implicit none
integer(psb_c_ipk_) :: res
integer(psb_c_ipk_), value :: ictxt
integer(psb_c_ipk_), value :: cctxt
type(psb_c_sprec) :: ph
character(c_char) :: ptype(*)
@@ -27,7 +27,7 @@ contains
integer(psb_c_ipk_) :: info
character(len=80) :: fptype
type(psb_ctxt_type) :: ctxt
ctxt%ctxt = ictxt
ctxt = psb_c2f_ctxt(cctxt)
res = -1
if (c_associated(ph%item)) then
cbind/prec/psb_zprec_cbind_mod.f90
+4 -4
View File
@@ -12,14 +12,14 @@ module psb_zprec_cbind_mod
contains
function psb_c_zprecinit(ictxt,ph,ptype) bind(c) result(res)
function psb_c_zprecinit(cctxt,ph,ptype) bind(c) result(res)
use psb_base_mod
use psb_prec_mod
use psb_cpenv_mod
use psb_base_string_cbind_mod
implicit none
integer(psb_c_ipk_) :: res
integer(psb_c_ipk_), value :: ictxt
integer(psb_c_ipk_), value :: cctxt
type(psb_c_zprec) :: ph
character(c_char) :: ptype(*)
@@ -27,7 +27,7 @@ contains
integer(psb_c_ipk_) :: info
character(len=80) :: fptype
type(psb_ctxt_type) :: ctxt
ctxt%ctxt = ictxt
ctxt = psb_c2f_ctxt(cctxt)
res = -1
if (c_associated(ph%item)) then