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/LIBND1.f | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'Dragon/src/LIBND1.f') diff --git a/Dragon/src/LIBND1.f b/Dragon/src/LIBND1.f index 7827a6a..e99a274 100644 --- a/Dragon/src/LIBND1.f +++ b/Dragon/src/LIBND1.f @@ -67,7 +67,7 @@ TYPE(C_PTR) KPLIB INTEGER I,I0,IERR,HEADER(16),NISOLB,NGFIS,NGTHER,MAXTMP,MAXDIL, 1 MAXTDN,MAXPN,NF,NP1,IND,IHEAD(200),NBTEM,NBDIL,ISOID,IG,IG1,NL2, - 2 IJ,IM,IMX,IOF,J,ITYPRO(2) + 2 IJ,IM,IMX,IOF,J,ITYPRO(2),LENGT,ITYLCM REAL RHEAD(200),WW,SUM DOUBLE PRECISION XDRCST,ANEUT CHARACTER TEXT8*8,HSMG*131,HNAMIS*12,HNISOR*12 @@ -258,6 +258,10 @@ GAR1(NGF+1:NGRO,7)=0.0 CALL LCMPUT(KPLIB,'N2N',NGRO,2,GAR1(1,7)) * +* H-FACTOR + CALL LCMLEN(KPLIB,'H-FACTOR',LENGT,ITYLCM) + IF(LENGT.NE.0) CALL LCMDEL(KPLIB,'H-FACTOR') +* * P0 differential scattering XS CALL XSDISO(7002,5015,IND,LOAD,IERR) GAR1(:NGRO,5)=0.0 -- cgit v1.2.3