Commit 4bf2a050 authored by Uliana Alekseeva's avatar Uliana Alekseeva

_CUDA changed to CPP_GPU

parent b492b73d
......@@ -9,7 +9,7 @@ MODULE m_hsmt_ab
INTERFACE hsmt_ab
module procedure hsmt_ab_cpu
#ifdef _CUDA
#ifdef CPP_GPU
module procedure hsmt_ab_gpu
#endif
END INTERFACE
......@@ -17,7 +17,7 @@ MODULE m_hsmt_ab
CONTAINS
#ifdef _CUDA
#ifdef CPP_GPU
ATTRIBUTES(global) SUBROUTINE synth_ab(grid,block,n,lmax,ab_size,gkrot_dev,fj,gj,c_ph,ab)
USE m_ylm
......
......@@ -5,12 +5,12 @@
REAL, ALLOCATABLE, SAVE :: ynorm(:)
INTEGER, SAVE :: lmaxd = -1 ! initial value
PUBLIC ylm4,ylmnorm_init
#ifdef _CUDA
#ifdef CPP_GPU
PUBLIC ylm4_dev
#endif
CONTAINS
#ifdef _CUDA
#ifdef CPP_GPU
ATTRIBUTES(device) SUBROUTINE ylm4_dev(lmax,v,ylm)
!************************************************************
! generate the spherical harmonics for the vector v
......@@ -24,6 +24,9 @@
! the normalization is an internal subroutine and hence
! can only be called from here. also, no need to dimension
! arrays for ynorm, done dynamically. mw 1999
!
! GPU version added
! U.Alekseeva Oktober 2018
!************************************************************
! USE m_juDFT
INTEGER, VALUE, INTENT (IN) :: lmax
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment