;-------------------------------------------------------------
;+
; NAME:
;       QGETFILE
; PURPOSE:
;       Read a text file into a string array.
; CATEGORY:
; CALLING SEQUENCE:
;       s = qgetfile(f)
; INPUTS:
;       f = text file name.      in
; KEYWORD PARAMETERS:
;       Keywords:
;         ERROR=err  error flag: 0=ok, 1=file not opened.
;         /QUIET means give no error message.
; OUTPUTS:
;       s = string array.        out
; COMMON BLOCKS:
; NOTES:
; MODIFICATION HISTORY:
;       R. Sterner, 20 Mar, 1990
;	D. Steele, 18 Mar, 1994 - added line count and changed WHILE
;		loop to FOR loop
;
; Copyright (C) 1990, Johns Hopkins University/Applied Physics Laboratory
; This software may be used, copied, or redistributed as long as it is not
; sold and this copyright notice is reproduced on each copy made.  This
; routine is provided as is without any express or implied warranties
; whatsoever.  Other limitations apply as described in the file disclaimer.txt.
;-
;-------------------------------------------------------------
 
	function qgetfile, file, error=err, help=hlp, quiet=quiet
 
	if (n_params(0) lt 1) or keyword_set(hlp) then begin
	  print,' Read a text file into a string array.'
	  print,' s = getfile(f)'
	  print,'   f = text file name.      in'
	  print,'   s = string array.        out'
	  print,' Keywords:'
	  print,'   ERROR=err  error flag: 0=ok, 1=file not opened.'
	  print,'   /QUIET means give no error message.'
	  return, -1
	endif
 
	get_lun, lun
	on_ioerror, err

; The following lines were added by D P Steele, 94/03/18
	nl=nlines(file)
	s=STRARR(nl)

	openr, lun, file
 
;	s = [' ']
	t = ''

;	while not eof(lun) do begin
	FOR i=0L,nl-1 DO BEGIN		; replace EOF search with FOR loop
	  readf, lun, t
;	  s = [s,t]
	  s(i)=t			; avoid slow string concatenation
;	endwhile
	  ENDFOR
 
	close, lun
	free_lun, lun
	err = 0
;	return, s(1:*)
	RETURN,s
 
err:	if !err eq -168 then begin
	  if not keyword_set(quiet) then print,' Non-standard text file format.'
	  free_lun, lun
;	  return, s(1:*)
	  RETURN,s
	endif
	if not keyword_set(quiet) then print,$
	  ' Error in getfile: File '+file+' not opened.'
	free_lun, lun
	err = 1
	return, -1
 
	end