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 | 754ef58dfd2880f95dd9765d035389f391917492 (patch) | |
| tree | d7056a5fcb559893c91df8d7533fa5fdb03d8480 /Dragon/src/EDIACT.f | |
| parent | ec64ba52445d2d06deba1216471ccf3d289c78a3 (diff) | |
| parent | 744b40856a035580b786378cae13d453edd26689 (diff) | |
Merge branch '19-depreciate-use-of-version-4-and-5-0-draglibs' into 'main'
Resolve "Depreciate use of Version 4 and 5.0 Draglibs"
See merge request dragon/5.1!40
Diffstat (limited to 'Dragon/src/EDIACT.f')
| -rw-r--r-- | Dragon/src/EDIACT.f | 13 |
1 files changed, 3 insertions, 10 deletions
diff --git a/Dragon/src/EDIACT.f b/Dragon/src/EDIACT.f index f45201a..4d824a6 100644 --- a/Dragon/src/EDIACT.f +++ b/Dragon/src/EDIACT.f @@ -2,7 +2,7 @@ SUBROUTINE EDIACT(IPEDIT,IPRINT,NGROUP,NGCOND,NREGIO,NMERGE,NL, > NBISO,NED,VOLUME,MIX,IGCOND,IMERGE,FLUXES, > ITRANC,ISONAM,IPISO,HVECT,CURNAM,NACTI,IACTI, - > EMEVF2,EMEVG2) + > EMEVF2) * *----------------------------------------------------------------------- * @@ -43,7 +43,6 @@ * NACTI number of mixture with WIMS activation edit. * IACTI mixtures with activation edits. * EMEVF2 fission production energy. -* EMEVG2 capture production energy. * *----------------------------------------------------------------------- * @@ -56,8 +55,7 @@ INTEGER IPRINT,NGROUP,NGCOND,NREGIO,NMERGE,NL,NBISO,NED, > MIX(NBISO),IGCOND(NGCOND),IMERGE(NREGIO),ITRANC, > ISONAM(3,NBISO),NACTI,IACTI(NACTI) - REAL VOLUME(NREGIO),FLUXES(NREGIO,NGROUP), - > EMEVF2(NBISO),EMEVG2(NBISO) + REAL VOLUME(NREGIO),FLUXES(NREGIO,NGROUP),EMEVF2(NBISO) *---- * LOCAL VARIABLES *---- @@ -65,7 +63,7 @@ TYPE(C_PTR) KPLIB INTEGER IPAR(NSTATE) CHARACTER CACTI*12,CM*2,HMAKE(100)*8,HNEW*12,TEXT12*12,HSMG*131 - LOGICAL LMEVF,LMEVG,LLCM + LOGICAL LMEVF,LLCM DOUBLE PRECISION DVOL,DFLI,DTMP,QEN,ERR INTEGER, ALLOCATABLE, DIMENSION(:) :: ISOMIX INTEGER, ALLOCATABLE, DIMENSION(:,:) :: KCJJ,HNISO @@ -162,10 +160,6 @@ CALL LCMLEN(KPLIB,'MEVF',LENGTH,ITYLCM) IF(LENGTH.EQ.1) CALL LCMGET(KPLIB,'MEVF',EVF) LMEVF=(LENGTH.EQ.1).OR.(EMEVF2(ISO).GT.0.0) - IF(EMEVG2(ISO).GT.0.0) EVG=EMEVG2(ISO) - CALL LCMLEN(KPLIB,'MEVG',LENGTH,ITYLCM) - IF(LENGTH.EQ.1) CALL LCMGET(KPLIB,'MEVG',EVG) - LMEVG=(LENGTH.EQ.1).OR.(EMEVG2(ISO).GT.0.0) DO 111 IL=1,NL WRITE (CM,'(I2.2)') IL-1 CALL LCMLEN(KPLIB,'SIGS'//CM,LENGTH,ITYLCM) @@ -353,7 +347,6 @@ CALL LCMSIX(IPEDIT,HNEW,1) CALL LCMPUT(IPEDIT,'AWR',1,2,AWR) IF(LMEVF) CALL LCMPUT(IPEDIT,'MEVF',1,2,EVF) - IF(LMEVG) CALL LCMPUT(IPEDIT,'MEVG',1,2,EVG) DO 220 J=1,MAXH IF(HMAKE(J).NE.' ') THEN DO 221 IGCD=1,NGCOND |