From 744b40856a035580b786378cae13d453edd26689 Mon Sep 17 00:00:00 2001
From: HEBERT Alain <alain.hebert@polymtl.ca>
Date: Sun, 28 Dec 2025 15:55:41 -0500
Subject: Resolve "Depreciate use of Version 4 and 5.0 Draglibs"

---
 Dragon/src/LIBAPL.f | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'Dragon/src/LIBAPL.f')

diff --git a/Dragon/src/LIBAPL.f b/Dragon/src/LIBAPL.f
index 24efbcb..aa4367c 100644
--- a/Dragon/src/LIBAPL.f
+++ b/Dragon/src/LIBAPL.f
@@ -899,6 +899,11 @@
       SIGA(I)=SIGA(I)+SIGS(I,1)
   730 CONTINUE
       CALL LCMPUT(KPLIB,'NTOT0',NGRO,2,SIGA)
+*----
+*  VOID H-FACTOR
+*----
+      CALL LCMLEN(KPLIB,'H-FACTOR',LENGT,ITYLCM)
+      IF(LENGT.NE.0) CALL LCMDEL(KPLIB,'H-FACTOR')
       GO TO 50
 *----
 *  CHECK IF ALL NBISO ISOTOPES HAVE BEEN PROCESSED.
-- 
cgit v1.2.3