diff --git a/source/KKRnano/source/XC/vxcgga.f90 b/source/KKRnano/source/XC/vxcgga.f90
index 09f78ce9e77052a0bacc705e20976091de57a0c9..936d12d87ee6a002037ffaae095b6d4f3d33f499 100644
--- a/source/KKRnano/source/XC/vxcgga.f90
+++ b/source/KKRnano/source/XC/vxcgga.f90
@@ -42,7 +42,7 @@ subroutine vxcgga(exc,kte,lpot,nspin,rho2ns,v,r,drdi,a, &
 
 implicit none
 
-double precision, intent(out)            :: exc(0:(lpot+1)**2)
+double precision, intent(out)            :: exc(0:lpot)
 integer, intent(in)                      :: kte
 integer, intent(in)                      :: lpot
 integer, intent(in)                      :: nspin