Yet Another eXchange Tool 0.11.3
Loading...
Searching...
No Matches
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