! Pedro A. Bernaola-Galvan, Dept. of Applied Physics II
! University of Malaga, Malaga (SPAIN)
! E-MAIL: rick@ctima.uma.es
!
! Last updated: Mar-13-99
! This module is used to compute the significance
! level using the function gammp (chi-square)
! Last updated: Mar-13-1999

!     Copyright 2003-2008 Pedro Bernaola-Galvan, Pedro Carpena & Jose L. Oliver
!     This program is distributed under the terms of the GNU General Public License (GPL)

!     This file is part of IsoFinder

!     IsoFinder is free software: you can redistribute it and/or modify
!     it under the terms of the GNU General Public License as published by
!     the Free Software Foundation, either version 3 of the License, or
!     (at your option) any later version.

!     IsoFinder is distributed in the hope that it will be useful,
!     but WITHOUT ANY WARRANTY; without even the implied warranty of
!     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
!     GNU General Public License for more details.

!     You should have received a copy of the GNU General Public License
!     along with IsoFinder.  If not, see <http://www.gnu.org/licenses/>.

!***************************************************************************

!     References:

!     J L Oliver, P Carpena, M Hackenberg, P Bernaola-Galván  (2004)  
!     IsoFinder : computational prediction of isochores in genome sequences
!     Nucleic Acids Research  32:  W287-W292   

!     IsoFinder project: http://isofinder.sourceforge.net/
!     IsoFinder web server: http://bioinfo2.ugr.es/IsoF/isofinder.html

!     Contacts:

!     Pedro Bernaola(1), Pedro Carpena(1) & Jose L. Oliver(2)
!     (1) Dpto. de Física Aplicada II, Universidad de Málaga, Spain
!         rick@ctima.uma.es, pcarpena@ctima.uma.es
!     (2) Dpto. de Genética, Universidad de Granada, Spain
!         oliver@ugr.es

!***************************************************************************
module special
implicit none
contains

!You must include here the following functions and subroutines from
!'Numerical Recipes' (http://www.nr.com/):

!function ttest_difvar
!function ttest0(t,df)
!function gammln(xx)
!function betai(a,b,x)
!function betacf(a,b,x)

!License condions of NR (http://www.nr.com/licenses/redistribute.html) hinder us to redistribute this code

!***************************************************************************
end module special
