diff options
| author | Miguel Freitas <miguelfreitas@users.sourceforge.net> | 2002-08-15 03:22:35 +0000 |
|---|---|---|
| committer | Miguel Freitas <miguelfreitas@users.sourceforge.net> | 2002-08-15 03:22:35 +0000 |
| commit | a88c16dbbb736a68fbbc458d358c767dc77458b7 (patch) | |
| tree | 9ad2c17330f1e38b52d4e032b842536d5c46afed /src/libfaad/fftw/f77_func.h | |
| parent | 8ac75e3b4791022f1cfb617afa6a1f6fe3190e0d (diff) | |
| download | xine-lib-a88c16dbbb736a68fbbc458d358c767dc77458b7.tar.gz xine-lib-a88c16dbbb736a68fbbc458d358c767dc77458b7.tar.bz2 | |
not used anymore
CVS patchset: 2458
CVS date: 2002/08/15 03:22:35
Diffstat (limited to 'src/libfaad/fftw/f77_func.h')
| -rw-r--r-- | src/libfaad/fftw/f77_func.h | 61 |
1 files changed, 0 insertions, 61 deletions
diff --git a/src/libfaad/fftw/f77_func.h b/src/libfaad/fftw/f77_func.h deleted file mode 100644 index e6e74132a..000000000 --- a/src/libfaad/fftw/f77_func.h +++ /dev/null @@ -1,61 +0,0 @@ -/* - * Copyright (c) 1997-1999 Massachusetts Institute of Technology - * - * 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 2 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., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA - * - */ - -#ifndef F77_FUNC_H -#define F77_FUNC_H - -#include <fftw-int.h> - -/* Define a macro to mangle function names so that they can be - recognized by the Fortran linker. Specifically, F77_FUNC_ - is designed to mangle identifiers containing an underscore. */ - -#ifdef FFTW_FORTRANIZE_LOWERCASE -# ifdef FFTW_FORTRANIZE_EXTRA_UNDERSCORE -# define F77_FUNC_(x,X) x ## _ -# else -# define F77_FUNC_(x,X) x -# endif -#endif - -#ifdef FFTW_FORTRANIZE_LOWERCASE_UNDERSCORE -# ifdef FFTW_FORTRANIZE_EXTRA_UNDERSCORE -# define F77_FUNC_(x,X) x ## __ -# else -# define F77_FUNC_(x,X) x ## _ -# endif -#endif - -#ifdef FFTW_FORTRANIZE_UPPERCASE -# ifdef FFTW_FORTRANIZE_EXTRA_UNDERSCORE -# define F77_FUNC_(x,X) X ## _ -# else -# define F77_FUNC_(x,X) X -# endif -#endif - -#ifdef FFTW_FORTRANIZE_UPPERCASE_UNDERSCORE -# ifdef FFTW_FORTRANIZE_EXTRA_UNDERSCORE -# define F77_FUNC_(x,X) X ## __ -# else -# define F77_FUNC_(x,X) X ## _ -# endif -#endif - -#endif /* F77_FUNC_H */ |