diff options
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'.) |