Commit ad125ca9 authored by Gregor Michalicek's avatar Gregor Michalicek

Made sure n_u_in is initialized

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