FUNCTION GetFnPath, fileName=fileNa, idx=idx
;	---------------------------------------------------------------
;+							26-July-91
;	NAME:
;		GetFnPath
;	Purpose:
;		Prompt the user with the file which was not found and
;		allow the user to specify a path to the file.
;	CALLING SEQUENCE:
;		path = GetFnPath([filename=fileNa, idx=idx])
;	Input/Keyword:
;		fileNa	list of user requested filenames
;		idx	current index value for the filename list.
;	Returned:
;		path	path to the unlocated file
;	History:
;		written by GAL 26-July-91
;		NOTE: this routine should be updated with the X-window
;		equivalent i/o.
;-
;	-------------------------------------------------------------
;	ON_ERROR, 2	;force a return to caller if error occurs

	    Print, '*** File: ', fileNa(idx), ' not found in default dir:'
	    path = ''
	    READ, 'Enter path to File or <cr> if you do not ' $
			+ 'want to read file: ', path

	RETURN, path
	END