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

C Interfaces for ijk2idx idx2ijk redefined

Browse Source
This commit is contained in:
Cirdans-Home
2020-05-04 21:54:30 +02:00
parent ac3afe962d
commit dbdbea9c6f
2 changed files with 70 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files
cbind/util/psb_util_cbind.h
+4 -2
View File
@@ -6,8 +6,10 @@
#include "psb_c_cutil.h"
#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 );
psb_i_t psb_c_i_idx2ijk(psb_i_t ijk[],psb_i_t idx,psb_i_t sizes[],psb_i_t modes,psb_i_t base);
psb_i_t psb_c_l_idx2ijk(psb_i_t ijk[],psb_l_t idx,psb_i_t sizes[],psb_i_t modes,psb_i_t base);
psb_i_t psb_c_i_ijk2idx(psb_i_t ijk[],psb_i_t sizes[],psb_i_t modes,psb_i_t base);
psb_l_t psb_c_l_ijk2idx(psb_i_t ijk[],psb_i_t sizes[],psb_i_t modes,psb_i_t base);
#endif
cbind/util/psb_util_cbind_mod.f90
+66 -14
View File
@@ -1,5 +1,6 @@
module psb_base_util_cbind_mod
use iso_c_binding
use psb_util_mod
use psb_cutil_cbind_mod
use psb_dutil_cbind_mod
use psb_sutil_cbind_mod
@@ -9,39 +10,90 @@ contains
! Routines for managing indexes are type independent
! so we have them defined only in the common module
! for all the types
! for all the index lengths:
function psb_c_idx2ijk(i,j,idx,nx,ny,base) bind(c) result(res)
function psb_c_i_ijk2idx(ijk,sizes,modes,base) bind(c) result(idx)
use psb_base_mod, only : psb_ipk_, psb_lpk_, psb_mpk_, psb_epk_
use psb_util_mod
implicit none
integer(psb_c_ipk_) :: idx
integer(psb_c_ipk_), value :: modes, base
integer(psb_c_ipk_) :: ijk(modes)
integer(psb_c_ipk_) :: sizes(modes)
integer(psb_ipk_) :: fijk(modes), fsizes(modes)
fijk(1:modes) = ijk(1:modes)
fsizes(1:modes) = sizes(1:modes)
call ijk2idx(idx,fijk,fsizes,base)
end function psb_c_i_ijk2idx
function psb_c_l_ijk2idx(ijk,sizes,modes,base) bind(c) result(idx)
use psb_base_mod, only : psb_ipk_, psb_lpk_, psb_mpk_, psb_epk_
use psb_util_mod
implicit none
integer(psb_c_lpk_) :: idx
integer(psb_c_ipk_), value :: modes, base
integer(psb_c_ipk_) :: ijk(modes)
integer(psb_c_ipk_) :: sizes(modes)
integer(psb_ipk_) :: fijk(modes), fsizes(modes)
fijk(1:modes) = ijk(1:modes)
fsizes(1:modes) = sizes(1:modes)
call ijk2idx(idx,fijk,fsizes,base)
end function psb_c_l_ijk2idx
function psb_c_i_idx2ijk(ijk,idx,sizes,modes,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_ipk_), value :: idx,nx,ny,base
integer(psb_c_ipk_) :: i,j
integer(psb_c_ipk_) :: res
integer(psb_c_ipk_), value :: idx
integer(psb_c_ipk_), value :: modes, base
integer(psb_c_ipk_) :: ijk(modes)
integer(psb_c_ipk_) :: sizes(modes)
integer(psb_ipk_) :: fijk(modes), fsizes(modes)
res = -1
call idx2ijk(i,j,idx,nx,ny,base=base)
fsizes(1:modes) = sizes(1:modes)
call idx2ijk(fijk,idx,fsizes,base=base)
ijk(1:modes) = fijk(1:modes)
res = 0
end function psb_c_idx2ijk
end function
function psb_c_lidx2ijk(i,j,idx,nx,ny,base) bind(c) result(res)
function psb_c_l_idx2ijk(ijk,idx,sizes,modes,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
integer(psb_c_ipk_) :: res
integer(psb_c_lpk_), value :: idx
integer(psb_c_ipk_), value :: modes, base
integer(psb_c_ipk_) :: ijk(modes)
integer(psb_c_ipk_) :: sizes(modes)
integer(psb_ipk_) :: fijk(modes), fsizes(modes)
res = -1
call idx2ijk(i,j,idx,nx,ny,base=base)
fsizes(1:modes) = sizes(1:modes)
call idx2ijk(fijk,idx,fsizes,base=base)
ijk(1:modes) = fijk(1:modes)
res = 0
end function psb_c_lidx2ijk
end function
end module psb_base_util_cbind_mod