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/LIBXS2.f | |
| parent | ec64ba52445d2d06deba1216471ccf3d289c78a3 (diff) | |
Resolve "Depreciate use of Version 4 and 5.0 Draglibs"
Diffstat (limited to 'Dragon/src/LIBXS2.f')
| -rw-r--r-- | Dragon/src/LIBXS2.f | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/Dragon/src/LIBXS2.f b/Dragon/src/LIBXS2.f index 2fdd82c..403f1ed 100644 --- a/Dragon/src/LIBXS2.f +++ b/Dragon/src/LIBXS2.f @@ -53,7 +53,6 @@ PARAMETER (IOUT=6) CHARACTER TEXT20*20,TEXT12*12,HNISOR*20,HITNAM*20,HSMG*131 DOUBLE PRECISION DBLINP - REAL E458(9) *---- * SCRATCH STORAGE ALLOCATION *---- @@ -115,19 +114,15 @@ CALL LCMLEN(IPAP,'EGAMM',NV,ITYLCM) IF(NV.NE.0) THEN KPAX(NEL+3,ISO)=1 - CALL LCMGET(IPAP,'EGAMM',BPAX(NEL+3,ISO)) ENDIF * FISSION ENERGIES. CALL LCMLEN(IPAP,'EF',NV,ITYLCM) IF(NV.NE.0) THEN KPAX(NEL+2,ISO)=1 - CALL LCMGET(IPAP,'EF',BPAX(NEL+2,ISO)) ENDIF CALL LCMLEN(IPAP,'ENER_458',NV,ITYLCM) IF(NV.NE.0) THEN KPAX(NEL+2,ISO)=1 - CALL LCMGET(IPAP,'ENER_458',E458) - BPAX(NEL+2,ISO)=E458(8) ENDIF * RADIOACTIVE DECAY CONSTANTS. CALL LCMLEN(IPAP,'LAMBD0',NCHANN,ITYLCM) |