Commit f060ae98 authored by Daniel Wortmann's avatar Daniel Wortmann

Bugfix for last commits

parent b6baaec9
...@@ -99,7 +99,7 @@ CONTAINS ...@@ -99,7 +99,7 @@ CONTAINS
REAL,ALLOCATABLE :: ch(:,:) REAL,ALLOCATABLE :: ch(:,:)
nsp=(atoms%lmaxd+1+MOD(atoms%lmaxd+1,2))*(2*atoms%lmaxd+1) nsp=(atoms%lmaxd+1+MOD(atoms%lmaxd+1,2))*(2*atoms%lmaxd+1)
ALLOCATE(ch(nsp,4),den%theta_mt(nsp,atoms%ntype),den%phi_mt(nsp,atoms%ntype)) ALLOCATE(ch(nsp,4))
CALL init_mt_grid(nsp,4,atoms,sphhar,xcpot,sym) CALL init_mt_grid(nsp,4,atoms,sphhar,xcpot,sym)
DO n=1,atoms%ntype DO n=1,atoms%ntype
......
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