	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

