From 4c8d602bd6a907a9be5b283cffa326264a1d938b Mon Sep 17 00:00:00 2001
From: Alain Hebert <alainhebert@Alains-MacBook-Pro.local>
Date: Tue, 18 Nov 2025 12:47:07 +0100
Subject: #7: Correct a segmentation fault in modules APX: and MPO:

---
 Dragon/src/FLUGPI.f | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'Dragon/src/FLUGPI.f')

diff --git a/Dragon/src/FLUGPI.f b/Dragon/src/FLUGPI.f
index 91c5ef2..8f0f4b2 100644
--- a/Dragon/src/FLUGPI.f
+++ b/Dragon/src/FLUGPI.f
@@ -235,6 +235,8 @@
      >          //'LEAKAGE MODEL OTHER THAN SIGS OR HETE.')
               ENDIF
               IF(ILEAK.EQ.5) THEN
+                IF(IPRINT.GT.0) WRITE(6,'(8H FLUGPI:,I5,11H INTEGER VA,
+     >          14HLUES EXPECTED.)') NMAT
                 DO IBM=1,NMAT
                   CALL REDGET(ITYPLU,INTLIR,REALIR,CARLIR,DBLINP)
                   IF((IBM.EQ.1).AND.(ITYPLU.EQ.3)) GO TO 30
-- 
cgit v1.2.3