TABLE OF CONTENTS
ABINIT/m_manage_cuda [ Modules ]
NAME
m_manage_cuda
FUNCTION
Fake module to dupe the build system and allow it to include cuda files in the chain of dependencies.
COPYRIGHT
Copyright (C) 2000-2024 ABINIT group (MT) This file is distributed under the terms of the GNU General Public License, see ~abinit/COPYING or http://www.gnu.org/copyleft/gpl.txt .
SOURCE
17 #if defined HAVE_CONFIG_H 18 #include "config.h" 19 #endif 20 21 #include "abi_common.h" 22 23 module m_manage_cuda 24 25 !Trick so makemake assign shared/common/src/17_gpu_toolbox as dependency 26 !Mandatory so "cuda_api_error_check" header is correctly included 27 use m_nvtx 28 #ifdef HAVE_FC_ISO_C_BINDING 29 use, intrinsic :: iso_c_binding 30 #endif 31 32 implicit none 33 34 !Interfaces for C bindings --- To be completed 35 #ifdef HAVE_FC_ISO_C_BINDING 36 #if defined HAVE_GPU_CUDA 37 !interface 38 ! integer(C_INT) function cuda_func() bind(C) 39 ! use, intrinsic :: iso_c_binding, only : C_INT,C_PTR 40 ! type(C_PTR) :: ptr 41 ! end function cuda_func 42 #endif 43 #endif 44 45 contains