Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
fleur
fleur
Commits
ad125ca9
Commit
ad125ca9
authored
May 02, 2016
by
Gregor Michalicek
Browse files
Made sure n_u_in is initialized
parent
46a37453
Changes
1
Hide whitespace changes
Inline
Side-by-side
eigen/eigen.F90
View file @
ad125ca9
...
...
@@ -359,8 +359,8 @@ CONTAINS
ENDIF
! ..
! LDA+U
n_u_in
=
atoms
%
n_u
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
)
)
CALL
u_setup
(
atoms
,
lmaxb
,
sphhar
,
input
,
enpara
%
el0
(
0
:,:,:),
vr
,
mpi
,
vs_mmp
,
results
)
ELSE
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment