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