1!--------------------------------------------------------------------------------------------------! 2! DFTB+: general package for performing fast atomistic simulations ! 3! Copyright (C) 2006 - 2019 DFTB+ developers group ! 4! ! 5! See the LICENSE file for terms of usage and distribution. ! 6!--------------------------------------------------------------------------------------------------! 7 8#:include 'common.fypp' 9 10!> MAGMA GPU interface library 11module dftbp_magmahelper 12#:if WITH_GPU 13 use device_info 14#:endif 15 implicit none 16 17#:if WITH_GPU 18 19 !> Whether code was built with GPU support 20 logical, parameter :: withGPU = .true. 21 22#:else 23 24 !> Whether code was built with GPU support 25 logical, parameter :: withGPU = .false. 26 27#:endif 28 29end module dftbp_magmahelper 30