RC v7.3.1 2024-3

schrodinger · Jun 28, 2024 · b0bde0d · b0bde0d
1 parent 69d3bc0
commit b0bde0d
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/include/qe_version.h b/include/qe_version.h
@@ -7,4 +7,4 @@
 !
 ! global version number
 !
-CHARACTER (LEN=6) :: version_number = '7.3.1'
+CHARACTER (LEN=13) :: version_number = '7.3.1_2024-3'
diff --git a/upflib/ylmr2.f90 b/upflib/ylmr2.f90
@@ -32,7 +32,7 @@ subroutine ylmr2 (lmax2, ng, g, gg, ylm)
   ! local variables
   !
   real(DP), parameter :: eps = 1.0d-9
-  integer, parameter :: maxl = 14
+  integer, parameter :: maxl = 20
   real(DP) :: cost , sent, phi 
   real(DP) :: c, gmod
   integer :: lmax, ig, l, m, lm, lm1, lm2

diff --git a/upflib/ylmr2_gpu.f90 b/upflib/ylmr2_gpu.f90
@@ -11,7 +11,7 @@ module ylmr2_gpum
 ! CUDA Kernel version
 
 use cudafor
-  INTEGER, PARAMETER :: maxl = 14
+  INTEGER, PARAMETER :: maxl = 20
 contains
 attributes(global) subroutine ylmr2_gpu_kernel (lmax,lmax2, ng, g, gg, ylm)
   implicit none