FUNCTION gfit_chi_2, gf_gthk, gf_gline, print_it
; BIG kludge 12/5/94 dd
@labx_common ; needed for grating model parameters: lx_gthk and lx_gline
@gfit_common

if(n_elements(print_it) EQ 0) then print_it = 0

; Setup the model parameters
save_thk = lx_gthk
save_line = lx_gline

lx_gthk = gf_gthk
lx_gline = gf_gline

lx_gm = 1
effic_8keV = labx_grat_effic([8.0])
chi_2 = 0.93*2.0*effic_8keV/0.10  ; Ratio to 10% - Level I spec

;----
; If printing results start...
if(print_it NE 0) then begin
  print, ' '
  print, ' Thickness, Line = ', lx_gthk, lx_gline, $
			'    Meet Level 1 =',chi_2
  print, ' '
end
;----

; restore previous values
lx_gthk = save_thk
lx_gline = save_line

RETURN, chi_2
END