Commit 767c11c4 authored by Gregor Michalicek's avatar Gregor Michalicek

Resolving uninitialized variables issues for LDA+U + Forces

parent 2aab68af
......@@ -104,6 +104,7 @@ CONTAINS
END DO ! lo = 1,atoms%nlo
i_u = i_u + 1
IF(i_u.GT.atoms%n_u) EXIT
END DO
END SUBROUTINE force_a21_U
......
......@@ -228,6 +228,7 @@ CONTAINS
input_temp%comment)
ELSE
kpts_temp%ntet = 1
kpts_temp%numSpecialPoints = 1
ALLOCATE(kpts_temp%specialPoints(3,kpts_temp%numSpecialPoints))
ALLOCATE(noel_temp(1),atomTypeSpecies(1),speciesRepAtomType(1))
......@@ -240,7 +241,8 @@ CONTAINS
xmlPrintCoreStates,xmlCoreOccs,atomTypeSpecies,speciesRepAtomType,l_kpts_temp)
numSpecies = SIZE(speciesRepAtomType)
filename = 'inp_new.xml'
input_temp%l_f = input%l_f
input_temp = input
!input_temp%l_f = input%l_f
input_temp%gw_neigd = dimension_temp%neigd
div(:) = MIN(kpts_temp%nkpt3(:),1)
stars_temp%gmax = stars_temp%gmaxInit
......
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