Commit 6290d041 authored by Matthias Redies's avatar Matthias Redies

reduce default hybrid output a little

parent 9654e30f
......@@ -101,12 +101,14 @@ CONTAINS
ENDIF
END DO
END DO
#ifdef CPP_EXPLICIT_HYB
! calculate HF energy
IF (hybdat%l_calhf) THEN
WRITE (6, '(A)') new_line('n')//new_line('n')//' ### '//' diagonal HF exchange elements (eV) ###'
WRITE (6, '(A)') new_line('n')//' k-point '//'band tail pole total(valence+core)'
END IF
#endif
CALL z%init(hmat%l_real, nbasfcn, input%neig)
......
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