FUNCTION q_chi_sqrd_nu, nu, chi_sqrd_nu
; Returns the probability q that the reduced chi square
; exceeds a chance agreement
;
; Author:  Robert Kessel
;          Electro-Optics Technology Section
;          Code 8123
;          Naval Research Laboratory
;          Washington, D.C.  20375-5354
; email:   kessel@ncst.nrl.navy.mil
;
; This code was written for Bill Palya's and Don Walter's
; use at JSU.  However, anyone else who finds it useful
; should feel free to use it, rewrite it, or whatever else,
; save charging any money, goods or services from any other
; person for the code or use thereof.
; 8/8/00

q = 1. - IGAMMA(nu/2.,nu*chi_sqrd_nu/2.)
RETURN, q
END