Added initialization

6e6ebb30 · Daniel Wortmann · 765db73a · 6e6ebb30
Commit 6e6ebb30 authored Jan 08, 2019 by Daniel Wortmann
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

cdn/qal_21.f90 cdn/qal_21.f90 +1 -1

No files found.
--- a/cdn/qal_21.f90
+++ b/cdn/qal_21.f90
@@ -41,7 +41,7 @@ CONTAINS

    !     .. Intrinsic Functions ..
    INTRINSIC conjg
-
+    qal21=0.0
    !--->    l-decomposed density for each occupied state
    states : DO i = 1, noccbd
       nt1 = 1