diff options
Diffstat (limited to 'thirdparty/includes/GSL/gsl/gsl_sf_coupling.h')
| -rw-r--r-- | thirdparty/includes/GSL/gsl/gsl_sf_coupling.h | 125 |
1 files changed, 0 insertions, 125 deletions
diff --git a/thirdparty/includes/GSL/gsl/gsl_sf_coupling.h b/thirdparty/includes/GSL/gsl/gsl_sf_coupling.h deleted file mode 100644 index c46b9f5..0000000 --- a/thirdparty/includes/GSL/gsl/gsl_sf_coupling.h +++ /dev/null @@ -1,125 +0,0 @@ -/* specfunc/gsl_sf_coupling.h - * - * Copyright (C) 1996,1997,1998,1999,2000,2001,2002 Gerard Jungman - * - * This program 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. - * - * This program 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 this program; if not, write to the Free Software - * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. - */ - -/* Author: G. Jungman */ - -#ifndef __GSL_SF_COUPLING_H__ -#define __GSL_SF_COUPLING_H__ - -#include <gsl/gsl_sf_result.h> - -#undef __BEGIN_DECLS -#undef __END_DECLS -#ifdef __cplusplus -# define __BEGIN_DECLS extern "C" { -# define __END_DECLS } -#else -# define __BEGIN_DECLS /* empty */ -# define __END_DECLS /* empty */ -#endif - -__BEGIN_DECLS - - -/* 3j Symbols: / ja jb jc \ - * \ ma mb mc / - * - * exceptions: GSL_EDOM, GSL_EOVRFLW - */ -int gsl_sf_coupling_3j_e(int two_ja, int two_jb, int two_jc, - int two_ma, int two_mb, int two_mc, - gsl_sf_result * result - ); -double gsl_sf_coupling_3j(int two_ja, int two_jb, int two_jc, - int two_ma, int two_mb, int two_mc - ); - - -/* 6j Symbols: / ja jb jc \ - * \ jd je jf / - * - * exceptions: GSL_EDOM, GSL_EOVRFLW - */ -int gsl_sf_coupling_6j_e(int two_ja, int two_jb, int two_jc, - int two_jd, int two_je, int two_jf, - gsl_sf_result * result - ); -double gsl_sf_coupling_6j(int two_ja, int two_jb, int two_jc, - int two_jd, int two_je, int two_jf - ); - -/* Racah W coefficients: - * - * W(a b c d; e f) = (-1)^{a+b+c+d} / a b e \ - * \ d c f / - * - * exceptions: GSL_EDOM, GSL_EOVRFLW - */ -int gsl_sf_coupling_RacahW_e(int two_ja, int two_jb, int two_jc, - int two_jd, int two_je, int two_jf, - gsl_sf_result * result - ); -double gsl_sf_coupling_RacahW(int two_ja, int two_jb, int two_jc, - int two_jd, int two_je, int two_jf - ); - - -/* 9j Symbols: / ja jb jc \ - * | jd je jf | - * \ jg jh ji / - * - * exceptions: GSL_EDOM, GSL_EOVRFLW - */ -int gsl_sf_coupling_9j_e(int two_ja, int two_jb, int two_jc, - int two_jd, int two_je, int two_jf, - int two_jg, int two_jh, int two_ji, - gsl_sf_result * result - ); -double gsl_sf_coupling_9j(int two_ja, int two_jb, int two_jc, - int two_jd, int two_je, int two_jf, - int two_jg, int two_jh, int two_ji - ); - - -/* INCORRECT version of 6j Symbols: - * This function actually calculates - * / ja jb je \ - * \ jd jc jf / - * It represents the original implementation, - * which had the above permutation of the - * arguments. This was wrong and confusing, - * and I had to fix it. Sorry for the trouble. - * [GJ] Tue Nov 26 12:53:39 MST 2002 - * - * exceptions: GSL_EDOM, GSL_EOVRFLW - */ -#ifndef GSL_DISABLE_DEPRECATED -int gsl_sf_coupling_6j_INCORRECT_e(int two_ja, int two_jb, int two_jc, - int two_jd, int two_je, int two_jf, - gsl_sf_result * result - ); -double gsl_sf_coupling_6j_INCORRECT(int two_ja, int two_jb, int two_jc, - int two_jd, int two_je, int two_jf - ); -#endif /* !GSL_DISABLE_DEPRECATED */ - - -__END_DECLS - -#endif /* __GSL_SF_COUPLING_H__ */ |