00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020 #ifndef F77_FUNC_H
00021 #define F77_FUNC_H
00022
00023 #include <fftw-int.h>
00024
00025
00026
00027
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