From 02868d641588210bb3a70616830173495caf25fa Mon Sep 17 00:00:00 2001 From: HEBERT Alain Date: Mon, 29 Dec 2025 09:00:16 -0500 Subject: Resolve "Implement xsmdel in XSM file API" --- Ganlib/src/DRVUTL.f | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Ganlib/src/DRVUTL.f') diff --git a/Ganlib/src/DRVUTL.f b/Ganlib/src/DRVUTL.f index 36d171c..dc4a98d 100644 --- a/Ganlib/src/DRVUTL.f +++ b/Ganlib/src/DRVUTL.f @@ -417,10 +417,9 @@ * DELETE A BLOCK. IF(IND.EQ.2) CALL XABORT('DRVUTL: DEL IS A FORBIDDEN OPERATION' 1 //' IN READ-ONLY MODE.') - IF(ITYPE.GT.1) CALL XABORT('DRVUTL: DEL CAN ONLY BE USED WITH ' - 1 //'LINKED-LISTS.') CALL REDGET(INDIC,NITMA,FLOTT,NAMT,DFLOTT) IF(INDIC.NE.3) CALL XABORT('DRVUTL: CHARACTER DATA EXPECTED.') + IF(IMPX.GT.0) WRITE (6,170) NAMT CALL LCMDEL(IPLIST,NAMT) ELSE IF(TEXT4.EQ.'STAT') THEN * COMPARE TWO BLOCKS STORED ON LCM OR XSM. @@ -689,6 +688,7 @@ ENDIF GO TO 10 * + 170 FORMAT (/17H DRVUTL: DELETE ',A12,2H'.) 180 FORMAT (/36H DRVUTL: PERFORM UTILITY ACTIONS ON ,A11,9H OPEN IN , 1 A9,29H MODE WITH ACTIVE DIRECTORY ',A12,2H'./9X,9HLCM NAME=,A) 190 FORMAT (/27H DRVUTL: STEP UP TO LEVEL ',A12,2H'.) -- cgit v1.2.3