From b1694bc57586c64ba7fd03c63e1eb76160245037 Mon Sep 17 00:00:00 2001
From: Michele Guerini Rocco <m.guerinirocco2@campus.unimib.it>
Date: Wed, 15 Dec 2021 02:31:07 +0100
Subject: [PATCH] src/pec.f90: fix uninitialised memory use

If the condition `sccsa > zero` is not met, ratj{a,b}mx remain
unitialised and print_finals may write them to fort.7.
---
 src/pec.f90 | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/pec.f90 b/src/pec.f90
index f0b0e62..16e64e2 100644
--- a/src/pec.f90
+++ b/src/pec.f90
@@ -309,6 +309,8 @@ contains
       rhotjfi  = zero
       ajmxfi   = zero
       drhotjfi = zero
+      ratjamx  = zero
+      ratjbmx  = zero
     end if
   end subroutine postproc_profiles