      SUBROUTINE CDELET (CNAME,IERR)
C
C
      CHARACTER CNAME*(*)
C     CHARACTER CNAM*80                                                 Mlg
C     INTEGER NAME(6)                                                   H
C
C     DO 10 I = 1,6                                                     H
C     NAME(I) = 3H                                                      H
C10   CONTINUE                                                          H
C     ILEN = 18                                                         H
C     J = LEN(CNAME)                                                    H
C     IF (J .LT. ILEN) ILEN = J                                         H
C     CALL CHRHOL(CNAME,1,ILEN,NAME,1)                                  H
C     CALL DELETE(NAME,IERR)                                            H
C
C     CNAM = CNAME                                                      Mlg
C     CALL CHRLNB (CNAM, J)                                             Mlg
C     CALL ERASF(CNAM(1:J)//CHAR(0),IERR)                               Mlg
C
      OPEN (UNIT=99, FILE=CNAME, IOSTAT=IERR)                           L
      IF (IERR.EQ.0) CLOSE (UNIT=99, STATUS='DELETE')                   L
C
      RETURN
      END
