Commit 9189e9ae authored by Matthias Redies's avatar Matthias Redies

give it a good initialization

parent ccbecfe4
......@@ -52,6 +52,9 @@ CONTAINS
REAL :: zDebug_r(lapw_dim_nbasfcn,fi%input%neig)
COMPLEX :: zDebug_c(lapw_dim_nbasfcn,fi%input%neig)
results%te_hfex%valence = 0.0
results%te_hfex%core = 0.0
IF (hybdat%l_calhf) THEN
! Preparations for HF and hybinp functional calculation
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