diff options
| author | HEBERT Alain <alain.hebert@polymtl.ca> | 2025-12-29 09:00:16 -0500 |
|---|---|---|
| committer | HEBERT Alain <alain.hebert@polymtl.ca> | 2025-12-29 09:00:16 -0500 |
| commit | 02868d641588210bb3a70616830173495caf25fa (patch) | |
| tree | 8842e57b5c2faea93b795403036c0a0982fa7e94 /Ganlib/src/DRVUTL.f | |
| parent | 754ef58dfd2880f95dd9765d035389f391917492 (diff) | |
Resolve "Implement xsmdel in XSM file API"
Diffstat (limited to 'Ganlib/src/DRVUTL.f')
| -rw-r--r-- | Ganlib/src/DRVUTL.f | 4 |
1 files changed, 2 insertions, 2 deletions
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'.) |