C+
C NAME:
C	bGetLun
C PURPOSE:
C	Handle pool of logical numbers for opening files to avoid problems
C	with using the same logical number to open different files.
C CALLING SEQUENCE:
	logical function bGetLun(LU,cFile)
C INPUTS:
C	(none)
C OUTPUTS:
C	LU	integer		assigned logical unit number; FIL__NOUNIT is returned
C				if no unit numbers are available
C	bGetLun	logical		.TRUE. : logical unit number assigned
C				.FALSE.: no more unit numbers available
C INCLUDE:
	include		'filparts.h'
C RESTRICTIONS:
C	Only logical unit numbers in range [LUMin,LUMax]=[30,40] are processed.
C CALLS:
C	iGetLun
C MODIFICATION HISTORY:
C	?, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
C-
	    integer	LU
	    character	cFile*(*)

	LU = iGetLun(cFile)
	bGetLun = LU .ne. FIL__NOUNIT

	return
	end