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

Corrected C interfaces for interrogating build-state

Browse Source
This commit is contained in:
Cirdans-Home
2020-04-14 18:55:44 +02:00
parent ce6c04f508
commit d22d15a0f4
4 changed files with 24 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files
cbind/base/psb_c_psblas_cbind_mod.f90
+6 -6
View File
@@ -965,7 +965,7 @@ contains
function psb_c_cis_matupd(ah,cdh) bind(c) result(res)
implicit none
logical :: res
logical(c_bool) :: res
type(psb_c_cspmat) :: ah
type(psb_c_descriptor) :: cdh
@@ -985,12 +985,12 @@ contains
return
end if
res = psb_is_matupd(ap,descp,info)
res = ap%is_upd()
end function
function psb_c_cis_matasb(ah,cdh) bind(c) result(res)
implicit none
logical :: res
logical(c_bool) :: res
type(psb_c_cspmat) :: ah
type(psb_c_descriptor) :: cdh
@@ -1010,12 +1010,12 @@ contains
return
end if
res = psb_is_matasb(ap,descp,info)
res = ap%is_asb()
end function
function psb_c_cis_matbld(ah,cdh) bind(c) result(res)
implicit none
logical :: res
logical(c_bool) :: res
type(psb_c_cspmat) :: ah
type(psb_c_descriptor) :: cdh
@@ -1035,7 +1035,7 @@ contains
return
end if
res = psb_is_matbld(ap,descp,info)
res = ap%is_bld()
end function
function psb_c_cset_matupd(ah,cdh) bind(c) result(res)
cbind/base/psb_d_psblas_cbind_mod.f90
+6 -6
View File
@@ -1066,7 +1066,7 @@ contains
function psb_c_dis_matupd(ah,cdh) bind(c) result(res)
implicit none
logical :: res
logical(c_bool) :: res
type(psb_c_dspmat) :: ah
type(psb_c_descriptor) :: cdh
@@ -1086,12 +1086,12 @@ contains
return
end if
res = psb_is_matupd(ap,descp,info)
res = ap%is_upd()
end function
function psb_c_dis_matasb(ah,cdh) bind(c) result(res)
implicit none
logical :: res
logical(c_bool) :: res
type(psb_c_dspmat) :: ah
type(psb_c_descriptor) :: cdh
@@ -1111,12 +1111,12 @@ contains
return
end if
res = psb_is_matasb(ap,descp,info)
res = ap%is_asb()
end function
function psb_c_dis_matbld(ah,cdh) bind(c) result(res)
implicit none
logical :: res
logical(c_bool) :: res
type(psb_c_dspmat) :: ah
type(psb_c_descriptor) :: cdh
@@ -1136,7 +1136,7 @@ contains
return
end if
res = psb_is_matbld(ap,descp,info)
res = ap%is_bld()
end function
function psb_c_dset_matupd(ah,cdh) bind(c) result(res)
cbind/base/psb_s_psblas_cbind_mod.f90
+6 -6
View File
@@ -1066,7 +1066,7 @@ contains
function psb_c_sis_matupd(ah,cdh) bind(c) result(res)
implicit none
logical :: res
logical(c_bool) :: res
type(psb_c_sspmat) :: ah
type(psb_c_descriptor) :: cdh
@@ -1086,12 +1086,12 @@ contains
return
end if
res = psb_is_matupd(ap,descp,info)
res = ap%is_upd()
end function
function psb_c_sis_matasb(ah,cdh) bind(c) result(res)
implicit none
logical :: res
logical(c_bool) :: res
type(psb_c_sspmat) :: ah
type(psb_c_descriptor) :: cdh
@@ -1111,12 +1111,12 @@ contains
return
end if
res = psb_is_matasb(ap,descp,info)
res = ap%is_asb()
end function
function psb_c_sis_matbld(ah,cdh) bind(c) result(res)
implicit none
logical :: res
logical(c_bool) :: res
type(psb_c_sspmat) :: ah
type(psb_c_descriptor) :: cdh
@@ -1136,7 +1136,7 @@ contains
return
end if
res = psb_is_matbld(ap,descp,info)
res = ap%is_bld()
end function
function psb_c_sset_matupd(ah,cdh) bind(c) result(res)
cbind/base/psb_z_psblas_cbind_mod.f90
+6 -6
View File
@@ -965,7 +965,7 @@ contains
function psb_c_zis_matupd(ah,cdh) bind(c) result(res)
implicit none
logical :: res
logical(c_bool) :: res
type(psb_c_zspmat) :: ah
type(psb_c_descriptor) :: cdh
@@ -985,12 +985,12 @@ contains
return
end if
res = psb_is_matupd(ap,descp,info)
res = ap%is_upd()
end function
function psb_c_zis_matasb(ah,cdh) bind(c) result(res)
implicit none
logical :: res
logical(c_bool) :: res
type(psb_c_zspmat) :: ah
type(psb_c_descriptor) :: cdh
@@ -1010,12 +1010,12 @@ contains
return
end if
res = psb_is_matasb(ap,descp,info)
res = ap%is_asb()
end function
function psb_c_zis_matbld(ah,cdh) bind(c) result(res)
implicit none
logical :: res
logical(c_bool) :: res
type(psb_c_zspmat) :: ah
type(psb_c_descriptor) :: cdh
@@ -1035,7 +1035,7 @@ contains
return
end if
res = psb_is_matbld(ap,descp,info)
res = ap%is_bld()
end function
function psb_c_zset_matupd(ah,cdh) bind(c) result(res)