C     PREDICTOR TESTING OF ABORT
      p = .975
      do 10 i = 3, 12000
C        if (i .eq. 2320) go to 10
C        write (*, *) i
         df = i
         xx = chiin(p, df)
   10 continue
      end