Main Page | Namespace List | Class Hierarchy | Alphabetical List | Class List | Directories | File List | Namespace Members | Class Members | File Members | Related Pages

f77_func.h

Go to the documentation of this file.
00001 /*
00002  * Copyright (c) 1997-1999 Massachusetts Institute of Technology
00003  *
00004  * This program is free software; you can redistribute it and/or modify
00005  * it under the terms of the GNU General Public License as published by
00006  * the Free Software Foundation; either version 2 of the License, or
00007  * (at your option) any later version.
00008  *
00009  * This program is distributed in the hope that it will be useful,
00010  * but WITHOUT ANY WARRANTY; without even the implied warranty of
00011  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
00012  * GNU General Public License for more details.
00013  *
00014  * You should have received a copy of the GNU General Public License
00015  * along with this program; if not, write to the Free Software
00016  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
00017  *
00018  */
00019 
00020 #ifndef F77_FUNC_H
00021 #define F77_FUNC_H
00022 
00023 #include <fftw-int.h>
00024 
00025 /* Define a macro to mangle function names so that they can be
00026    recognized by the Fortran linker.  Specifically, F77_FUNC_
00027    is designed to mangle identifiers containing an underscore. */
00028 
00029 #ifdef FFTW_FORTRANIZE_LOWERCASE
00030 #  ifdef FFTW_FORTRANIZE_EXTRA_UNDERSCORE
00031 #    define F77_FUNC_(x,X) x ## _
00032 #  else
00033 #    define F77_FUNC_(x,X) x
00034 #  endif
00035 #endif
00036 
00037 #ifdef FFTW_FORTRANIZE_LOWERCASE_UNDERSCORE
00038 #  ifdef FFTW_FORTRANIZE_EXTRA_UNDERSCORE
00039 #    define F77_FUNC_(x,X) x ## __
00040 #  else
00041 #    define F77_FUNC_(x,X) x ## _
00042 #  endif
00043 #endif
00044 
00045 #ifdef FFTW_FORTRANIZE_UPPERCASE
00046 #  ifdef FFTW_FORTRANIZE_EXTRA_UNDERSCORE
00047 #    define F77_FUNC_(x,X) X ## _
00048 #  else
00049 #    define F77_FUNC_(x,X) X
00050 #  endif
00051 #endif
00052 
00053 #ifdef FFTW_FORTRANIZE_UPPERCASE_UNDERSCORE
00054 #  ifdef FFTW_FORTRANIZE_EXTRA_UNDERSCORE
00055 #    define F77_FUNC_(x,X) X ## __
00056 #  else
00057 #    define F77_FUNC_(x,X) X ## _
00058 #  endif
00059 #endif
00060 
00061 #endif /* F77_FUNC_H */

Generated on Wed Dec 15 21:20:28 2004 for vuVolume by  doxygen 1.3.9.1