From c234e0ad4a63b37eeb4f93ac05588403a60f2b20 Mon Sep 17 00:00:00 2001 From: Alain Hebert Date: Sun, 2 Nov 2025 13:21:20 +0100 Subject: #10: Correct a power normalization issue in module EVO: --- Dragon/src/EVODRV.f | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'Dragon/src/EVODRV.f') diff --git a/Dragon/src/EVODRV.f b/Dragon/src/EVODRV.f index 5015c51..afe2f35 100644 --- a/Dragon/src/EVODRV.f +++ b/Dragon/src/EVODRV.f @@ -791,10 +791,10 @@ *---- * PERFORM THE DEPLETION CALCULATION *---- - CALL EVOBLD(IMPX,INR2,IGLOB,NBMIX,NBISO,NCOMB,ISONAM,YDPL,VX, - 1 MILVO,JM,NVAR,NDFP,NSUPS,NREAC,NPAR,NFISS,XT,EPS1,EPS2,EXPMAX, - 2 H1,ITYPE,IDIRAC,FIT,DELTA,ENERG,KPAR,BPAR,YIELD,IDR,RER,RRD, - 3 AWR,FUELDN,SIG(1,1,1,1),VPH,VPHV(1,1),MIXPWR,VTOTD,IEVOLB, + CALL EVOBLD(IMPX,INR2,IGLOB,NBMIX,NBISO,NCOMB,ISONAM,IPISO, + 1 YDPL,VX,MILVO,JM,NVAR,NDFP,NSUPS,NREAC,NPAR,NFISS,XT,EPS1,EPS2, + 2 EXPMAX,H1,ITYPE,IDIRAC,FIT,DELTA,ENERG,KPAR,BPAR,YIELD,IDR,RER, + 3 RRD,AWR,FUELDN,SIG(1,1,1,1),VPH,VPHV(1,1),MIXPWR,VTOTD,IEVOLB, 4 KFISS,KPF) *---- * SAVE THE INITIAL SATURATED NUMBER DENSITIES IN THE DEPLETION TABLE -- cgit v1.2.3