./46_manage_cuda/m_manage

ABINIT/m_manage_cuda

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 (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

TABLE OF CONTENTS

ABINIT/m_manage_cuda [ Modules ]