Commit ad125ca9 authored by Gregor Michalicek's avatar Gregor Michalicek

Made sure n_u_in is initialized

parent 46a37453
......@@ -359,8 +359,8 @@ CONTAINS
ENDIF
! ..
! LDA+U
IF ((atoms%n_u.GT.0)) THEN
n_u_in=atoms%n_u
IF ((atoms%n_u.GT.0)) THEN
ALLOCATE( vs_mmp(-lmaxb:lmaxb,-lmaxb:lmaxb,atoms%n_u,input%jspins) )
CALL u_setup(atoms,lmaxb,sphhar,input, enpara%el0(0:,:,:),vr,mpi, vs_mmp,results)
ELSE
......
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