diff options
| author | HEBERT Alain <alain.hebert@polymtl.ca> | 2025-10-10 16:53:52 -0400 |
|---|---|---|
| committer | HEBERT Alain <alain.hebert@polymtl.ca> | 2025-10-10 16:53:52 -0400 |
| commit | 881666deacd270006a96823f83691343b786df3a (patch) | |
| tree | bd9721e1077455134880344c0e3a5cb4be428b1d /Dragon | |
| parent | 3b9fff7b3aecf9d6def9972738aad1d8993da067 (diff) | |
| parent | d1670680fd0f1ee8242c1cd7fe2b49409410c32c (diff) | |
Merge branch '6-correct-an-undefined-variable-in-module-compo' into 'main'
#6: Correct an undefined variable in module COMPO:
See merge request dragon/5.1!10
Diffstat (limited to 'Dragon')
| -rw-r--r-- | Dragon/src/COMCAL.f | 1 | ||||
| -rw-r--r-- | Dragon/src/COMPO.f | 2 |
2 files changed, 2 insertions, 1 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 |