scnc
/
quantum-espresso
mirror of https://gitlab.com/QEF/q-e.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'fix_ylrm_gpu' into 'develop' 

Increase limit of ylmr2_gpu kernel

See merge request QEF/q-e!1654
This commit is contained in:
giannozz 2021-11-30 19:39:54 +00:00
parent 7552816124 8d6f1d70b3
commit fe58499e9d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
upflib/ylmr2_gpu.f90
View File

@ -26,7 +26,7 @@ attributes(global) subroutine ylmr2_gpu_kernel (lmax,lmax2, ng, g, gg, ylm)
! local variables
!
real(DP), parameter :: eps = 1.0d-9
real(DP) :: Q(0:4,0:4) !Allocate Q for the maximum supported size
real(DP) :: Q(0:6,0:6) !Allocate Q for the maximum supported size
real(DP) :: cost , sent, phi
real(DP) :: c, gmod
@ -150,7 +150,7 @@ subroutine ylmr2_gpu(lmax2, ng, g, gg, ylm)
call upf_error (' ylmr', 'l > 25 or wrong number of Ylm required',lmax2)
10 continue
if (lmax > 4) call upf_error (' ylmr', 'l>4 => out of bounds in Ylm with CUDA Kernel',lmax)
if (lmax > 6) call upf_error (' ylmr', 'l>6 => out of bounds in Ylm with CUDA Kernel',lmax)
tBlock = dim3(256,1,1)
grid = dim3(ceiling(real(ng)/tBlock%x),1,1)