Yet Another eXchange Tool
0.9.0
src
xt_slice_c_loc.inc
Go to the documentation of this file.
1
#ifdef HAVE_FC_C_LOC_OF_SLICE
2
USE, INTRINSIC :: ISO_C_BINDING, ONLY: c_loc
3
#define XT_SLICE_C_LOC(slice, cptr) cptr = C_LOC(slice)
4
#else
5
USE
xt_core
, ONLY:
xt_slice_c_loc
6
#define XT_SLICE_C_LOC(slice, cptr) CALL xt_slice_c_loc(slice, cptr)
7
#endif
xt_core
Definition:
xt_core_f.f90:48
xt_core::xt_slice_c_loc
external, public xt_slice_c_loc
Definition:
xt_core_f.f90:146
Generated by
1.9.1