/*-*-ratfor-*-*/
/************************************************************************
* find_file - fill out defaults and logical names of file spec		*
*									*
*	usage	logical = find_file (file_spec_str, file_spec)		*
*	where	find_file	will fill out the defaults and		*
*			translate logical names of file spec and	*
*			return the full file_spec			*
*		file_spec_str	is the file specification string	*
*		file_spec	is the returning filled in string	*
*	note	This routine calls start_search and file_search --	*
*		this means that these routine calls cannot be		*
*		intermixed will find_file calls without producing	*
*		unpredictable results					*
************************************************************************/
logical function find_file (file_spec_str, file_spec)
byte	file_spec_str, file_spec
logical	start_search,file_search

find_file = .false.
if (start_search (file_spec_str))
	if (file_search (file_spec))
		find_file = .true.
return
end