Yet Another eXchange Tool  0.9.0
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
external, public xt_slice_c_loc
Definition: xt_core_f.f90:146