diff options
| author | Alain Hebert <alainhebert@Alains-MacBook-Pro.local> | 2025-11-02 13:21:20 +0100 |
|---|---|---|
| committer | Alain Hebert <alainhebert@Alains-MacBook-Pro.local> | 2025-11-02 13:21:20 +0100 |
| commit | c234e0ad4a63b37eeb4f93ac05588403a60f2b20 (patch) | |
| tree | 2c6cbaa77460b43053edfb9d865fd568ba160322 /Dragon/src/EVODRV.f | |
| parent | bb19a602772d4fe89f5fa2e534b93237330fd89f (diff) | |
#10: Correct a power normalization issue in module EVO:
Diffstat (limited to 'Dragon/src/EVODRV.f')
| -rw-r--r-- | Dragon/src/EVODRV.f | 8 |
1 files changed, 4 insertions, 4 deletions
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 |