Convention: declare type with initializer

hfp · Oct 16, 2024 · 57e7aef · 57e7aef
1 parent b12f6b3
commit 57e7aef
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/pwdft_environment_types.F b/src/pwdft_environment_types.F
@@ -73,7 +73,7 @@ MODULE pwdft_environment_types
       TYPE(pwdft_energy_type), POINTER                 :: energy => NULL()
       REAL(KIND=dp), DIMENSION(:, :), POINTER          :: forces => NULL()
       REAL(KIND=dp), DIMENSION(3, 3)                   :: stress = 0.0_dp
-      LOGICAL                                          :: ignore_convergence_failure
+      LOGICAL                                          :: ignore_convergence_failure = .FALSE.
 !     16 different functionals should be enough
       CHARACTER(len=80), DIMENSION(16)                 :: xc_func = ""
 #if defined(__SIRIUS)