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/LIBLIB.f | |
| parent | ec64ba52445d2d06deba1216471ccf3d289c78a3 (diff) | |
Resolve "Depreciate use of Version 4 and 5.0 Draglibs"
Diffstat (limited to 'Dragon/src/LIBLIB.f')
| -rw-r--r-- | Dragon/src/LIBLIB.f | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/Dragon/src/LIBLIB.f b/Dragon/src/LIBLIB.f index 53abc67..59712d2 100644 --- a/Dragon/src/LIBLIB.f +++ b/Dragon/src/LIBLIB.f @@ -45,7 +45,7 @@ *---- TYPE(C_PTR) JPLIB,KPLIB INTEGER IPAR(NSTATE),NGRO,NL,ITRANC,ITIME,NLIB,NGF,IGRMAX,NED, - > NDEL,IPROC,ILENG,ITYLCM,IVOID,NBESP,ISOT,NPART,IOF + > NDEL,IPROC,ILENG,ITYLCM,IVOID,NBESP,ISOT,NPART,NDEPL,IOF CHARACTER HVECT(MAXED)*8,TEXT4*4,NAMLBT*8,TEXT12*12 *---- * ALLOCATABLE ARRAYS @@ -59,6 +59,7 @@ *---- * RECOVER INFORMATION FROM THE /MICROLIB/ DIRECTORY. *---- + CALL LCMGET(IPLIB,'STATE-VECTOR',IPAR) IF(NBISO.NE.IPAR(2)) CALL XABORT('LIBLIB: INCONSISTENT LIBRARY.') NGRO=IPAR(3) @@ -68,6 +69,7 @@ NLIB=IPAR(8) NGF=IPAR(9) IGRMAX=IPAR(10) + NDEPL=IPAR(11) NED=IPAR(13) IF(NED.GT.MAXED) CALL XABORT('LIBLIB: MAXED OVERFLOW.') NBESP=IPAR(16) @@ -151,7 +153,7 @@ *---- CALL LIBLIC (IPLIB,NBISO,MASKI,IMPX,NGRO,NL,ITRANC,ITIME,NLIB, 1 NED,HVECT,ISONA,ISONR,IPISO,ISHIN,TMPIS,IHLIB,ILLIB,NAME,NTFG, - 2 LSHI,SN,SB,NIR,GIR,NGF,IGRMAX,NDEL,NBESP,NPART,IPROC) + 2 LSHI,SN,SB,NIR,GIR,NGF,IGRMAX,NDEL,NBESP,NPART,IPROC,NDEPL) *---- * RESET ISOTOPE ALIAS. *---- |