diff options
| author | HEBERT Alain <alain.hebert@polymtl.ca> | 2025-12-28 15:55:41 -0500 |
|---|---|---|
| committer | HEBERT Alain <alain.hebert@polymtl.ca> | 2025-12-28 15:55:41 -0500 |
| commit | 744b40856a035580b786378cae13d453edd26689 (patch) | |
| tree | d7056a5fcb559893c91df8d7533fa5fdb03d8480 /Dragon/src/LIBEAR.f | |
| parent | ec64ba52445d2d06deba1216471ccf3d289c78a3 (diff) | |
Resolve "Depreciate use of Version 4 and 5.0 Draglibs"
Diffstat (limited to 'Dragon/src/LIBEAR.f')
| -rw-r--r-- | Dragon/src/LIBEAR.f | 8 |
1 files changed, 4 insertions, 4 deletions
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. |