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

Fix get_global_indices to account for index base

Browse Source
This commit is contained in:
Salvatore Filippone
2021-02-05 16:42:32 +01:00
parent 493beaa751
commit 0cdd36edf3
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
cbind/base/psb_base_tools_cbind_mod.F90
+3 -2
View File
@@ -326,6 +326,7 @@ contains
type(psb_desc_type), pointer :: descp
integer(psb_lpk_), allocatable :: myidx(:)
integer(psb_c_ipk_) :: ixb
logical :: fowned
res = -1
@@ -334,8 +335,8 @@ contains
fowned = owned
myidx = descp%get_global_indices(owned=fowned)
idx(1:nidx) = myidx(1:nidx)
ixb = psb_c_get_index_base()
idx(1:nidx) = myidx(1:nidx) - (1-ixb)
res = 0
end if