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

Missing index base adjustment in psb_c_cdins

Browse Source
This commit is contained in:
Salvatore Filippone
2021-02-05 17:20:43 +01:00
parent 0cdd36edf3
commit 69b1678f6b
1 changed files with 8 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
cbind/base/psb_base_tools_cbind_mod.F90
+8 -2
View File
@@ -218,13 +218,19 @@ contains
integer(psb_c_lpk_) :: ia(*),ja(*)
type(psb_desc_type), pointer :: descp
integer(psb_c_ipk_) :: info
integer(psb_c_ipk_) :: ixb,info
res = -1
if (c_associated(cdh%item)) then
call c_f_pointer(cdh%item,descp)
call psb_cdins(nz,ia(1:nz),ja(1:nz),descp,info)
ixb = psb_c_get_index_base()
if (ixb == 1) then
call psb_cdins(nz,ia(1:nz),ja(1:nz),descp,info)
else
call psb_cdins(nz,(ia(1:nz)+(1-ixb)),(ja(1:nz)+(1-ixb)),descp,info)
end if
res = info
end if
return