From 744b40856a035580b786378cae13d453edd26689 Mon Sep 17 00:00:00 2001 From: HEBERT Alain Date: Sun, 28 Dec 2025 15:55:41 -0500 Subject: Resolve "Depreciate use of Version 4 and 5.0 Draglibs" --- Dragon/src/LIBWD4.f | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) (limited to 'Dragon/src/LIBWD4.f') diff --git a/Dragon/src/LIBWD4.f b/Dragon/src/LIBWD4.f index 4262efa..e65ff05 100644 --- a/Dragon/src/LIBWD4.f +++ b/Dragon/src/LIBWD4.f @@ -49,10 +49,10 @@ *---- TYPE(C_PTR) IPLIB,IPISO(NBISO) INTEGER NDPROC - PARAMETER (NDPROC=10) + PARAMETER (NDPROC=11) INTEGER IPRINT,NGROUP,NBISO,NL,ISONAM(3,NBISO),ISONRF(3,NBISO), > ISHINA(3,NBISO),NGF,NGFR - CHARACTER NAMFIL*8,NAMDXS(NDPROC)*6 + CHARACTER NAMFIL*8,NAMDXS(NDPROC)*8 LOGICAL MASKI(NBISO) REAL TN(NBISO),SN(NGROUP,NBISO),SB(NGROUP,NBISO) *---- @@ -116,12 +116,11 @@ *---- * DATA *---- - SAVE NBATOM,NAMDXS - DATA NBATOM - > /1,2,16,12/ - DATA NAMDXS - > /'NTOT0 ','TRANC ','NUSIGF','NFTOT ','CHI ', - > 'NU ','NG ','N2N ','NGOLD ','NWT0 '/ + SAVE NBATOM,NAMDXS + DATA NBATOM /1,2,16,12/ + DATA NAMDXS /'NTOT0 ','TRANC ','NUSIGF ','NFTOT ', + > 'CHI ','NU ','NG ','N2N ', + > 'NGOLD ','NWT0 ','H-FACTOR'/ *---- * SCRATCH STORAGE ALLOCATION * ITYPRO cross section processed -- cgit v1.2.3