From d1670680fd0f1ee8242c1cd7fe2b49409410c32c Mon Sep 17 00:00:00 2001 From: Alain Hebert Date: Fri, 10 Oct 2025 17:46:03 +0200 Subject: #6: Correct an undefined variable in module COMPO: --- Dragon/src/COMCAL.f | 1 + Dragon/src/COMPO.f | 2 +- README.md | 2 +- 3 files changed, 3 insertions(+), 2 deletions(-) diff --git a/Dragon/src/COMCAL.f b/Dragon/src/COMCAL.f index 821fa79..e304141 100644 --- a/Dragon/src/COMCAL.f +++ b/Dragon/src/COMCAL.f @@ -107,6 +107,7 @@ NISOP=ISTATE(13) NGFF=ISTATE(14) NALBP=ISTATE(15) + IDF=ISTATE(16) *---- * RECOVER THE USER-REQUESTED PARTICULARIZED ISOTOPES *---- diff --git a/Dragon/src/COMPO.f b/Dragon/src/COMPO.f index b8f8fcc..0645e8f 100644 --- a/Dragon/src/COMPO.f +++ b/Dragon/src/COMPO.f @@ -662,7 +662,7 @@ * IF(IMPX.GT.0) THEN CALL LCMGET(IPCPO,'STATE-VECTOR',ISTATE) - WRITE(IOUT,400) NAMDIR,IMPX,(ISTATE(I),I=1,15) + WRITE(IOUT,400) NAMDIR,IMPX,(ISTATE(I),I=1,16) ENDIF IF(IMPX.GT.4) CALL LCMLIB(IPCPO) GO TO 390 diff --git a/README.md b/README.md index b24cf48..6a44219 100644 --- a/README.md +++ b/README.md @@ -6,7 +6,7 @@ Version5 is a 64-bit clean distribution of the reactor physics codes developed a ## License -The license is [GNU General Public License](http://www.gnu.org/licenses/lgpl.html). +The license is [GNU Lesser General Public License](http://www.gnu.org/licenses/lgpl.html). ## Documentation -- cgit v1.2.3