From 98f92f34650ecac1d9a108e1c6d9cf6d0aae318d Mon Sep 17 00:00:00 2001 From: Will Boyd Date: Thu, 7 May 2015 22:56:26 -0400 Subject: [PATCH] Fixed trigger_scores memory leak in input_xml.F90 --- src/input_xml.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/input_xml.F90 b/src/input_xml.F90 index b4f5a4cfc5..76b5e76a16 100644 --- a/src/input_xml.F90 +++ b/src/input_xml.F90 @@ -2920,7 +2920,7 @@ contains end select ! Append the score to the list of possible trigger scores - call trigger_scores % add_key(trim(score_name), l) + if (trigger_on) call trigger_scores % add_key(trim(score_name), l) end do t % n_score_bins = n_scores