diff options
Diffstat (limited to 'Dragon/src/TRAXS.f')
| -rw-r--r-- | Dragon/src/TRAXS.f | 1 |
1 files changed, 0 insertions, 1 deletions
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)) |