Initialize energy array (#3461)

This commit is contained in:
Juerg Hutter 2024-06-11 15:22:13 +02:00 committed by GitHub
parent 4261cd5b25
commit 417e363ffe
No known key found for this signature in database
GPG key ID: B5690EEEBB952194

View file

@ -258,6 +258,7 @@ CONTAINS
.NOT. dft_control%qs_control%dftb) THEN
CALL get_qs_env(qs_env=qs_env, natom=natom)
ALLOCATE (atcore(natom))
atcore = 0.0_dp
ALLOCATE (core_mat(1))
ALLOCATE (core_mat(1)%matrix)
CALL dbcsr_create(core_mat(1)%matrix, template=matrix_h(1)%matrix)