comp-chem/cp2k
1
0
Fork 0
mirror of https://github.com/cp2k/cp2k.git synced 2026-07-29 06:35:28 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix some initialization of allocatable components

Browse source
This commit is contained in:
Frederick Stein 2023-06-26 11:16:25 +02:00 • committed by Frederick Stein
parent 42702ba3c1
commit c8a38c8314
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/tmc/tmc_analysis_types.F
View file

@ -199,6 +199,8 @@ CONTAINS
ALLOCATE (ana_dens%sum_density(nr_bins(1), nr_bins(2), nr_bins(3)))
ALLOCATE (ana_dens%sum_dens2(nr_bins(1), nr_bins(2), nr_bins(3)))
ana_dens%sum_density = 0.0_dp
ana_dens%sum_dens2 = 0.0_dp
END SUBROUTINE tmc_ana_density_create
! **************************************************************************************************
@ -357,9 +359,13 @@ CONTAINS
ALLOCATE (ana_dip_ana)
ALLOCATE (ana_dip_ana%mu_psv(3))
ana_dip_ana%mu_psv = 0.0_dp
ALLOCATE (ana_dip_ana%mu_pv(3))
ana_dip_ana%mu_pv = 0.0_dp
ALLOCATE (ana_dip_ana%mu2_pv(3))
ana_dip_ana%mu2_pv = 0.0_dp
ALLOCATE (ana_dip_ana%mu2_pv_mat(3, 3))
ana_dip_ana%mu2_pv_mat = 0.0_dp
END SUBROUTINE tmc_ana_dipole_analysis_create
! **************************************************************************************************