From 3aaaa78e146492ca2f17128d06d44e6d9ef6860e Mon Sep 17 00:00:00 2001
From: Sebastian Ehlert <28669218+awvwgk@users.noreply.github.com>
Date: Sun, 29 Sep 2024 14:50:35 +0200
Subject: [PATCH] Update src/dftd3/param.f90

---
 src/dftd3/param.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/dftd3/param.f90 b/src/dftd3/param.f90
index cb751934..387013f5 100644
--- a/src/dftd3/param.f90
+++ b/src/dftd3/param.f90
@@ -1060,7 +1060,7 @@ subroutine get_zero_damping(param, method, error, s9, citation)
    end select
 
    if (.not.allocated(doi)) doi = doi_dftd3_0
-   citation = get_citation(doi)
+   if (present(citation)) citation = get_citation(doi)
 
    if (present(s9)) then
       param%s9 = s9