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

Disambiguated C interfaces for idx2ijk for type of the index

Browse Source
This commit is contained in:
Cirdans-Home
2020-05-04 13:36:00 +02:00
parent 9d34f465a9
commit 3c3470b50e
2 changed files with 19 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
cbind/util/psb_util_cbind.h
+2
View File
@@ -7,5 +7,7 @@
#include "psb_c_zutil.h"
psb_i_t psb_c_idx2ijk(psb_i_t *i, psb_i_t *j, psb_i_t idx, psb_i_t nx, psb_i_t ny, psb_i_t base );
psb_i_t psb_c_lidx2ijk(psb_i_t *i, psb_i_t *j, psb_l_t idx, psb_i_t nx, psb_i_t ny, psb_i_t base );
#endif
cbind/util/psb_util_cbind_mod.f90
+17
View File
@@ -27,4 +27,21 @@ contains
end function psb_c_idx2ijk
function psb_c_lidx2ijk(i,j,idx,nx,ny,base) bind(c) result(res)
use psb_base_mod, only : psb_ipk_, psb_lpk_, psb_mpk_, psb_epk_
implicit none
integer(psb_c_ipk_) :: res
integer(psb_c_lpk_), value :: idx
integer(psb_c_ipk_), value :: nx,ny,base
integer(psb_c_ipk_) :: i,j
res = -1
call idx2ijk(i,j,idx,nx,ny,base=base)
res = 0
end function psb_c_lidx2ijk
end module psb_base_util_cbind_mod