function Gr_file_exist, file

;+
; GR_FILE_EXIST
;	Checks if a file exists (is readable).
;
; Usage:
;	ok = gr_file_exist(file)
;
; Return value:
;	ok	int	1 if the file exists, 0 if it doesn't.
;
; Argument:
;	file	string	input	The name (path) of the putative file.
;
; History:
;	Original: 16/1/97; SJT
;-

on_ioerror, no_file

openr, ilu, /get, file

free_lun, ilu

return, 1

No_file:
return, 0

end