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