pro fig_bsc_time, hc=hc, ps=ps, eps=eps, fileout=fileout, filein=filein, $
		xoffs=xoffs, yoffs=yoffs, qtest=qtest,			 $
		xsize=xsize, ysize=ysize
;+
; NAME:
;  fig_bsc_time
; PURPOSE:
;  Produce an example fit_bsc_plot plot (BCS fit parameters as a function of time)
; CALLING SEQUENCE:
;  fig_bsc_time, /hc			; Send to printer
;  fig_bsc_time, /ps			; Create a PostScript file
;  fig_bsc_time, /eps			; Create an Encapsulated PostScript file
; OPTIONAL INPUT PARAMETERS:
;  xoffs,yoffs	= X and Y offset (in in)
;  xsize,ysize  = (in) Size of the plot page.
;  filein	= genx file with bsc index to read
;  fileout	= To specify the output PS file name
;  hc,ps,eps	= As shown above
; PROCEDURE:
;  Will read the a .genx file and then call fit_bsc_plot to make the plot.
; MODIFICATION HISTORY:
;  20-jan-94, J. R. Lemen LPARL, written.
;-

if n_elements(filein) eq 0 then filein = 'fig920906'
if n_elements(fileout)  eq 0 then file_out = 'idl.ps'
restgen, file=filein, index		; Read the index

if n_elements(xsize) eq 0 then xsize = 6.25
if n_elements(ysize) eq 0 then ysize = 8.5	; inches

fit_bsc_plot,index,page=0,						$
	xsize=xsize,ysize=ysize,charsize=.9,xoffs=xoffs,yoffs=yoffs,	$
	hc=hc,eps=eps,ps=ps,fileout=fileout,/nodate

if keyword_set(qtest) then stop
end