From 2d6968909fdc80f65c609a56b7081a126f00760f Mon Sep 17 00:00:00 2001
From: Rudolf Zeller <ru.zeller@fz-juelich.de>
Date: Sun, 11 Jul 2021 12:19:51 +0200
Subject: [PATCH] corrected error in dimension of exc

---
 source/KKRnano/source/XC/vxcgga.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/source/KKRnano/source/XC/vxcgga.f90 b/source/KKRnano/source/XC/vxcgga.f90
index 09f78ce9e..936d12d87 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
-- 
GitLab