LOGICAL FUNCTION EXIST(DEV,NAME,EXT,PPN)
IMPLICIT INTEGER(A-Z)
COMMON /FILRIB/ RIBCNT,RIBBLK(29)
DOUBLE PRECISION DEV,NAME
IF (LOOKUP(C,DEV,NAME,EXT,PPN)) GOTO 100
EXIST = .FALSE.
RETURN
100 CALL UUO("71,C,0)
CALL DECHN(C)
EXIST = .TRUE.
RETURN
END