PROGRAM TEST_ACL
      LOGICAL*4 AC(5)
      DATA AC/.TRUE.,.TRUE.,.FALSE.,.FALSE.,.FALSE./
      CALL TEST
      CALL PUTACL('TST.DAT','ECOAV',AC)
      CALL TEST
      CALL PUTACL('TST.DAT','ECOAPPEL',AC)
      CALL TEST
      CALL PUTACL('TST.DAT','ECOPETER',AC)
      CALL TEST
      CALL DELONEACL('TST.DAT','ECOAV',AC)
      CALL TEST
      CALL DELACL('TST.DAT')
      CALL TEST
      END
C
      SUBROUTINE TEST
      INTEGER*4 N,UNLEN(25),I,J
      LOGICAL*4 AC(5,25)
      CHARACTER*12 UN(25)
      CALL GETACL('TST.DAT',N,UN,UNLEN,AC)
      WRITE(*,*) 'NO ACL=',N
      DO 100 I=1,N
        WRITE(*,*) UN(I)(1:UNLEN(I)),(AC(J,I),J=1,5)
100   CONTINUE
      RETURN
      END