Commit 2ed4eaf7 authored by Gregor Michalicek's avatar Gregor Michalicek

Fix array dimensions of kvec array in cdn_mt/abclocdn1.F90

parent 1569cf4f
......@@ -34,7 +34,7 @@ CONTAINS
REAL, INTENT (IN) :: alo1(atoms%nlod,atoms%ntype),blo1(atoms%nlod,atoms%ntype)
REAL, INTENT (IN) :: clo1(atoms%nlod,atoms%ntype)
COMPLEX, INTENT (IN) :: ylm( (atoms%lmaxd+1)**2 )
INTEGER, INTENT (IN) :: kvec(2*(2*atoms%llod+1) ,atoms%nat)
INTEGER, INTENT (IN) :: kvec(2*(2*atoms%llod+1) ,atoms%nlod)
LOGICAL, INTENT (OUT) :: enough(atoms%nat)
COMPLEX, INTENT (INOUT) :: bascof_lo(3,-atoms%llod:atoms%llod,4*atoms%llod+2,atoms%nlod,atoms%nat)
INTEGER, INTENT (INOUT) :: nkvec(atoms%nlod,atoms%nat)
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