./52_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-2021 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 .

PARENTS

CHILDREN

SOURCE

21 #if defined HAVE_CONFIG_H
22 #include "config.h"
23 #endif
24 
25 #include "abi_common.h"
26 
27 module m_manage_cuda
28 
29  use m_alloc_hamilt_gpu
30 
31 #ifdef HAVE_FC_ISO_C_BINDING
32  use iso_c_binding
33 #endif
34 
35  implicit none
36 
37 !Interfaces for C bindings --- To be completed
38 #ifdef HAVE_FC_ISO_C_BINDING
39 #if defined HAVE_GPU_CUDA
40 !interface
41 !  integer(C_INT) function cuda_func() bind(C)
42 !    use iso_c_binding, only : C_INT,C_PTR
43 !    type(C_PTR) :: ptr
44 !  end function cuda_func
45 #endif
46 #endif
47 
48 contains

TABLE OF CONTENTS

ABINIT/m_manage_cuda [ Modules ]