diff options
Diffstat (limited to 'Dragon/src/LIBLIC.F')
| -rw-r--r-- | Dragon/src/LIBLIC.F | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/Dragon/src/LIBLIC.F b/Dragon/src/LIBLIC.F index a669c9d..8079f3a 100644 --- a/Dragon/src/LIBLIC.F +++ b/Dragon/src/LIBLIC.F @@ -1,7 +1,8 @@ *DECK LIBLIC SUBROUTINE LIBLIC (IPLIB,NBISO,MASKI,IMPX,NGRO,NL,ITRANC,ITIME, 1 NLIB,NED,HVECT,ISONAM,ISONRF,IPISO,ISHINA,TMPISO,IHLIB,ILLIB, - 2 INAME,NTFG,LSHI,SN,SB,NIR,GIR,NGF,IGRMAX,NDEL,NBESP,NPART,IPROC) + 2 INAME,NTFG,LSHI,SN,SB,NIR,GIR,NGF,IGRMAX,NDEL,NBESP,NPART,IPROC, + 3 NDEPL) * *----------------------------------------------------------------------- * @@ -63,6 +64,7 @@ * NBESP number of energy-dependent fission spectra. * NPART number of particles. * IPROC type of library processing. +* NDEPL number of depleting isotopes. * *----------------------------------------------------------------------- * @@ -76,7 +78,7 @@ *---- TYPE(C_PTR) IPLIB,IPISO(NBISO) INTEGER NBISO,IMPX,NGRO,NL,ITRANC,ITIME,NLIB,NED,NGF,IGRMAX,NDEL, - > NBESP,NPART,IPROC,ISONAM(3,NBISO),ISONRF(3,NBISO), + > NBESP,NPART,IPROC,NDEPL,ISONAM(3,NBISO),ISONRF(3,NBISO), > ISHINA(3,NBISO),IHLIB(2,NBISO,4),ILLIB(NBISO),INAME(16,NLIB), > NTFG(NBISO),LSHI(NBISO),NIR(NBISO) LOGICAL MASKI(NBISO) @@ -238,8 +240,8 @@ ENDIF * * COMPUTE THE TRANSPORT XS AND ADD COMPLEMENTARY INFORMATION. - CALL LIBADD(IPLIB,NBIS,MASKI(IND1),IMPX,NGRO,NL,ITRANC, - 1 ISONAM(1,IND1),IPISO(IND1),NIR(IND1),GIR(IND1)) + CALL LIBADD(IPLIB,NBIS,MASKI(IND1),IMPX,NGRO,NL,ITRANC,NDEPL, + 1 ISONAM(1,IND1),ISONRF(1,IND1),IPISO(IND1),NIR(IND1),GIR(IND1)) ENDIF * IND1=IND1+NBIS |