;+
; NAME:
;	CCG_LIF
;
; PURPOSE:
; 	Determine the number of lines (rows) in
;	the passed file.
;
;	Returns the number of lines in the passed
;	file as an integer.
;
; CATEGORY:
;	Text Files.
;
; CALLING SEQUENCE:
;	result=CCG_LIF(file='filename')
;	result=CCG_LIF(file='/projects/co/flask/site/brw.co')
;
; INPUTS:
;	file:	Specified file.
;
; OPTIONAL INPUT PARAMETERS:
;	None.
;
; OUTPUTS:
;	None.
;
; COMMON BLOCKS:
;	None.
;
; SIDE EFFECTS:
;	None.
;
; RESTRICTIONS:
;	None.
;
; PROCEDURE:
;		Example:
;			.
;			.
;			.
;			nlines=CCG_LIF(file='projects/co2/flask/site/brw.co2')
;			array=MAKE_ARRAY(nlines,/STR,VALUE='')
;			.
;			.
;			.
;
; MODIFICATION HISTORY:
;	Written, KAM, August 1994.
;-
;
FUNCTION	CCG_LIF,	file=file
;
;Verify that file is passed
;
IF NOT KEYWORD_SET(file) THEN BEGIN
	CCG_MESSAGE,	'File name must be passed.  Exiting ...'
	CCG_MESSAGE,	"(ex)  nlines=CCG_LIF(file='/projects/co/flask/site/brw.co2')"
	RETURN,0
ENDIF
;
res=file_lines(file)

;SPAWN,	'wc -l < '+file,s
RETURN,	LONG(res)
END