From 744b40856a035580b786378cae13d453edd26689 Mon Sep 17 00:00:00 2001
From: HEBERT Alain <alain.hebert@polymtl.ca>
Date: Sun, 28 Dec 2025 15:55:41 -0500
Subject: Resolve "Depreciate use of Version 4 and 5.0 Draglibs"

---
 Dragon/src/LIBEAR.f | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

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

diff --git a/Dragon/src/LIBEAR.f b/Dragon/src/LIBEAR.f
index 8b7746c..1bc1d67 100644
--- a/Dragon/src/LIBEAR.f
+++ b/Dragon/src/LIBEAR.f
@@ -30,7 +30,7 @@
 *         atomic number z*10000 (digits) + mass number a*10 +
 *         energy state (0 = ground state, 1 = first state, etc.).
 * KPAX    complete reaction type matrix.
-* BPAX    complete branching ratio matrix.
+* BPAX    complete branching ratio matrix. Q values are not recovered.
 *
 *-----------------------------------------------------------------------
 *
@@ -50,7 +50,9 @@
       CHARACTER CFILNA*(*),NMDEPL(MAXR)*8
       INTEGER MAXR,NEL,ITNAM(3,NEL),ITZEA(NEL),KPAX(NEL+MAXR,NEL)
       REAL BPAX(NEL+MAXR,NEL)
-*
+*----
+*  LOCAL VARIABLES
+*----
       EXTERNAL LIBA21
       INTEGER ISFICH(3),NITCA(5)
       PARAMETER (IOUT=6)
@@ -288,7 +290,6 @@
          IF(NV.NE.0) THEN
             IF(RTSEGM(IDK).NE.0.0) THEN
                KPAX(NEL+3,ISO)=1
-               BPAX(NEL+3,ISO)=RTSEGM(IDK)
             ENDIF
          ENDIF
 *        AVAILABLE CROSS SECTION TYPES.
@@ -305,7 +306,6 @@
          IF(NMGEF.NE.0) THEN
             IF(RTSEGM(IDK+NMGEF-1).NE.0.0) THEN
                KPAX(NEL+2,ISO)=1
-               BPAX(NEL+2,ISO)=RTSEGM(IDK+NMGEF-1)
             ENDIF
          ENDIF
 *        RADIOACTIVE DECAY CONSTANTS.
-- 
cgit v1.2.3