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/TRAXS.f | 1 -
 1 file changed, 1 deletion(-)

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

diff --git a/Dragon/src/TRAXS.f b/Dragon/src/TRAXS.f
index 7a077ca..3588589 100644
--- a/Dragon/src/TRAXS.f
+++ b/Dragon/src/TRAXS.f
@@ -54,7 +54,6 @@
       DO ICOPY=1,NCOPY1
         TEXT12=TCOPY1(ICOPY)
         CALL LCMLEN(IPMAC2,TEXT12,ILONG,ITYLCM)
-          print *,'TRAXS: transpose=',TEXT12,' ILONG=',ILONG
         IF(ILONG.GT.0) THEN
           CALL LCMGET(IPMAC2,TEXT12,GAR1)
           ALLOCATE(XIOF(ILONG))
-- 
cgit v1.2.3