C+
C NAME:
C	File_list.f
C PURPOSE:
C	Read time series header to determine source elongation
C CATEGORY:
C	I/O
C CALLING SEQUENCE:
C	call File_list(cWild,cist)
C
C INPUTS:
C	cWild		character*80	The file name with a wildcard
C
C OUTPUTS:
C	clist (1000)	character*80	The found file names
C
C MODIFICATION HISTORY:
C	October-2013, Bernard Jackson (UCSD)
C-
	subroutine file_list(cWild,clist)
	include		'filparts.h'
	character 	cWild*80
	character	clist*80(1000)	
	character	cSearch*(FIL__LENGTH)
	character	cFound* (FIL__LENGTH)
C
	call FileSelection(cWild,cSearch)
	I = 1
	clist(II) = cfound
	II = 1
	do while(iSearch(I,cSearch,cFound) .eq. 1)
	  clist(II) = cfound
	II = II + 1
	  I = 0
	end do

	return
	end