/shark/trunk/ports/fftw/include/conffftw.h |
---|
0,0 → 1,142 |
/* -*- C -*- */ |
/* |
* 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 |
* |
*/ |
/* fftw.h -- system-wide definitions */ |
/* $Id: conffftw.h,v 1.1 2003-03-24 11:14:54 pj Exp $ */ |
/* configuration options (guessed by configure) */ |
/* Define to empty if the keyword does not work. */ |
/* #undef const */ |
/* Define if you have the gettimeofday function. */ |
#undef HAVE_GETTIMEOFDAY |
/* Define if you have the BSDgettimeofday function. */ |
#undef HAVE_BSDGETTIMEOFDAY |
/* Define if you have the <sys/time.h> header file. */ |
#undef HAVE_SYS_TIME_H |
/* Define if you have the <unistd.h> header file. */ |
#undef HAVE_UNISTD_H |
/* Define if you have the <getopt.h> header file. */ |
#undef HAVE_GETOPT_H |
/* Define if you have the <malloc.h> header file */ |
#undef HAVE_MALLOC_H |
/* Define if you have gethrtime() a la Solaris 2 */ |
#undef HAVE_GETHRTIME |
/* Define if you have getopt() */ |
#undef HAVE_GETOPT |
/* Define if you have getopt_long() */ |
#undef HAVE_GETOPT_LONG |
/* Define if you have isnan() */ |
#undef HAVE_ISNAN |
/* Define for enabling the high resolution Pentium timer */ |
#undef FFTW_ENABLE_PENTIUM_TIMER |
#define _HARTIK |
/* |
* When using FFTW_ENABLE_PENTIUM_TIMER, set FFTW_CYCLES_PER_SEC |
* to your real CPU clock speed! |
*/ |
/* This is for 200 MHz */ |
#define FFTW_CYCLES_PER_SEC 133000000L |
/* |
* Define to enable a gcc/x86 specific hack that aligns |
* the stack to an 8-byte boundary |
*/ |
/* #undef FFTW_ENABLE_I386_HACKS */ |
/* Define to enable extra runtime checks for debugging. */ |
/* #undef FFTW_DEBUG */ |
/* |
* Define to enable extra runtime checks for the alignment of variables |
* in the codelets (causes coredump for misaligned double on x86). |
*/ |
/* #undef FFTW_DEBUG_ALIGNMENT */ |
#define FFTW_VERSION "2.1.2" |
/* Use Win32 high-resolution timer */ |
#if defined(__WIN32__) || defined(WIN32) || defined(_WINDOWS) |
#define HAVE_WIN32_TIMER |
#define HAVE_WIN32 |
#endif |
/* Use MacOS Time Manager timer */ |
#if defined(MAC) || defined(macintosh) |
#define HAVE_MAC_TIMER |
#define HAVE_MACOS |
/* Define to use nanosecond timer on PCI PowerMacs: */ |
/* #undef HAVE_MAC_PCI_TIMER */ |
#endif |
/* define if you have alloca.h: */ |
/* #undef HAVE_ALLOCA_H */ |
/* define if you have the alloca function: */ |
/* #undef HAVE_ALLOCA */ |
/************************** threads configuration ************************/ |
/* The following preprocessor symbols select which threads library |
to use when compiling the FFTW threads parallel libraries: */ |
/* #undef FFTW_USING_SOLARIS_THREADS */ |
/* #undef FFTW_USING_POSIX_THREADS */ |
/* #undef FFTW_USING_BEOS_THREADS */ |
/* #undef FFTW_USING_MACH_THREADS */ |
/* #undef HAVE_MACH_CTHREADS_H */ |
/* #undef HAVE_CTHREADS_H */ |
/* #undef HAVE_CTHREAD_H */ |
#ifdef HAVE_WIN32 |
#define FFTW_USING_WIN32_THREADS |
#endif |
#ifdef HAVE_MACOS |
#define FFTW_USING_MACOS_THREADS |
#endif |
/*********************** fortran wrapper configuration *********************/ |
/* These symbols select how to mangle function names so that they will |
be recognized by the linker. If none of them are defined, then |
Fortran wrappers will not be compiled. */ |
/* #undef FFTW_FORTRANIZE_LOWERCASE */ |
/* #undef FFTW_FORTRANIZE_LOWERCASE_UNDERSCORE */ |
/* #undef FFTW_FORTRANIZE_UPPERCASE */ |
/* #undef FFTW_FORTRANIZE_UPPERCASE_UNDERSCORE */ |
/* define the following if names with an underscore get an extra one: */ |
/* #undef FFTW_FORTRANIZE_EXTRA_UNDERSCORE */ |
/shark/trunk/ports/fftw/include/fftw-int.h |
---|
0,0 → 1,489 |
/* |
* 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 |
* |
*/ |
/* fftw.h -- system-wide definitions */ |
/* $Id: fftw-int.h,v 1.1 2003-03-24 11:14:54 pj Exp $ */ |
#ifndef FFTW_INT_H |
#define FFTW_INT_H |
#include <conffftw.h> |
#include <fftw.h> |
#ifdef __cplusplus |
extern "C" { |
#else |
#endif /* __cplusplus */ |
/****************************************************************************/ |
/* Private Functions */ |
/****************************************************************************/ |
extern fftw_twiddle *fftw_create_twiddle(int n, const fftw_codelet_desc *d); |
extern void fftw_destroy_twiddle(fftw_twiddle *tw); |
extern void fftw_strided_copy(int, fftw_complex *, int, fftw_complex *); |
extern void fftw_executor_simple(int, const fftw_complex *, fftw_complex *, |
fftw_plan_node *, int, int); |
extern fftwnd_plan fftwnd_create_plan_aux(int rank, const int *n, |
fftw_direction dir, int flags); |
extern fftw_plan *fftwnd_new_plan_array(int rank); |
extern fftw_plan *fftwnd_create_plans_generic(fftw_plan *plans, |
int rank, const int *n, |
fftw_direction dir, int flags); |
extern fftw_plan *fftwnd_create_plans_specific(fftw_plan *plans, |
int rank, const int *n, |
const int *n_after, |
fftw_direction dir, int flags, |
fftw_complex *in, int istride, |
fftw_complex *out, int ostride); |
extern int fftwnd_work_size(int rank, const int *n, int flags, int ncopies); |
extern void fftwnd_aux(fftwnd_plan p, int cur_dim, |
fftw_complex *in, int istride, |
fftw_complex *out, int ostride, |
fftw_complex *work); |
extern void fftwnd_aux_howmany(fftwnd_plan p, int cur_dim, |
int howmany, |
fftw_complex *in, int istride, int idist, |
fftw_complex *out, int ostride, int odist, |
fftw_complex *work); |
/* wisdom prototypes */ |
enum fftw_wisdom_category { |
FFTW_WISDOM, RFFTW_WISDOM |
}; |
extern int fftw_wisdom_lookup(int n, int flags, fftw_direction dir, |
enum fftw_wisdom_category category, |
int istride, int ostride, |
enum fftw_node_type *type, |
int *signature, int replace_p); |
extern void fftw_wisdom_add(int n, int flags, fftw_direction dir, |
enum fftw_wisdom_category cat, |
int istride, int ostride, |
enum fftw_node_type type, |
int signature); |
/* Private planner functions: */ |
extern double fftw_estimate_node(fftw_plan_node *p); |
extern fftw_plan_node *fftw_make_node_notw(int size, |
const fftw_codelet_desc *config); |
extern fftw_plan_node *fftw_make_node_real2hc(int size, |
const fftw_codelet_desc *config); |
extern fftw_plan_node *fftw_make_node_hc2real(int size, |
const fftw_codelet_desc *config); |
extern fftw_plan_node *fftw_make_node_twiddle(int n, |
const fftw_codelet_desc *config, |
fftw_plan_node *recurse, |
int flags); |
extern fftw_plan_node *fftw_make_node_hc2hc(int n, |
fftw_direction dir, |
const fftw_codelet_desc *config, |
fftw_plan_node *recurse, |
int flags); |
extern fftw_plan_node *fftw_make_node_generic(int n, int size, |
fftw_generic_codelet *codelet, |
fftw_plan_node *recurse, |
int flags); |
extern fftw_plan_node *fftw_make_node_rgeneric(int n, int size, |
fftw_direction dir, |
fftw_rgeneric_codelet * codelet, |
fftw_plan_node *recurse, |
int flags); |
extern int fftw_factor(int n); |
extern fftw_plan_node *fftw_make_node(void); |
extern fftw_plan fftw_make_plan(int n, fftw_direction dir, |
fftw_plan_node *root, int flags, |
enum fftw_node_type wisdom_type, |
int wisdom_signature); |
extern void fftw_use_plan(fftw_plan p); |
extern void fftw_use_node(fftw_plan_node *p); |
extern void fftw_destroy_plan_internal(fftw_plan p); |
extern fftw_plan fftw_pick_better(fftw_plan p1, fftw_plan p2); |
extern fftw_plan fftw_lookup(fftw_plan *table, int n, int flags); |
extern void fftw_insert(fftw_plan *table, fftw_plan this_plan, int n); |
extern void fftw_make_empty_table(fftw_plan *table); |
extern void fftw_destroy_table(fftw_plan *table); |
extern void fftw_complete_twiddle(fftw_plan_node *p, int n); |
extern fftw_plan_node *fftw_make_node_rader(int n, int size, |
fftw_direction dir, |
fftw_plan_node *recurse, |
int flags); |
extern fftw_rader_data *fftw_rader_top; |
/****************************************************************************/ |
/* Floating Point Types */ |
/****************************************************************************/ |
/* |
* We use these definitions to make it easier for people to change |
* FFTW to use long double and similar types. You shouldn't have to |
* change this just to use float or double. |
*/ |
/* |
* Change this if your floating-point constants need to be expressed |
* in a special way. For example, if fftw_real is long double, you |
* will need to append L to your fp constants to make them of the |
* same precision. Do this by changing "x" below to "x##L". |
*/ |
#define FFTW_KONST(x) ((fftw_real) x) |
#define FFTW_TRIG_SIN sin |
#define FFTW_TRIG_COS cos |
typedef double FFTW_TRIG_REAL; /* the argument type for sin and cos */ |
#define FFTW_K2PI FFTW_KONST(6.2831853071795864769252867665590057683943388) |
/****************************************************************************/ |
/* gcc/x86 hacks */ |
/****************************************************************************/ |
/* |
* gcc 2.[78].x and x86 specific hacks. These macros align the stack |
* pointer so that the double precision temporary variables in the |
* codelets will be aligned to a multiple of 8 bytes (*way* faster on |
* pentium and pentiumpro) |
*/ |
#ifdef __GNUC__ |
#ifdef __i386__ |
#ifdef FFTW_ENABLE_I386_HACKS |
#ifndef FFTW_ENABLE_FLOAT |
#define FFTW_USING_I386_HACKS |
#define HACK_ALIGN_STACK_EVEN() { \ |
if ((((long) (__builtin_alloca(0))) & 0x7)) __builtin_alloca(4); \ |
} |
#define HACK_ALIGN_STACK_ODD() { \ |
if (!(((long) (__builtin_alloca(0))) & 0x7)) __builtin_alloca(4); \ |
} |
#ifdef FFTW_DEBUG_ALIGNMENT |
#define ASSERT_ALIGNED_DOUBLE() { \ |
double __foo; \ |
if ((((long) &__foo) & 0x7)) abort(); \ |
} |
#endif |
#endif |
#endif |
#endif |
#endif |
#ifndef HACK_ALIGN_STACK_EVEN |
#define HACK_ALIGN_STACK_EVEN() |
#endif |
#ifndef HACK_ALIGN_STACK_ODD |
#define HACK_ALIGN_STACK_ODD() |
#endif |
#ifndef ASSERT_ALIGNED_DOUBLE |
#define ASSERT_ALIGNED_DOUBLE() |
#endif |
/****************************************************************************/ |
/* Timers */ |
/****************************************************************************/ |
/* |
* Here, you can use all the nice timers available in your machine. |
*/ |
/* |
* |
Things you should define to include your own clock: |
fftw_time -- the data type used to store a time |
extern fftw_time fftw_get_time(void); |
-- a function returning the current time. (We have |
implemented this as a macro in most cases.) |
extern fftw_time fftw_time_diff(fftw_time t1, fftw_time t2); |
-- returns the time difference (t1 - t2). |
If t1 < t2, it may simply return zero (although this |
is not required). (We have implemented this as a macro |
in most cases.) |
extern double fftw_time_to_sec(fftw_time t); |
-- returns the time t expressed in seconds, as a double. |
(Implemented as a macro in most cases.) |
FFTW_TIME_MIN -- a double-precision macro holding the minimum |
time interval (in seconds) for accurate time measurements. |
This should probably be at least 100 times the precision of |
your clock (we use even longer intervals, to be conservative). |
This will determine how long the planner takes to measure |
the speeds of different possible plans. |
Bracket all of your definitions with an appropriate #ifdef so that |
they will be enabled on your machine. If you do add your own |
high-precision timer code, let us know (at fftw@theory.lcs.mit.edu). |
Only declarations should go in this file. Any function definitions |
that you need should go into timer.c. |
*/ |
/* |
* define a symbol so that we know that we have the fftw_time_diff |
* function/macro (it did not exist prior to FFTW 1.2) |
*/ |
#define FFTW_HAS_TIME_DIFF |
/********************************************** |
* SOLARIS |
**********************************************/ |
#if defined(HAVE_GETHRTIME) |
/* we use the nanosecond virtual timer */ |
#ifdef HAVE_SYS_TIME_H |
#include <sys/time.h> |
#endif |
typedef hrtime_t fftw_time; |
#define fftw_get_time() gethrtime() |
#define fftw_time_diff(t1,t2) ((t1) - (t2)) |
#define fftw_time_to_sec(t) ((double) t / 1.0e9) |
/* |
* a measurement is valid if it runs for at least |
* FFTW_TIME_MIN seconds. |
*/ |
#define FFTW_TIME_MIN (1.0e-4) /* for Solaris nanosecond timer */ |
#define FFTW_TIME_REPEAT 8 |
/********************************************** |
* Pentium time stamp counter |
**********************************************/ |
#elif defined(__GNUC__) && defined(__i386__) && defined(FFTW_ENABLE_PENTIUM_TIMER) |
/* |
* Use internal Pentium register (time stamp counter). Resolution |
* is 1/FFTW_CYCLES_PER_SEC seconds (e.g. 5 ns for Pentium 200 MHz). |
* (This code was contributed by Wolfgang Reimer) |
*/ |
#ifndef FFTW_CYCLES_PER_SEC |
#error "Must define FFTW_CYCLES_PER_SEC in fftw/config.h to use the Pentium cycle counter" |
#endif |
typedef unsigned long long fftw_time; |
static __inline__ fftw_time read_tsc() |
{ |
struct { |
long unsigned lo, hi; |
} counter; |
long unsigned sav_eax, sav_edx; |
__asm__("movl %%eax,%0":"=m"(sav_eax)); |
__asm__("movl %%edx,%0":"=m"(sav_edx)); |
__asm__("rdtsc"); |
__asm__("movl %%eax,%0":"=m"(counter.lo)); |
__asm__("movl %%edx,%0":"=m"(counter.hi)); |
__asm__("movl %0,%%eax": : "m"(sav_eax):"eax"); |
__asm__("movl %0,%%edx": : "m"(sav_edx):"edx"); |
return *(fftw_time *) & counter; |
} |
#define fftw_get_time() read_tsc() |
#define fftw_time_diff(t1,t2) ((t1) - (t2)) |
#define fftw_time_to_sec(t) (((double) (t)) / FFTW_CYCLES_PER_SEC) |
#define FFTW_TIME_MIN (1.0e-4) /* for Pentium TSC register */ |
/************* generic systems having gettimeofday ************/ |
#elif defined(HAVE_GETTIMEOFDAY) || defined(HAVE_BSDGETTIMEOFDAY) |
#ifdef HAVE_SYS_TIME_H |
#include <sys/time.h> |
#endif |
#ifdef HAVE_UNISTD_H |
#include <unistd.h> |
#endif |
#define FFTW_USE_GETTIMEOFDAY |
typedef struct timeval fftw_time; |
extern fftw_time fftw_gettimeofday_get_time(void); |
extern fftw_time fftw_gettimeofday_time_diff(fftw_time t1, fftw_time t2); |
#define fftw_get_time() fftw_gettimeofday_get_time() |
#define fftw_time_diff(t1, t2) fftw_gettimeofday_time_diff(t1, t2) |
#define fftw_time_to_sec(t) ((double)(t).tv_sec + (double)(t).tv_usec * 1.0E-6) |
#ifndef FFTW_TIME_MIN |
/* this should be fine on any system claiming a microsecond timer */ |
#define FFTW_TIME_MIN (1.0e-2) |
#endif |
/********************************************** |
* MACINTOSH |
**********************************************/ |
#elif defined(HAVE_MAC_TIMER) |
/* |
* By default, use the microsecond-timer in the Mac Time Manager. |
* Alternatively, by changing the following #if 1 to #if 0, you |
* can use the nanosecond timer available *only* on PCI PowerMacs. |
*/ |
#ifndef HAVE_MAC_PCI_TIMER /* use time manager */ |
/* |
* Use Macintosh Time Manager routines (maximum resolution is about 20 |
* microseconds). |
*/ |
typedef struct fftw_time_struct { |
unsigned long hi, lo; |
} fftw_time; |
extern fftw_time get_Mac_microseconds(void); |
#define fftw_get_time() get_Mac_microseconds() |
/* define as a function instead of a macro: */ |
extern fftw_time fftw_time_diff(fftw_time t1, fftw_time t2); |
#define fftw_time_to_sec(t) ((t).lo * 1.0e-6 + 4294967295.0e-6 * (t).hi) |
/* very conservative, since timer should be accurate to 20e-6: */ |
/* (although this seems not to be the case in practice) */ |
#define FFTW_TIME_MIN (5.0e-2) /* for MacOS Time Manager timer */ |
#else /* use nanosecond timer */ |
/* Use the nanosecond timer available on PCI PowerMacs. */ |
#include <DriverServices.h> |
typedef AbsoluteTime fftw_time; |
#define fftw_get_time() UpTime() |
#define fftw_time_diff(t1,t2) SubAbsoluteFromAbsolute(t1,t2) |
#define fftw_time_to_sec(t) (AbsoluteToNanoseconds(t).lo * 1.0e-9) |
/* Extremely conservative minimum time: */ |
/* for MacOS PCI PowerMac nanosecond timer */ |
#define FFTW_TIME_MIN (5.0e-3) |
#endif /* use nanosecond timer */ |
/********************************************** |
* WINDOWS |
**********************************************/ |
#elif defined(HAVE_WIN32_TIMER) |
#include <time.h> |
typedef unsigned long fftw_time; |
extern unsigned long GetPerfTime(void); |
extern double GetPerfSec(double ticks); |
#define fftw_get_time() GetPerfTime() |
#define fftw_time_diff(t1,t2) ((t1) - (t2)) |
#define fftw_time_to_sec(t) GetPerfSec(t) |
#define FFTW_TIME_MIN (5.0e-2) /* for Win32 timer */ |
/********************************************** |
* CRAY |
**********************************************/ |
#elif defined(_CRAYMPP) /* Cray MPP system */ |
double SECONDR(void); /* |
* I think you have to link with -lsci to |
* get this |
*/ |
typedef double fftw_time; |
#define fftw_get_time() SECONDR() |
#define fftw_time_diff(t1,t2) ((t1) - (t2)) |
#define fftw_time_to_sec(t) (t) |
#define FFTW_TIME_MIN (1.0e-1) /* for Cray MPP SECONDR timer */ |
/********************************************** |
* HARTIK |
**********************************************/ |
#elif defined(_HARTIK) /* Hartik RT system */ |
#include <kernel/kern.h> |
typedef TIME fftw_time; |
#define fftw_get_time() sys_gettime(NULL) |
#define fftw_time_diff(t1,t2) ((t1) - (t2)) |
#define fftw_time_to_sec(t) ((double) t / 1.0e6) |
/* |
* a measurement is valid if it runs for at least |
* FFTW_TIME_MIN seconds. |
*/ |
#define FFTW_TIME_MIN (1.0e-6) |
#define FFTW_TIME_REPEAT 8 |
/********************************************** |
* VANILLA UNIX/ISO C SYSTEMS |
**********************************************/ |
/* last resort: use good old Unix clock() */ |
#else |
#include <time.h> |
typedef clock_t fftw_time; |
#ifndef CLOCKS_PER_SEC |
#ifdef sun |
/* stupid sunos4 prototypes */ |
#define CLOCKS_PER_SEC 1000000 |
extern long clock(void); |
#else /* not sun, we don't know CLOCKS_PER_SEC */ |
#error Please define CLOCKS_PER_SEC |
#endif |
#endif |
#define fftw_get_time() clock() |
#define fftw_time_diff(t1,t2) ((t1) - (t2)) |
#define fftw_time_to_sec(t) (((double) (t)) / CLOCKS_PER_SEC) |
/* |
* ***VERY*** conservative constant: this says that a |
* measurement must run for 200ms in order to be valid. |
* You had better check the manual of your machine |
* to discover if it can do better than this |
*/ |
#define FFTW_TIME_MIN (2.0e-1) /* for default clock() timer */ |
#endif /* UNIX clock() */ |
/* take FFTW_TIME_REPEAT measurements... */ |
#ifndef FFTW_TIME_REPEAT |
#define FFTW_TIME_REPEAT 4 |
#endif |
/* but do not run for more than TIME_LIMIT seconds while measuring one FFT */ |
#ifndef FFTW_TIME_LIMIT |
#define FFTW_TIME_LIMIT 2.0 |
#endif |
#ifdef __cplusplus |
} /* extern "C" */ |
#endif /* __cplusplus */ |
#endif /* FFTW_INT_H */ |
/shark/trunk/ports/fftw/include/f77_func.h |
---|
0,0 → 1,61 |
/* |
* 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 <ports/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 */ |
/shark/trunk/ports/fftw/include/fftw.h |
---|
0,0 → 1,413 |
/* -*- C -*- */ |
/* |
* 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 |
* |
*/ |
/* fftw.h -- system-wide definitions */ |
/* $Id: fftw.h,v 1.1 2003-03-24 11:14:55 pj Exp $ */ |
#ifndef FFTW_H |
#define FFTW_H |
#include <stdlib.h> |
//#include <stdio.h> |
//#include "halsa.h" |
#ifdef __cplusplus |
extern "C" { |
#endif /* __cplusplus */ |
/* Define for using single precision */ |
/* |
* If you can, use configure --enable-float instead of changing this |
* flag directly |
*/ |
/* #undef FFTW_ENABLE_FLOAT */ |
/* our real numbers */ |
#ifdef FFTW_ENABLE_FLOAT |
typedef float fftw_real; |
#else |
typedef double fftw_real; |
#endif |
/********************************************* |
* Complex numbers and operations |
*********************************************/ |
typedef struct { |
fftw_real re, im; |
} fftw_complex; |
#define c_re(c) ((c).re) |
#define c_im(c) ((c).im) |
typedef enum { |
FFTW_FORWARD = -1, FFTW_BACKWARD = 1 |
} fftw_direction; |
/* backward compatibility with FFTW-1.3 */ |
typedef fftw_complex FFTW_COMPLEX; |
typedef fftw_real FFTW_REAL; |
#ifndef FFTW_1_0_COMPATIBILITY |
#define FFTW_1_0_COMPATIBILITY 0 |
#endif |
#if FFTW_1_0_COMPATIBILITY |
/* backward compatibility with FFTW-1.0 */ |
#define REAL fftw_real |
#define COMPLEX fftw_complex |
#endif |
/********************************************* |
* Success or failure status |
*********************************************/ |
typedef enum { |
FFTW_SUCCESS = 0, FFTW_FAILURE = -1 |
} fftw_status; |
/********************************************* |
* Codelets |
*********************************************/ |
typedef void (fftw_notw_codelet) |
(const fftw_complex *, fftw_complex *, int, int); |
typedef void (fftw_twiddle_codelet) |
(fftw_complex *, const fftw_complex *, int, |
int, int); |
typedef void (fftw_generic_codelet) |
(fftw_complex *, const fftw_complex *, int, |
int, int, int); |
typedef void (fftw_real2hc_codelet) |
(const fftw_real *, fftw_real *, fftw_real *, |
int, int, int); |
typedef void (fftw_hc2real_codelet) |
(const fftw_real *, const fftw_real *, |
fftw_real *, int, int, int); |
typedef void (fftw_hc2hc_codelet) |
(fftw_real *, const fftw_complex *, |
int, int, int); |
typedef void (fftw_rgeneric_codelet) |
(fftw_real *, const fftw_complex *, int, |
int, int, int); |
/********************************************* |
* Configurations |
*********************************************/ |
/* |
* A configuration is a database of all known codelets |
*/ |
enum fftw_node_type { |
FFTW_NOTW, FFTW_TWIDDLE, FFTW_GENERIC, FFTW_RADER, |
FFTW_REAL2HC, FFTW_HC2REAL, FFTW_HC2HC, FFTW_RGENERIC |
}; |
/* description of a codelet */ |
typedef struct { |
const char *name; /* name of the codelet */ |
void (*codelet) (); /* pointer to the codelet itself */ |
int size; /* size of the codelet */ |
fftw_direction dir; /* direction */ |
enum fftw_node_type type; /* TWIDDLE or NO_TWIDDLE */ |
int signature; /* unique id */ |
int ntwiddle; /* number of twiddle factors */ |
const int *twiddle_order; /* |
* array that determines the order |
* in which the codelet expects |
* the twiddle factors |
*/ |
} fftw_codelet_desc; |
/* On Win32, you need to do funny things to access global variables |
in shared libraries. Thanks to Andrew Sterian for this hack. */ |
#if defined(__WIN32__) || defined(WIN32) || defined(_WINDOWS) |
# if defined(BUILD_FFTW_DLL) |
# define DL_IMPORT(type) __declspec(dllexport) type |
# elif defined(USE_FFTW_DLL) |
# define DL_IMPORT(type) __declspec(dllimport) type |
# else |
# define DL_IMPORT(type) type |
# endif |
#else |
# define DL_IMPORT(type) type |
#endif |
extern DL_IMPORT(const char *) fftw_version; |
/***************************** |
* Plans |
*****************************/ |
/* |
* A plan is a sequence of reductions to compute a FFT of |
* a given size. At each step, the FFT algorithm can: |
* |
* 1) apply a notw codelet, or |
* 2) recurse and apply a twiddle codelet, or |
* 3) apply the generic codelet. |
*/ |
/* structure that contains twiddle factors */ |
typedef struct fftw_twiddle_struct { |
int n; |
const fftw_codelet_desc *cdesc; |
fftw_complex *twarray; |
struct fftw_twiddle_struct *next; |
int refcnt; |
} fftw_twiddle; |
typedef struct fftw_rader_data_struct { |
struct fftw_plan_struct *plan; |
fftw_complex *omega; |
int g, ginv; |
int p, flags, refcount; |
struct fftw_rader_data_struct *next; |
fftw_codelet_desc *cdesc; |
} fftw_rader_data; |
typedef void (fftw_rader_codelet) |
(fftw_complex *, const fftw_complex *, int, |
int, int, fftw_rader_data *); |
/* structure that holds all the data needed for a given step */ |
typedef struct fftw_plan_node_struct { |
enum fftw_node_type type; |
union { |
/* nodes of type FFTW_NOTW */ |
struct { |
int size; |
fftw_notw_codelet *codelet; |
const fftw_codelet_desc *codelet_desc; |
} notw; |
/* nodes of type FFTW_TWIDDLE */ |
struct { |
int size; |
fftw_twiddle_codelet *codelet; |
fftw_twiddle *tw; |
struct fftw_plan_node_struct *recurse; |
const fftw_codelet_desc *codelet_desc; |
} twiddle; |
/* nodes of type FFTW_GENERIC */ |
struct { |
int size; |
fftw_generic_codelet *codelet; |
fftw_twiddle *tw; |
struct fftw_plan_node_struct *recurse; |
} generic; |
/* nodes of type FFTW_RADER */ |
struct { |
int size; |
fftw_rader_codelet *codelet; |
fftw_rader_data *rader_data; |
fftw_twiddle *tw; |
struct fftw_plan_node_struct *recurse; |
} rader; |
/* nodes of type FFTW_REAL2HC */ |
struct { |
int size; |
fftw_real2hc_codelet *codelet; |
const fftw_codelet_desc *codelet_desc; |
} real2hc; |
/* nodes of type FFTW_HC2REAL */ |
struct { |
int size; |
fftw_hc2real_codelet *codelet; |
const fftw_codelet_desc *codelet_desc; |
} hc2real; |
/* nodes of type FFTW_HC2HC */ |
struct { |
int size; |
fftw_direction dir; |
fftw_hc2hc_codelet *codelet; |
fftw_twiddle *tw; |
struct fftw_plan_node_struct *recurse; |
const fftw_codelet_desc *codelet_desc; |
} hc2hc; |
/* nodes of type FFTW_RGENERIC */ |
struct { |
int size; |
fftw_direction dir; |
fftw_rgeneric_codelet *codelet; |
fftw_twiddle *tw; |
struct fftw_plan_node_struct *recurse; |
} rgeneric; |
} nodeu; |
int refcnt; |
} fftw_plan_node; |
struct fftw_plan_struct { |
int n; |
int refcnt; |
fftw_direction dir; |
int flags; |
int wisdom_signature; |
enum fftw_node_type wisdom_type; |
struct fftw_plan_struct *next; |
fftw_plan_node *root; |
double cost; |
}; |
/* a plan is just an array of instructions */ |
typedef struct fftw_plan_struct *fftw_plan; |
/* flags for the planner */ |
#define FFTW_ESTIMATE (0) |
#define FFTW_MEASURE (1) |
#define FFTW_OUT_OF_PLACE (0) |
#define FFTW_IN_PLACE (8) |
#define FFTW_USE_WISDOM (16) |
#define FFTW_THREADSAFE (128) /* guarantee plan is read-only so that the |
same plan can be used in parallel by |
multiple threads */ |
#define FFTWND_FORCE_BUFFERED (256) /* internal, undocumented flag */ |
extern fftw_plan fftw_create_plan_specific(int n, fftw_direction dir, |
int flags, |
fftw_complex *in, int istride, |
fftw_complex *out, int ostride); |
#define FFTW_HAS_PLAN_SPECIFIC |
extern fftw_plan fftw_create_plan(int n, fftw_direction dir, int flags); |
extern void fftw_print_plan(fftw_plan plan); |
extern void fftw_destroy_plan(fftw_plan plan); |
extern void fftw(fftw_plan plan, int howmany, fftw_complex *in, int istride, |
int idist, fftw_complex *out, int ostride, int odist); |
extern void fftw_one(fftw_plan plan, fftw_complex *in, fftw_complex *out); |
extern void fftw_die(const char *s); |
extern void *fftw_malloc(size_t n); |
extern void fftw_free(void *p); |
extern void fftw_check_memory_leaks(void); |
extern void fftw_print_max_memory_usage(void); |
typedef void *(*fftw_malloc_type_function) (size_t n); |
typedef void (*fftw_free_type_function) (void *p); |
typedef void (*fftw_die_type_function) (const char *errString); |
extern DL_IMPORT(fftw_malloc_type_function) fftw_malloc_hook; |
extern DL_IMPORT(fftw_free_type_function) fftw_free_hook; |
extern DL_IMPORT(fftw_die_type_function) fftw_die_hook; |
extern size_t fftw_sizeof_fftw_real(void); |
/* Wisdom: */ |
/* |
* define this symbol so that users know we are using a version of FFTW |
* with wisdom |
*/ |
//#define FFTW_HAS_WISDOM |
extern void fftw_forget_wisdom(void); |
extern void fftw_export_wisdom(void (*emitter) (char c, void *), void *data); |
extern fftw_status fftw_import_wisdom(int (*g) (void *), void *data); |
//extern void fftw_export_wisdom_to_file(FILE *output_file); |
//extern fftw_status fftw_import_wisdom_from_file(FILE *input_file); |
extern char *fftw_export_wisdom_to_string(void); |
extern fftw_status fftw_import_wisdom_from_string(const char *input_string); |
/* |
* define symbol so we know this function is available (it is not in |
* older FFTWs) |
*/ |
//#define FFTW_HAS_FPRINT_PLAN |
//extern void fftw_fprint_plan(FILE *f, fftw_plan plan); |
/***************************** |
* N-dimensional code |
*****************************/ |
typedef struct { |
int is_in_place; /* 1 if for in-place FFTs, 0 otherwise */ |
int rank; /* |
* the rank (number of dimensions) of the |
* array to be FFTed |
*/ |
int *n; /* |
* the dimensions of the array to the |
* FFTed |
*/ |
fftw_direction dir; |
int *n_before; /* |
* n_before[i] = product of n[j] for j < i |
*/ |
int *n_after; /* n_after[i] = product of n[j] for j > i */ |
fftw_plan *plans; /* 1d fftw plans for each dimension */ |
int nbuffers, nwork; |
fftw_complex *work; /* |
* work array big enough to hold |
* nbuffers+1 of the largest dimension |
* (has nwork elements) |
*/ |
} fftwnd_data; |
typedef fftwnd_data *fftwnd_plan; |
/* Initializing the FFTWND plan: */ |
extern fftwnd_plan fftw2d_create_plan(int nx, int ny, fftw_direction dir, |
int flags); |
extern fftwnd_plan fftw3d_create_plan(int nx, int ny, int nz, |
fftw_direction dir, int flags); |
extern fftwnd_plan fftwnd_create_plan(int rank, const int *n, |
fftw_direction dir, |
int flags); |
extern fftwnd_plan fftw2d_create_plan_specific(int nx, int ny, |
fftw_direction dir, |
int flags, |
fftw_complex *in, int istride, |
fftw_complex *out, int ostride); |
extern fftwnd_plan fftw3d_create_plan_specific(int nx, int ny, int nz, |
fftw_direction dir, int flags, |
fftw_complex *in, int istride, |
fftw_complex *out, int ostride); |
extern fftwnd_plan fftwnd_create_plan_specific(int rank, const int *n, |
fftw_direction dir, |
int flags, |
fftw_complex *in, int istride, |
fftw_complex *out, int ostride); |
/* Freeing the FFTWND plan: */ |
extern void fftwnd_destroy_plan(fftwnd_plan plan); |
/* Printing the plan: */ |
//extern void fftwnd_fprint_plan(FILE *f, fftwnd_plan p); |
extern void fftwnd_print_plan(fftwnd_plan p); |
#define FFTWND_HAS_PRINT_PLAN |
/* Computing the N-Dimensional FFT */ |
extern void fftwnd(fftwnd_plan plan, int howmany, |
fftw_complex *in, int istride, int idist, |
fftw_complex *out, int ostride, int odist); |
extern void fftwnd_one(fftwnd_plan p, fftw_complex *in, fftw_complex *out); |
#ifdef __cplusplus |
} /* extern "C" */ |
#endif /* __cplusplus */ |
#endif /* FFTW_H */ |
/shark/trunk/ports/fftw/include/rfftw.h |
---|
0,0 → 1,98 |
/* |
* 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 |
* |
*/ |
/* rfftw.h -- system-wide definitions for rfftw */ |
#ifndef RFFTW_H |
#define RFFTW_H |
#include <fftw.h> |
#ifdef __cplusplus |
extern "C" { |
#endif /* __cplusplus */ |
/****************************************************************************/ |
#define RFFTW_V2 |
typedef fftw_plan rfftw_plan; |
typedef fftwnd_plan rfftwnd_plan; |
#define FFTW_REAL_TO_COMPLEX FFTW_FORWARD |
#define FFTW_COMPLEX_TO_REAL FFTW_BACKWARD |
extern void rfftw(rfftw_plan plan, int howmany, fftw_real *in, int istride, |
int idist, fftw_real *out, int ostride, int odist); |
extern void rfftw_one(rfftw_plan plan, fftw_real *in, fftw_real *out); |
extern rfftw_plan rfftw_create_plan_specific(int n, fftw_direction dir, |
int flags, |
fftw_real *in, int istride, |
fftw_real *out, int ostride); |
extern rfftw_plan rfftw_create_plan(int n, fftw_direction dir, int flags); |
extern void rfftw_destroy_plan(rfftw_plan plan); |
//extern void rfftw_fprint_plan(FILE *f, rfftw_plan p); |
//extern void rfftw_print_plan(rfftw_plan p); |
extern void rfftw_executor_simple(int n, fftw_real *in, |
fftw_real *out, |
fftw_plan_node *p, |
int istride, |
int ostride); |
extern rfftwnd_plan rfftwnd_create_plan_specific(int rank, const int *n, |
fftw_direction dir, int flags, |
fftw_real *in, int istride, |
fftw_real *out, int ostride); |
extern rfftwnd_plan rfftw2d_create_plan_specific(int nx, int ny, |
fftw_direction dir, int flags, |
fftw_real *in, int istride, |
fftw_real *out, int ostride); |
extern rfftwnd_plan rfftw3d_create_plan_specific(int nx, int ny, int nz, |
fftw_direction dir, int flags, |
fftw_real *in, int istride, |
fftw_real *out, int ostride); |
extern rfftwnd_plan rfftwnd_create_plan(int rank, const int *n, |
fftw_direction dir, int flags); |
extern rfftwnd_plan rfftw2d_create_plan(int nx, int ny, |
fftw_direction dir, int flags); |
extern rfftwnd_plan rfftw3d_create_plan(int nx, int ny, int nz, |
fftw_direction dir, int flags); |
extern void rfftwnd_destroy_plan(rfftwnd_plan plan); |
//extern void rfftwnd_fprint_plan(FILE *f, rfftwnd_plan plan); |
extern void rfftwnd_print_plan(rfftwnd_plan plan); |
extern void rfftwnd_real_to_complex(rfftwnd_plan p, int howmany, |
fftw_real *in, int istride, int idist, |
fftw_complex *out, int ostride, int odist); |
extern void rfftwnd_complex_to_real(rfftwnd_plan p, int howmany, |
fftw_complex *in, int istride, int idist, |
fftw_real *out, int ostride, int odist); |
extern void rfftwnd_one_real_to_complex(rfftwnd_plan p, |
fftw_real *in, fftw_complex *out); |
extern void rfftwnd_one_complex_to_real(rfftwnd_plan p, |
fftw_complex *in, fftw_real *out); |
/****************************************************************************/ |
#ifdef __cplusplus |
} /* extern "C" */ |
#endif /* __cplusplus */ |
#endif /* RFFTW_H */ |
/shark/trunk/ports/fftw/rfftw/rgeneric.c |
---|
22,8 → 22,8 |
* rgeneric.c -- "generic" rfftw codelets. They work for all n (and |
* they are slow) |
*/ |
#include <ports/fftw-int.h> |
#include <ports/rfftw.h> |
#include <fftw-int.h> |
#include <rfftw.h> |
/* this code assumes that r and m are both odd */ |
void fftw_hc2hc_forward_generic(fftw_real *A, const fftw_complex *W, |
/shark/trunk/ports/fftw/rfftw/frc_6.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:54:33 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -real2hc 6 */ |
35,9 → 35,9 |
/* |
* Generator Id's : |
* $Id: frc_6.c,v 1.1.1.1 2002-03-29 14:12:59 pj Exp $ |
* $Id: frc_6.c,v 1.1.1.1 2002-03-29 14:12:59 pj Exp $ |
* $Id: frc_6.c,v 1.1.1.1 2002-03-29 14:12:59 pj Exp $ |
* $Id: frc_6.c,v 1.2 2003-03-24 11:14:59 pj Exp $ |
* $Id: frc_6.c,v 1.2 2003-03-24 11:14:59 pj Exp $ |
* $Id: frc_6.c,v 1.2 2003-03-24 11:14:59 pj Exp $ |
*/ |
void fftw_real2hc_6(const fftw_real *input, fftw_real *real_output, fftw_real *imag_output, int istride, int real_ostride, int imag_ostride) |
/shark/trunk/ports/fftw/rfftw/frc_8.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:54:34 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -real2hc 8 */ |
34,9 → 34,9 |
/* |
* Generator Id's : |
* $Id: frc_8.c,v 1.1.1.1 2002-03-29 14:12:59 pj Exp $ |
* $Id: frc_8.c,v 1.1.1.1 2002-03-29 14:12:59 pj Exp $ |
* $Id: frc_8.c,v 1.1.1.1 2002-03-29 14:12:59 pj Exp $ |
* $Id: frc_8.c,v 1.2 2003-03-24 11:14:59 pj Exp $ |
* $Id: frc_8.c,v 1.2 2003-03-24 11:14:59 pj Exp $ |
* $Id: frc_8.c,v 1.2 2003-03-24 11:14:59 pj Exp $ |
*/ |
void fftw_real2hc_8(const fftw_real *input, fftw_real *real_output, fftw_real *imag_output, int istride, int real_ostride, int imag_ostride) |
/shark/trunk/ports/fftw/rfftw/frc_11.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:54:36 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -real2hc 11 */ |
43,9 → 43,9 |
/* |
* Generator Id's : |
* $Id: frc_11.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: frc_11.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: frc_11.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: frc_11.c,v 1.2 2003-03-24 11:14:58 pj Exp $ |
* $Id: frc_11.c,v 1.2 2003-03-24 11:14:58 pj Exp $ |
* $Id: frc_11.c,v 1.2 2003-03-24 11:14:58 pj Exp $ |
*/ |
void fftw_real2hc_11(const fftw_real *input, fftw_real *real_output, fftw_real *imag_output, int istride, int real_ostride, int imag_ostride) |
/shark/trunk/ports/fftw/rfftw/frc_13.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:54:36 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -real2hc 13 */ |
53,9 → 53,9 |
/* |
* Generator Id's : |
* $Id: frc_13.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: frc_13.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: frc_13.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: frc_13.c,v 1.2 2003-03-24 11:14:58 pj Exp $ |
* $Id: frc_13.c,v 1.2 2003-03-24 11:14:58 pj Exp $ |
* $Id: frc_13.c,v 1.2 2003-03-24 11:14:58 pj Exp $ |
*/ |
void fftw_real2hc_13(const fftw_real *input, fftw_real *real_output, fftw_real *imag_output, int istride, int real_ostride, int imag_ostride) |
/shark/trunk/ports/fftw/rfftw/frc_32.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:54:39 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -real2hc 32 */ |
40,9 → 40,9 |
/* |
* Generator Id's : |
* $Id: frc_32.c,v 1.1.1.1 2002-03-29 14:12:59 pj Exp $ |
* $Id: frc_32.c,v 1.1.1.1 2002-03-29 14:12:59 pj Exp $ |
* $Id: frc_32.c,v 1.1.1.1 2002-03-29 14:12:59 pj Exp $ |
* $Id: frc_32.c,v 1.2 2003-03-24 11:14:59 pj Exp $ |
* $Id: frc_32.c,v 1.2 2003-03-24 11:14:59 pj Exp $ |
* $Id: frc_32.c,v 1.2 2003-03-24 11:14:59 pj Exp $ |
*/ |
void fftw_real2hc_32(const fftw_real *input, fftw_real *real_output, fftw_real *imag_output, int istride, int real_ostride, int imag_ostride) |
/shark/trunk/ports/fftw/rfftw/frc_15.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:54:39 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -real2hc 15 */ |
43,9 → 43,9 |
/* |
* Generator Id's : |
* $Id: frc_15.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: frc_15.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: frc_15.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: frc_15.c,v 1.2 2003-03-24 11:14:59 pj Exp $ |
* $Id: frc_15.c,v 1.2 2003-03-24 11:14:59 pj Exp $ |
* $Id: frc_15.c,v 1.2 2003-03-24 11:14:59 pj Exp $ |
*/ |
void fftw_real2hc_15(const fftw_real *input, fftw_real *real_output, fftw_real *imag_output, int istride, int real_ostride, int imag_ostride) |
/shark/trunk/ports/fftw/rfftw/fcr_2.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:55:04 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2real 2 */ |
33,9 → 33,9 |
/* |
* Generator Id's : |
* $Id: fcr_2.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fcr_2.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fcr_2.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fcr_2.c,v 1.2 2003-03-24 11:14:55 pj Exp $ |
* $Id: fcr_2.c,v 1.2 2003-03-24 11:14:55 pj Exp $ |
* $Id: fcr_2.c,v 1.2 2003-03-24 11:14:55 pj Exp $ |
*/ |
void fftw_hc2real_2(const fftw_real *real_input, const fftw_real *imag_input, fftw_real *output, int real_istride, int imag_istride, int ostride) |
/shark/trunk/ports/fftw/rfftw/fcr_4.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:55:05 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2real 4 */ |
34,9 → 34,9 |
/* |
* Generator Id's : |
* $Id: fcr_4.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fcr_4.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fcr_4.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fcr_4.c,v 1.2 2003-03-24 11:14:55 pj Exp $ |
* $Id: fcr_4.c,v 1.2 2003-03-24 11:14:55 pj Exp $ |
* $Id: fcr_4.c,v 1.2 2003-03-24 11:14:55 pj Exp $ |
*/ |
void fftw_hc2real_4(const fftw_real *real_input, const fftw_real *imag_input, fftw_real *output, int real_istride, int imag_istride, int ostride) |
/shark/trunk/ports/fftw/rfftw/fcr_6.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:55:05 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2real 6 */ |
35,9 → 35,9 |
/* |
* Generator Id's : |
* $Id: fcr_6.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fcr_6.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fcr_6.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fcr_6.c,v 1.2 2003-03-24 11:14:56 pj Exp $ |
* $Id: fcr_6.c,v 1.2 2003-03-24 11:14:56 pj Exp $ |
* $Id: fcr_6.c,v 1.2 2003-03-24 11:14:56 pj Exp $ |
*/ |
void fftw_hc2real_6(const fftw_real *real_input, const fftw_real *imag_input, fftw_real *output, int real_istride, int imag_istride, int ostride) |
/shark/trunk/ports/fftw/rfftw/fhb_10.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:56:06 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2hc-backward 10 */ |
42,9 → 42,9 |
/* |
* Generator Id's : |
* $Id: fhb_10.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fhb_10.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fhb_10.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fhb_10.c,v 1.2 2003-03-24 11:14:56 pj Exp $ |
* $Id: fhb_10.c,v 1.2 2003-03-24 11:14:56 pj Exp $ |
* $Id: fhb_10.c,v 1.2 2003-03-24 11:14:56 pj Exp $ |
*/ |
void fftw_hc2hc_backward_10(fftw_real *A, const fftw_complex *W, int iostride, int m, int dist) |
/shark/trunk/ports/fftw/rfftw/fcr_8.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:55:06 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2real 8 */ |
35,9 → 35,9 |
/* |
* Generator Id's : |
* $Id: fcr_8.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fcr_8.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fcr_8.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fcr_8.c,v 1.2 2003-03-24 11:14:56 pj Exp $ |
* $Id: fcr_8.c,v 1.2 2003-03-24 11:14:56 pj Exp $ |
* $Id: fcr_8.c,v 1.2 2003-03-24 11:14:56 pj Exp $ |
*/ |
void fftw_hc2real_8(const fftw_real *real_input, const fftw_real *imag_input, fftw_real *output, int real_istride, int imag_istride, int ostride) |
/shark/trunk/ports/fftw/rfftw/fhf_10.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:55:36 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2hc-forward 10 */ |
37,9 → 37,9 |
/* |
* Generator Id's : |
* $Id: fhf_10.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: fhf_10.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: fhf_10.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: fhf_10.c,v 1.2 2003-03-24 11:14:57 pj Exp $ |
* $Id: fhf_10.c,v 1.2 2003-03-24 11:14:57 pj Exp $ |
* $Id: fhf_10.c,v 1.2 2003-03-24 11:14:57 pj Exp $ |
*/ |
void fftw_hc2hc_forward_10(fftw_real *A, const fftw_complex *W, int iostride, int m, int dist) |
/shark/trunk/ports/fftw/rfftw/frc_128.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:54:41 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -real2hc 128 */ |
64,9 → 64,9 |
/* |
* Generator Id's : |
* $Id: frc_128.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: frc_128.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: frc_128.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: frc_128.c,v 1.2 2003-03-24 11:14:58 pj Exp $ |
* $Id: frc_128.c,v 1.2 2003-03-24 11:14:58 pj Exp $ |
* $Id: frc_128.c,v 1.2 2003-03-24 11:14:58 pj Exp $ |
*/ |
void fftw_real2hc_128(const fftw_real *input, fftw_real *real_output, fftw_real *imag_output, int istride, int real_ostride, int imag_ostride) |
/shark/trunk/ports/fftw/rfftw/fhb_16.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:56:08 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2hc-backward 16 */ |
44,9 → 44,9 |
/* |
* Generator Id's : |
* $Id: fhb_16.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fhb_16.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fhb_16.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fhb_16.c,v 1.2 2003-03-24 11:14:56 pj Exp $ |
* $Id: fhb_16.c,v 1.2 2003-03-24 11:14:56 pj Exp $ |
* $Id: fhb_16.c,v 1.2 2003-03-24 11:14:56 pj Exp $ |
*/ |
void fftw_hc2hc_backward_16(fftw_real *A, const fftw_complex *W, int iostride, int m, int dist) |
/shark/trunk/ports/fftw/rfftw/rexec.c |
---|
21,12 → 21,12 |
* rexec.c -- execute the fft |
*/ |
/* $Id: rexec.c,v 1.1.1.1 2002-03-29 14:12:59 pj Exp $ */ |
/* $Id: rexec.c,v 1.2 2003-03-24 11:14:59 pj Exp $ */ |
//#include <ports/stdio.h> |
#include <stdlib.h> |
#include <ports/fftw-int.h> |
#include <ports/rfftw.h> |
#include <fftw-int.h> |
#include <rfftw.h> |
void rfftw_strided_copy(int n, fftw_real *in, int ostride, |
fftw_real *out) |
/shark/trunk/ports/fftw/rfftw/fhf_16.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:55:39 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2hc-forward 16 */ |
42,9 → 42,9 |
/* |
* Generator Id's : |
* $Id: fhf_16.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: fhf_16.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: fhf_16.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: fhf_16.c,v 1.2 2003-03-24 11:14:57 pj Exp $ |
* $Id: fhf_16.c,v 1.2 2003-03-24 11:14:57 pj Exp $ |
* $Id: fhf_16.c,v 1.2 2003-03-24 11:14:57 pj Exp $ |
*/ |
void fftw_hc2hc_forward_16(fftw_real *A, const fftw_complex *W, int iostride, int m, int dist) |
/shark/trunk/ports/fftw/rfftw/fcr_11.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:55:07 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2real 11 */ |
44,9 → 44,9 |
/* |
* Generator Id's : |
* $Id: fcr_11.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fcr_11.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fcr_11.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fcr_11.c,v 1.2 2003-03-24 11:14:55 pj Exp $ |
* $Id: fcr_11.c,v 1.2 2003-03-24 11:14:55 pj Exp $ |
* $Id: fcr_11.c,v 1.2 2003-03-24 11:14:55 pj Exp $ |
*/ |
void fftw_hc2real_11(const fftw_real *real_input, const fftw_real *imag_input, fftw_real *output, int real_istride, int imag_istride, int ostride) |
/shark/trunk/ports/fftw/rfftw/fcr_13.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:55:08 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2real 13 */ |
52,9 → 52,9 |
/* |
* Generator Id's : |
* $Id: fcr_13.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fcr_13.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fcr_13.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fcr_13.c,v 1.2 2003-03-24 11:14:55 pj Exp $ |
* $Id: fcr_13.c,v 1.2 2003-03-24 11:14:55 pj Exp $ |
* $Id: fcr_13.c,v 1.2 2003-03-24 11:14:55 pj Exp $ |
*/ |
void fftw_hc2real_13(const fftw_real *real_input, const fftw_real *imag_input, fftw_real *output, int real_istride, int imag_istride, int ostride) |
/shark/trunk/ports/fftw/rfftw/fcr_32.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:55:12 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2real 32 */ |
41,9 → 41,9 |
/* |
* Generator Id's : |
* $Id: fcr_32.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fcr_32.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fcr_32.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fcr_32.c,v 1.2 2003-03-24 11:14:55 pj Exp $ |
* $Id: fcr_32.c,v 1.2 2003-03-24 11:14:55 pj Exp $ |
* $Id: fcr_32.c,v 1.2 2003-03-24 11:14:55 pj Exp $ |
*/ |
void fftw_hc2real_32(const fftw_real *real_input, const fftw_real *imag_input, fftw_real *output, int real_istride, int imag_istride, int ostride) |
/shark/trunk/ports/fftw/rfftw/fcr_15.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:55:11 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2real 15 */ |
40,9 → 40,9 |
/* |
* Generator Id's : |
* $Id: fcr_15.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fcr_15.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fcr_15.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fcr_15.c,v 1.2 2003-03-24 11:14:55 pj Exp $ |
* $Id: fcr_15.c,v 1.2 2003-03-24 11:14:55 pj Exp $ |
* $Id: fcr_15.c,v 1.2 2003-03-24 11:14:55 pj Exp $ |
*/ |
void fftw_hc2real_15(const fftw_real *real_input, const fftw_real *imag_input, fftw_real *output, int real_istride, int imag_istride, int ostride) |
/shark/trunk/ports/fftw/rfftw/fhb_2.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:55:57 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2hc-backward 2 */ |
34,9 → 34,9 |
/* |
* Generator Id's : |
* $Id: fhb_2.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fhb_2.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fhb_2.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fhb_2.c,v 1.2 2003-03-24 11:14:56 pj Exp $ |
* $Id: fhb_2.c,v 1.2 2003-03-24 11:14:56 pj Exp $ |
* $Id: fhb_2.c,v 1.2 2003-03-24 11:14:56 pj Exp $ |
*/ |
void fftw_hc2hc_backward_2(fftw_real *A, const fftw_complex *W, int iostride, int m, int dist) |
/shark/trunk/ports/fftw/rfftw/fhb_4.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:55:58 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2hc-backward 4 */ |
35,9 → 35,9 |
/* |
* Generator Id's : |
* $Id: fhb_4.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fhb_4.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fhb_4.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fhb_4.c,v 1.2 2003-03-24 11:14:57 pj Exp $ |
* $Id: fhb_4.c,v 1.2 2003-03-24 11:14:57 pj Exp $ |
* $Id: fhb_4.c,v 1.2 2003-03-24 11:14:57 pj Exp $ |
*/ |
void fftw_hc2hc_backward_4(fftw_real *A, const fftw_complex *W, int iostride, int m, int dist) |
/shark/trunk/ports/fftw/rfftw/frc_64.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:54:40 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -real2hc 64 */ |
48,9 → 48,9 |
/* |
* Generator Id's : |
* $Id: frc_64.c,v 1.1.1.1 2002-03-29 14:12:59 pj Exp $ |
* $Id: frc_64.c,v 1.1.1.1 2002-03-29 14:12:59 pj Exp $ |
* $Id: frc_64.c,v 1.1.1.1 2002-03-29 14:12:59 pj Exp $ |
* $Id: frc_64.c,v 1.2 2003-03-24 11:14:59 pj Exp $ |
* $Id: frc_64.c,v 1.2 2003-03-24 11:14:59 pj Exp $ |
* $Id: frc_64.c,v 1.2 2003-03-24 11:14:59 pj Exp $ |
*/ |
void fftw_real2hc_64(const fftw_real *input, fftw_real *real_output, fftw_real *imag_output, int istride, int real_ostride, int imag_ostride) |
/shark/trunk/ports/fftw/rfftw/fhf_2.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:55:28 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2hc-forward 2 */ |
33,9 → 33,9 |
/* |
* Generator Id's : |
* $Id: fhf_2.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: fhf_2.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: fhf_2.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: fhf_2.c,v 1.2 2003-03-24 11:14:57 pj Exp $ |
* $Id: fhf_2.c,v 1.2 2003-03-24 11:14:57 pj Exp $ |
* $Id: fhf_2.c,v 1.2 2003-03-24 11:14:57 pj Exp $ |
*/ |
void fftw_hc2hc_forward_2(fftw_real *A, const fftw_complex *W, int iostride, int m, int dist) |
/shark/trunk/ports/fftw/rfftw/fhb_6.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:56:00 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2hc-backward 6 */ |
37,9 → 37,9 |
/* |
* Generator Id's : |
* $Id: fhb_6.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: fhb_6.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: fhb_6.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: fhb_6.c,v 1.2 2003-03-24 11:14:57 pj Exp $ |
* $Id: fhb_6.c,v 1.2 2003-03-24 11:14:57 pj Exp $ |
* $Id: fhb_6.c,v 1.2 2003-03-24 11:14:57 pj Exp $ |
*/ |
void fftw_hc2hc_backward_6(fftw_real *A, const fftw_complex *W, int iostride, int m, int dist) |
/shark/trunk/ports/fftw/rfftw/fhf_4.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:55:29 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2hc-forward 4 */ |
34,9 → 34,9 |
/* |
* Generator Id's : |
* $Id: fhf_4.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: fhf_4.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: fhf_4.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: fhf_4.c,v 1.2 2003-03-24 11:14:58 pj Exp $ |
* $Id: fhf_4.c,v 1.2 2003-03-24 11:14:58 pj Exp $ |
* $Id: fhf_4.c,v 1.2 2003-03-24 11:14:58 pj Exp $ |
*/ |
void fftw_hc2hc_forward_4(fftw_real *A, const fftw_complex *W, int iostride, int m, int dist) |
/shark/trunk/ports/fftw/rfftw/fhb_8.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:56:04 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2hc-backward 8 */ |
38,9 → 38,9 |
/* |
* Generator Id's : |
* $Id: fhb_8.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: fhb_8.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: fhb_8.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: fhb_8.c,v 1.2 2003-03-24 11:14:57 pj Exp $ |
* $Id: fhb_8.c,v 1.2 2003-03-24 11:14:57 pj Exp $ |
* $Id: fhb_8.c,v 1.2 2003-03-24 11:14:57 pj Exp $ |
*/ |
void fftw_hc2hc_backward_8(fftw_real *A, const fftw_complex *W, int iostride, int m, int dist) |
/shark/trunk/ports/fftw/rfftw/rexec2.c |
---|
17,7 → 17,7 |
* |
*/ |
/* $Id: rexec2.c,v 1.1.1.1 2002-03-29 14:12:59 pj Exp $ */ |
/* $Id: rexec2.c,v 1.2 2003-03-24 11:14:59 pj Exp $ */ |
/* |
* rexec2.c -- alternate rfftw executor, specifically designed for the |
* multidimensional transforms. Given an extra work array, |
25,8 → 25,8 |
* not destroy the input in hc2real transforms. |
*/ |
#include <ports/fftw-int.h> |
#include <ports/rfftw.h> |
#include <fftw-int.h> |
#include <rfftw.h> |
/* copies halfcomplex array in (contiguous) to fftw_complex array out. */ |
void rfftw_hc2c(int n, fftw_real *in, fftw_complex *out, int ostride) |
/shark/trunk/ports/fftw/rfftw/fhf_6.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:55:31 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2hc-forward 6 */ |
35,9 → 35,9 |
/* |
* Generator Id's : |
* $Id: fhf_6.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: fhf_6.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: fhf_6.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: fhf_6.c,v 1.2 2003-03-24 11:14:58 pj Exp $ |
* $Id: fhf_6.c,v 1.2 2003-03-24 11:14:58 pj Exp $ |
* $Id: fhf_6.c,v 1.2 2003-03-24 11:14:58 pj Exp $ |
*/ |
void fftw_hc2hc_forward_6(fftw_real *A, const fftw_complex *W, int iostride, int m, int dist) |
/shark/trunk/ports/fftw/rfftw/frc_1.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:54:33 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -real2hc 1 */ |
33,9 → 33,9 |
/* |
* Generator Id's : |
* $Id: frc_1.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: frc_1.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: frc_1.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: frc_1.c,v 1.2 2003-03-24 11:14:58 pj Exp $ |
* $Id: frc_1.c,v 1.2 2003-03-24 11:14:58 pj Exp $ |
* $Id: frc_1.c,v 1.2 2003-03-24 11:14:58 pj Exp $ |
*/ |
void fftw_real2hc_1(const fftw_real *input, fftw_real *real_output, fftw_real *imag_output, int istride, int real_ostride, int imag_ostride) |
/shark/trunk/ports/fftw/rfftw/fhf_8.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:55:34 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2hc-forward 8 */ |
36,9 → 36,9 |
/* |
* Generator Id's : |
* $Id: fhf_8.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: fhf_8.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: fhf_8.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: fhf_8.c,v 1.2 2003-03-24 11:14:58 pj Exp $ |
* $Id: fhf_8.c,v 1.2 2003-03-24 11:14:58 pj Exp $ |
* $Id: fhf_8.c,v 1.2 2003-03-24 11:14:58 pj Exp $ |
*/ |
void fftw_hc2hc_forward_8(fftw_real *A, const fftw_complex *W, int iostride, int m, int dist) |
/shark/trunk/ports/fftw/rfftw/makefile |
---|
10,6 → 10,8 |
OBJS_PATH = $(BASE)/ports/fftw/rfftw |
OTHERINCL += -I$(BASE)/ports/fftw/include |
OBJS = frc_1.o frc_2.o frc_3.o frc_4.o frc_5.o frc_6.o frc_7.o frc_8.o \ |
frc_9.o frc_10.o frc_11.o frc_12.o frc_13.o frc_14.o frc_15.o \ |
frc_16.o frc_32.o frc_64.o frc_128.o fhf_2.o fhf_3.o fhf_4.o \ |
/shark/trunk/ports/fftw/rfftw/frc_3.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:54:33 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -real2hc 3 */ |
35,9 → 35,9 |
/* |
* Generator Id's : |
* $Id: frc_3.c,v 1.1.1.1 2002-03-29 14:12:59 pj Exp $ |
* $Id: frc_3.c,v 1.1.1.1 2002-03-29 14:12:59 pj Exp $ |
* $Id: frc_3.c,v 1.1.1.1 2002-03-29 14:12:59 pj Exp $ |
* $Id: frc_3.c,v 1.2 2003-03-24 11:14:59 pj Exp $ |
* $Id: frc_3.c,v 1.2 2003-03-24 11:14:59 pj Exp $ |
* $Id: frc_3.c,v 1.2 2003-03-24 11:14:59 pj Exp $ |
*/ |
void fftw_real2hc_3(const fftw_real *input, fftw_real *real_output, fftw_real *imag_output, int istride, int real_ostride, int imag_ostride) |
/shark/trunk/ports/fftw/rfftw/frc_5.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:54:33 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -real2hc 5 */ |
37,9 → 37,9 |
/* |
* Generator Id's : |
* $Id: frc_5.c,v 1.1.1.1 2002-03-29 14:12:59 pj Exp $ |
* $Id: frc_5.c,v 1.1.1.1 2002-03-29 14:12:59 pj Exp $ |
* $Id: frc_5.c,v 1.1.1.1 2002-03-29 14:12:59 pj Exp $ |
* $Id: frc_5.c,v 1.2 2003-03-24 11:14:59 pj Exp $ |
* $Id: frc_5.c,v 1.2 2003-03-24 11:14:59 pj Exp $ |
* $Id: frc_5.c,v 1.2 2003-03-24 11:14:59 pj Exp $ |
*/ |
void fftw_real2hc_5(const fftw_real *input, fftw_real *real_output, fftw_real *imag_output, int istride, int real_ostride, int imag_ostride) |
/shark/trunk/ports/fftw/rfftw/frc_7.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:54:34 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -real2hc 7 */ |
39,9 → 39,9 |
/* |
* Generator Id's : |
* $Id: frc_7.c,v 1.1.1.1 2002-03-29 14:12:59 pj Exp $ |
* $Id: frc_7.c,v 1.1.1.1 2002-03-29 14:12:59 pj Exp $ |
* $Id: frc_7.c,v 1.1.1.1 2002-03-29 14:12:59 pj Exp $ |
* $Id: frc_7.c,v 1.2 2003-03-24 11:14:59 pj Exp $ |
* $Id: frc_7.c,v 1.2 2003-03-24 11:14:59 pj Exp $ |
* $Id: frc_7.c,v 1.2 2003-03-24 11:14:59 pj Exp $ |
*/ |
void fftw_real2hc_7(const fftw_real *input, fftw_real *real_output, fftw_real *imag_output, int istride, int real_ostride, int imag_ostride) |
/shark/trunk/ports/fftw/rfftw/frc_9.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:54:35 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -real2hc 9 */ |
47,9 → 47,9 |
/* |
* Generator Id's : |
* $Id: frc_9.c,v 1.1.1.1 2002-03-29 14:12:59 pj Exp $ |
* $Id: frc_9.c,v 1.1.1.1 2002-03-29 14:12:59 pj Exp $ |
* $Id: frc_9.c,v 1.1.1.1 2002-03-29 14:12:59 pj Exp $ |
* $Id: frc_9.c,v 1.2 2003-03-24 11:14:59 pj Exp $ |
* $Id: frc_9.c,v 1.2 2003-03-24 11:14:59 pj Exp $ |
* $Id: frc_9.c,v 1.2 2003-03-24 11:14:59 pj Exp $ |
*/ |
void fftw_real2hc_9(const fftw_real *input, fftw_real *real_output, fftw_real *imag_output, int istride, int real_ostride, int imag_ostride) |
/shark/trunk/ports/fftw/rfftw/fcr_128.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:55:15 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2real 128 */ |
65,9 → 65,9 |
/* |
* Generator Id's : |
* $Id: fcr_128.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fcr_128.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fcr_128.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fcr_128.c,v 1.2 2003-03-24 11:14:55 pj Exp $ |
* $Id: fcr_128.c,v 1.2 2003-03-24 11:14:55 pj Exp $ |
* $Id: fcr_128.c,v 1.2 2003-03-24 11:14:55 pj Exp $ |
*/ |
void fftw_hc2real_128(const fftw_real *real_input, const fftw_real *imag_input, fftw_real *output, int real_istride, int imag_istride, int ostride) |
/shark/trunk/ports/fftw/rfftw/frc_10.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:54:35 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -real2hc 10 */ |
37,9 → 37,9 |
/* |
* Generator Id's : |
* $Id: frc_10.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: frc_10.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: frc_10.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: frc_10.c,v 1.2 2003-03-24 11:14:58 pj Exp $ |
* $Id: frc_10.c,v 1.2 2003-03-24 11:14:58 pj Exp $ |
* $Id: frc_10.c,v 1.2 2003-03-24 11:14:58 pj Exp $ |
*/ |
void fftw_real2hc_10(const fftw_real *input, fftw_real *real_output, fftw_real *imag_output, int istride, int real_ostride, int imag_ostride) |
/shark/trunk/ports/fftw/rfftw/rfftwnd.c |
---|
17,10 → 17,10 |
* |
*/ |
/* $Id: rfftwnd.c,v 1.1.1.1 2002-03-29 14:12:59 pj Exp $ */ |
/* $Id: rfftwnd.c,v 1.2 2003-03-24 11:14:59 pj Exp $ */ |
#include <ports/fftw-int.h> |
#include <ports/rfftw.h> |
#include <fftw-int.h> |
#include <rfftw.h> |
/********************** prototypes for rexec2 routines **********************/ |
/shark/trunk/ports/fftw/rfftw/frc_12.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:54:36 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -real2hc 12 */ |
35,9 → 35,9 |
/* |
* Generator Id's : |
* $Id: frc_12.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: frc_12.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: frc_12.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: frc_12.c,v 1.2 2003-03-24 11:14:58 pj Exp $ |
* $Id: frc_12.c,v 1.2 2003-03-24 11:14:58 pj Exp $ |
* $Id: frc_12.c,v 1.2 2003-03-24 11:14:58 pj Exp $ |
*/ |
void fftw_real2hc_12(const fftw_real *input, fftw_real *real_output, fftw_real *imag_output, int istride, int real_ostride, int imag_ostride) |
/shark/trunk/ports/fftw/rfftw/frc_14.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:54:38 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -real2hc 14 */ |
39,9 → 39,9 |
/* |
* Generator Id's : |
* $Id: frc_14.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: frc_14.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: frc_14.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: frc_14.c,v 1.2 2003-03-24 11:14:58 pj Exp $ |
* $Id: frc_14.c,v 1.2 2003-03-24 11:14:58 pj Exp $ |
* $Id: frc_14.c,v 1.2 2003-03-24 11:14:58 pj Exp $ |
*/ |
void fftw_real2hc_14(const fftw_real *input, fftw_real *real_output, fftw_real *imag_output, int istride, int real_ostride, int imag_ostride) |
/shark/trunk/ports/fftw/rfftw/frc_16.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:54:39 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -real2hc 16 */ |
36,9 → 36,9 |
/* |
* Generator Id's : |
* $Id: frc_16.c,v 1.1.1.1 2002-03-29 14:12:59 pj Exp $ |
* $Id: frc_16.c,v 1.1.1.1 2002-03-29 14:12:59 pj Exp $ |
* $Id: frc_16.c,v 1.1.1.1 2002-03-29 14:12:59 pj Exp $ |
* $Id: frc_16.c,v 1.2 2003-03-24 11:14:59 pj Exp $ |
* $Id: frc_16.c,v 1.2 2003-03-24 11:14:59 pj Exp $ |
* $Id: frc_16.c,v 1.2 2003-03-24 11:14:59 pj Exp $ |
*/ |
void fftw_real2hc_16(const fftw_real *input, fftw_real *real_output, fftw_real *imag_output, int istride, int real_ostride, int imag_ostride) |
/shark/trunk/ports/fftw/rfftw/rplanner.c |
---|
21,7 → 21,7 |
* planner.c -- find the optimal plan |
*/ |
/* $Id: rplanner.c,v 1.1.1.1 2002-03-29 14:12:59 pj Exp $ */ |
/* $Id: rplanner.c,v 1.2 2003-03-24 11:14:59 pj Exp $ */ |
#ifdef FFTW_USING_CILK |
#include <cilk.h> |
#include <cilk-compat.h> |
30,8 → 30,8 |
#include <stdlib.h> |
//#include <stdio.h> |
#include <ports/fftw-int.h> |
#include <ports/rfftw.h> |
#include <fftw-int.h> |
#include <rfftw.h> |
extern fftw_codelet_desc *rfftw_config[]; /* global from rconfig.c */ |
extern fftw_rgeneric_codelet fftw_hc2hc_forward_generic; |
/shark/trunk/ports/fftw/rfftw/fcr_64.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:55:13 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2real 64 */ |
49,9 → 49,9 |
/* |
* Generator Id's : |
* $Id: fcr_64.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fcr_64.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fcr_64.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fcr_64.c,v 1.2 2003-03-24 11:14:56 pj Exp $ |
* $Id: fcr_64.c,v 1.2 2003-03-24 11:14:56 pj Exp $ |
* $Id: fcr_64.c,v 1.2 2003-03-24 11:14:56 pj Exp $ |
*/ |
void fftw_hc2real_64(const fftw_real *real_input, const fftw_real *imag_input, fftw_real *output, int real_istride, int imag_istride, int ostride) |
/shark/trunk/ports/fftw/rfftw/fcr_1.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:55:04 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2real 1 */ |
33,9 → 33,9 |
/* |
* Generator Id's : |
* $Id: fcr_1.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fcr_1.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fcr_1.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fcr_1.c,v 1.2 2003-03-24 11:14:55 pj Exp $ |
* $Id: fcr_1.c,v 1.2 2003-03-24 11:14:55 pj Exp $ |
* $Id: fcr_1.c,v 1.2 2003-03-24 11:14:55 pj Exp $ |
*/ |
void fftw_hc2real_1(const fftw_real *real_input, const fftw_real *imag_input, fftw_real *output, int real_istride, int imag_istride, int ostride) |
/shark/trunk/ports/fftw/rfftw/fcr_3.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:55:04 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2real 3 */ |
35,9 → 35,9 |
/* |
* Generator Id's : |
* $Id: fcr_3.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fcr_3.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fcr_3.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fcr_3.c,v 1.2 2003-03-24 11:14:55 pj Exp $ |
* $Id: fcr_3.c,v 1.2 2003-03-24 11:14:55 pj Exp $ |
* $Id: fcr_3.c,v 1.2 2003-03-24 11:14:55 pj Exp $ |
*/ |
void fftw_hc2real_3(const fftw_real *real_input, const fftw_real *imag_input, fftw_real *output, int real_istride, int imag_istride, int ostride) |
/shark/trunk/ports/fftw/rfftw/fcr_5.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:55:05 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2real 5 */ |
38,9 → 38,9 |
/* |
* Generator Id's : |
* $Id: fcr_5.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fcr_5.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fcr_5.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fcr_5.c,v 1.2 2003-03-24 11:14:56 pj Exp $ |
* $Id: fcr_5.c,v 1.2 2003-03-24 11:14:56 pj Exp $ |
* $Id: fcr_5.c,v 1.2 2003-03-24 11:14:56 pj Exp $ |
*/ |
void fftw_hc2real_5(const fftw_real *real_input, const fftw_real *imag_input, fftw_real *output, int real_istride, int imag_istride, int ostride) |
/shark/trunk/ports/fftw/rfftw/fcr_7.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:55:06 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2real 7 */ |
40,9 → 40,9 |
/* |
* Generator Id's : |
* $Id: fcr_7.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fcr_7.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fcr_7.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fcr_7.c,v 1.2 2003-03-24 11:14:56 pj Exp $ |
* $Id: fcr_7.c,v 1.2 2003-03-24 11:14:56 pj Exp $ |
* $Id: fcr_7.c,v 1.2 2003-03-24 11:14:56 pj Exp $ |
*/ |
void fftw_hc2real_7(const fftw_real *real_input, const fftw_real *imag_input, fftw_real *output, int real_istride, int imag_istride, int ostride) |
/shark/trunk/ports/fftw/rfftw/fcr_9.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:55:06 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2real 9 */ |
45,9 → 45,9 |
/* |
* Generator Id's : |
* $Id: fcr_9.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fcr_9.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fcr_9.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fcr_9.c,v 1.2 2003-03-24 11:14:56 pj Exp $ |
* $Id: fcr_9.c,v 1.2 2003-03-24 11:14:56 pj Exp $ |
* $Id: fcr_9.c,v 1.2 2003-03-24 11:14:56 pj Exp $ |
*/ |
void fftw_hc2real_9(const fftw_real *real_input, const fftw_real *imag_input, fftw_real *output, int real_istride, int imag_istride, int ostride) |
/shark/trunk/ports/fftw/rfftw/fhb_32.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:56:10 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2hc-backward 32 */ |
56,9 → 56,9 |
/* |
* Generator Id's : |
* $Id: fhb_32.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fhb_32.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fhb_32.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fhb_32.c,v 1.2 2003-03-24 11:14:56 pj Exp $ |
* $Id: fhb_32.c,v 1.2 2003-03-24 11:14:56 pj Exp $ |
* $Id: fhb_32.c,v 1.2 2003-03-24 11:14:56 pj Exp $ |
*/ |
void fftw_hc2hc_backward_32(fftw_real *A, const fftw_complex *W, int iostride, int m, int dist) |
/shark/trunk/ports/fftw/rfftw/fhf_32.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:55:39 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2hc-forward 32 */ |
56,9 → 56,9 |
/* |
* Generator Id's : |
* $Id: fhf_32.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: fhf_32.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: fhf_32.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: fhf_32.c,v 1.2 2003-03-24 11:14:57 pj Exp $ |
* $Id: fhf_32.c,v 1.2 2003-03-24 11:14:57 pj Exp $ |
* $Id: fhf_32.c,v 1.2 2003-03-24 11:14:57 pj Exp $ |
*/ |
void fftw_hc2hc_forward_32(fftw_real *A, const fftw_complex *W, int iostride, int m, int dist) |
/shark/trunk/ports/fftw/rfftw/fcr_10.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:55:06 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2real 10 */ |
38,9 → 38,9 |
/* |
* Generator Id's : |
* $Id: fcr_10.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fcr_10.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fcr_10.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fcr_10.c,v 1.2 2003-03-24 11:14:55 pj Exp $ |
* $Id: fcr_10.c,v 1.2 2003-03-24 11:14:55 pj Exp $ |
* $Id: fcr_10.c,v 1.2 2003-03-24 11:14:55 pj Exp $ |
*/ |
void fftw_hc2real_10(const fftw_real *real_input, const fftw_real *imag_input, fftw_real *output, int real_istride, int imag_istride, int ostride) |
/shark/trunk/ports/fftw/rfftw/fcr_12.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:55:07 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2real 12 */ |
35,9 → 35,9 |
/* |
* Generator Id's : |
* $Id: fcr_12.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fcr_12.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fcr_12.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fcr_12.c,v 1.2 2003-03-24 11:14:55 pj Exp $ |
* $Id: fcr_12.c,v 1.2 2003-03-24 11:14:55 pj Exp $ |
* $Id: fcr_12.c,v 1.2 2003-03-24 11:14:55 pj Exp $ |
*/ |
void fftw_hc2real_12(const fftw_real *real_input, const fftw_real *imag_input, fftw_real *output, int real_istride, int imag_istride, int ostride) |
/shark/trunk/ports/fftw/rfftw/fcr_14.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:55:10 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2real 14 */ |
40,9 → 40,9 |
/* |
* Generator Id's : |
* $Id: fcr_14.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fcr_14.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fcr_14.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fcr_14.c,v 1.2 2003-03-24 11:14:55 pj Exp $ |
* $Id: fcr_14.c,v 1.2 2003-03-24 11:14:55 pj Exp $ |
* $Id: fcr_14.c,v 1.2 2003-03-24 11:14:55 pj Exp $ |
*/ |
void fftw_hc2real_14(const fftw_real *real_input, const fftw_real *imag_input, fftw_real *output, int real_istride, int imag_istride, int ostride) |
/shark/trunk/ports/fftw/rfftw/fcr_16.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:55:11 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2real 16 */ |
37,9 → 37,9 |
/* |
* Generator Id's : |
* $Id: fcr_16.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fcr_16.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fcr_16.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fcr_16.c,v 1.2 2003-03-24 11:14:55 pj Exp $ |
* $Id: fcr_16.c,v 1.2 2003-03-24 11:14:55 pj Exp $ |
* $Id: fcr_16.c,v 1.2 2003-03-24 11:14:55 pj Exp $ |
*/ |
void fftw_hc2real_16(const fftw_real *real_input, const fftw_real *imag_input, fftw_real *output, int real_istride, int imag_istride, int ostride) |
/shark/trunk/ports/fftw/rfftw/fhb_3.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:55:58 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2hc-backward 3 */ |
37,9 → 37,9 |
/* |
* Generator Id's : |
* $Id: fhb_3.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fhb_3.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fhb_3.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: fhb_3.c,v 1.2 2003-03-24 11:14:56 pj Exp $ |
* $Id: fhb_3.c,v 1.2 2003-03-24 11:14:56 pj Exp $ |
* $Id: fhb_3.c,v 1.2 2003-03-24 11:14:56 pj Exp $ |
*/ |
void fftw_hc2hc_backward_3(fftw_real *A, const fftw_complex *W, int iostride, int m, int dist) |
/shark/trunk/ports/fftw/rfftw/fhb_5.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:55:59 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2hc-backward 5 */ |
42,9 → 42,9 |
/* |
* Generator Id's : |
* $Id: fhb_5.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: fhb_5.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: fhb_5.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: fhb_5.c,v 1.2 2003-03-24 11:14:57 pj Exp $ |
* $Id: fhb_5.c,v 1.2 2003-03-24 11:14:57 pj Exp $ |
* $Id: fhb_5.c,v 1.2 2003-03-24 11:14:57 pj Exp $ |
*/ |
void fftw_hc2hc_backward_5(fftw_real *A, const fftw_complex *W, int iostride, int m, int dist) |
/shark/trunk/ports/fftw/rfftw/fhf_3.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:55:29 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2hc-forward 3 */ |
35,9 → 35,9 |
/* |
* Generator Id's : |
* $Id: fhf_3.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: fhf_3.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: fhf_3.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: fhf_3.c,v 1.2 2003-03-24 11:14:57 pj Exp $ |
* $Id: fhf_3.c,v 1.2 2003-03-24 11:14:57 pj Exp $ |
* $Id: fhf_3.c,v 1.2 2003-03-24 11:14:57 pj Exp $ |
*/ |
void fftw_hc2hc_forward_3(fftw_real *A, const fftw_complex *W, int iostride, int m, int dist) |
/shark/trunk/ports/fftw/rfftw/fhb_7.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:56:02 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2hc-backward 7 */ |
46,9 → 46,9 |
/* |
* Generator Id's : |
* $Id: fhb_7.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: fhb_7.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: fhb_7.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: fhb_7.c,v 1.2 2003-03-24 11:14:57 pj Exp $ |
* $Id: fhb_7.c,v 1.2 2003-03-24 11:14:57 pj Exp $ |
* $Id: fhb_7.c,v 1.2 2003-03-24 11:14:57 pj Exp $ |
*/ |
void fftw_hc2hc_backward_7(fftw_real *A, const fftw_complex *W, int iostride, int m, int dist) |
/shark/trunk/ports/fftw/rfftw/rconfig.c |
---|
39,8 → 39,8 |
/* rconfig.c -- this file contains all the real-complex codelets |
* the system knows about */ |
#include <ports/fftw-int.h> |
#include <ports/rfftw.h> |
#include <fftw-int.h> |
#include <rfftw.h> |
#define NOTW_CODELET(x) \ |
&fftw_real2hc_##x##_desc |
/shark/trunk/ports/fftw/rfftw/fhf_5.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:55:30 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2hc-forward 5 */ |
37,9 → 37,9 |
/* |
* Generator Id's : |
* $Id: fhf_5.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: fhf_5.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: fhf_5.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: fhf_5.c,v 1.2 2003-03-24 11:14:58 pj Exp $ |
* $Id: fhf_5.c,v 1.2 2003-03-24 11:14:58 pj Exp $ |
* $Id: fhf_5.c,v 1.2 2003-03-24 11:14:58 pj Exp $ |
*/ |
void fftw_hc2hc_forward_5(fftw_real *A, const fftw_complex *W, int iostride, int m, int dist) |
/shark/trunk/ports/fftw/rfftw/fhb_9.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:56:05 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2hc-backward 9 */ |
53,9 → 53,9 |
/* |
* Generator Id's : |
* $Id: fhb_9.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: fhb_9.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: fhb_9.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: fhb_9.c,v 1.2 2003-03-24 11:14:57 pj Exp $ |
* $Id: fhb_9.c,v 1.2 2003-03-24 11:14:57 pj Exp $ |
* $Id: fhb_9.c,v 1.2 2003-03-24 11:14:57 pj Exp $ |
*/ |
void fftw_hc2hc_backward_9(fftw_real *A, const fftw_complex *W, int iostride, int m, int dist) |
/shark/trunk/ports/fftw/rfftw/fhf_7.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:55:32 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2hc-forward 7 */ |
39,9 → 39,9 |
/* |
* Generator Id's : |
* $Id: fhf_7.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: fhf_7.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: fhf_7.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: fhf_7.c,v 1.2 2003-03-24 11:14:58 pj Exp $ |
* $Id: fhf_7.c,v 1.2 2003-03-24 11:14:58 pj Exp $ |
* $Id: fhf_7.c,v 1.2 2003-03-24 11:14:58 pj Exp $ |
*/ |
void fftw_hc2hc_forward_7(fftw_real *A, const fftw_complex *W, int iostride, int m, int dist) |
/shark/trunk/ports/fftw/rfftw/frc_2.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:54:33 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -real2hc 2 */ |
33,9 → 33,9 |
/* |
* Generator Id's : |
* $Id: frc_2.c,v 1.1.1.1 2002-03-29 14:12:59 pj Exp $ |
* $Id: frc_2.c,v 1.1.1.1 2002-03-29 14:12:59 pj Exp $ |
* $Id: frc_2.c,v 1.1.1.1 2002-03-29 14:12:59 pj Exp $ |
* $Id: frc_2.c,v 1.2 2003-03-24 11:14:59 pj Exp $ |
* $Id: frc_2.c,v 1.2 2003-03-24 11:14:59 pj Exp $ |
* $Id: frc_2.c,v 1.2 2003-03-24 11:14:59 pj Exp $ |
*/ |
void fftw_real2hc_2(const fftw_real *input, fftw_real *real_output, fftw_real *imag_output, int istride, int real_ostride, int imag_ostride) |
/shark/trunk/ports/fftw/rfftw/fhf_9.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:55:35 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2hc-forward 9 */ |
47,9 → 47,9 |
/* |
* Generator Id's : |
* $Id: fhf_9.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: fhf_9.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: fhf_9.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $ |
* $Id: fhf_9.c,v 1.2 2003-03-24 11:14:58 pj Exp $ |
* $Id: fhf_9.c,v 1.2 2003-03-24 11:14:58 pj Exp $ |
* $Id: fhf_9.c,v 1.2 2003-03-24 11:14:58 pj Exp $ |
*/ |
void fftw_hc2hc_forward_9(fftw_real *A, const fftw_complex *W, int iostride, int m, int dist) |
/shark/trunk/ports/fftw/rfftw/frc_4.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:54:33 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -real2hc 4 */ |
33,9 → 33,9 |
/* |
* Generator Id's : |
* $Id: frc_4.c,v 1.1.1.1 2002-03-29 14:12:59 pj Exp $ |
* $Id: frc_4.c,v 1.1.1.1 2002-03-29 14:12:59 pj Exp $ |
* $Id: frc_4.c,v 1.1.1.1 2002-03-29 14:12:59 pj Exp $ |
* $Id: frc_4.c,v 1.2 2003-03-24 11:14:59 pj Exp $ |
* $Id: frc_4.c,v 1.2 2003-03-24 11:14:59 pj Exp $ |
* $Id: frc_4.c,v 1.2 2003-03-24 11:14:59 pj Exp $ |
*/ |
void fftw_real2hc_4(const fftw_real *input, fftw_real *real_output, fftw_real *imag_output, int istride, int real_ostride, int imag_ostride) |
/shark/trunk/ports/fftw/fftw/fni_4.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:54:43 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddleinv 4 */ |
33,9 → 33,9 |
/* |
* Generator Id's : |
* $Id: fni_4.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fni_4.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fni_4.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fni_4.c,v 1.2 2003-03-24 11:14:52 pj Exp $ |
* $Id: fni_4.c,v 1.2 2003-03-24 11:14:52 pj Exp $ |
* $Id: fni_4.c,v 1.2 2003-03-24 11:14:52 pj Exp $ |
*/ |
void fftwi_no_twiddle_4(const fftw_complex *input, fftw_complex *output, int istride, int ostride) |
/shark/trunk/ports/fftw/fftw/fni_6.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:54:44 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddleinv 6 */ |
35,9 → 35,9 |
/* |
* Generator Id's : |
* $Id: fni_6.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fni_6.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fni_6.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fni_6.c,v 1.2 2003-03-24 11:14:52 pj Exp $ |
* $Id: fni_6.c,v 1.2 2003-03-24 11:14:52 pj Exp $ |
* $Id: fni_6.c,v 1.2 2003-03-24 11:14:52 pj Exp $ |
*/ |
void fftwi_no_twiddle_6(const fftw_complex *input, fftw_complex *output, int istride, int ostride) |
/shark/trunk/ports/fftw/fftw/wisdom.c |
---|
21,7 → 21,7 |
* wisdom.c -- manage the wisdom |
*/ |
#include <ports/fftw-int.h> |
#include <fftw-int.h> |
//#include <ports/stdio.h> |
#include <stdlib.h> |
//#include <ports/ctype.h> |
/shark/trunk/ports/fftw/fftw/fni_8.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:54:46 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddleinv 8 */ |
34,9 → 34,9 |
/* |
* Generator Id's : |
* $Id: fni_8.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fni_8.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fni_8.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fni_8.c,v 1.2 2003-03-24 11:14:52 pj Exp $ |
* $Id: fni_8.c,v 1.2 2003-03-24 11:14:52 pj Exp $ |
* $Id: fni_8.c,v 1.2 2003-03-24 11:14:52 pj Exp $ |
*/ |
void fftwi_no_twiddle_8(const fftw_complex *input, fftw_complex *output, int istride, int ostride) |
/shark/trunk/ports/fftw/fftw/fn_10.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:54:27 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddle 10 */ |
37,9 → 37,9 |
/* |
* Generator Id's : |
* $Id: fn_10.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fn_10.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fn_10.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fn_10.c,v 1.2 2003-03-24 11:14:50 pj Exp $ |
* $Id: fn_10.c,v 1.2 2003-03-24 11:14:50 pj Exp $ |
* $Id: fn_10.c,v 1.2 2003-03-24 11:14:50 pj Exp $ |
*/ |
void fftw_no_twiddle_10(const fftw_complex *input, fftw_complex *output, int istride, int ostride) |
/shark/trunk/ports/fftw/fftw/fn_12.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:54:28 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddle 12 */ |
35,9 → 35,9 |
/* |
* Generator Id's : |
* $Id: fn_12.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fn_12.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fn_12.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fn_12.c,v 1.2 2003-03-24 11:14:50 pj Exp $ |
* $Id: fn_12.c,v 1.2 2003-03-24 11:14:50 pj Exp $ |
* $Id: fn_12.c,v 1.2 2003-03-24 11:14:50 pj Exp $ |
*/ |
void fftw_no_twiddle_12(const fftw_complex *input, fftw_complex *output, int istride, int ostride) |
/shark/trunk/ports/fftw/fftw/config.c |
---|
19,9 → 19,9 |
/* config.c -- this file contains all the codelets the system knows about */ |
/* $Id: config.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ */ |
/* $Id: config.c,v 1.2 2003-03-24 11:14:49 pj Exp $ */ |
#include <ports/fftw-int.h> |
#include <fftw-int.h> |
/* the signature is the same as the size, for now */ |
#define NOTW_CODELET(x) \ |
/shark/trunk/ports/fftw/fftw/fn_14.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:54:28 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddle 14 */ |
39,9 → 39,9 |
/* |
* Generator Id's : |
* $Id: fn_14.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fn_14.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fn_14.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fn_14.c,v 1.2 2003-03-24 11:14:50 pj Exp $ |
* $Id: fn_14.c,v 1.2 2003-03-24 11:14:50 pj Exp $ |
* $Id: fn_14.c,v 1.2 2003-03-24 11:14:50 pj Exp $ |
*/ |
void fftw_no_twiddle_14(const fftw_complex *input, fftw_complex *output, int istride, int ostride) |
/shark/trunk/ports/fftw/fftw/ftwi_10.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:55:52 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -twiddleinv 10 */ |
37,9 → 37,9 |
/* |
* Generator Id's : |
* $Id: ftwi_10.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftwi_10.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftwi_10.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftwi_10.c,v 1.2 2003-03-24 11:14:53 pj Exp $ |
* $Id: ftwi_10.c,v 1.2 2003-03-24 11:14:53 pj Exp $ |
* $Id: ftwi_10.c,v 1.2 2003-03-24 11:14:53 pj Exp $ |
*/ |
void fftwi_twiddle_10(fftw_complex *A, const fftw_complex *W, int iostride, int m, int dist) |
/shark/trunk/ports/fftw/fftw/fn_16.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:54:31 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddle 16 */ |
36,9 → 36,9 |
/* |
* Generator Id's : |
* $Id: fn_16.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fn_16.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fn_16.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fn_16.c,v 1.2 2003-03-24 11:14:50 pj Exp $ |
* $Id: fn_16.c,v 1.2 2003-03-24 11:14:50 pj Exp $ |
* $Id: fn_16.c,v 1.2 2003-03-24 11:14:50 pj Exp $ |
*/ |
void fftw_no_twiddle_16(const fftw_complex *input, fftw_complex *output, int istride, int ostride) |
/shark/trunk/ports/fftw/fftw/fni_10.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:54:48 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddleinv 10 */ |
37,9 → 37,9 |
/* |
* Generator Id's : |
* $Id: fni_10.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fni_10.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fni_10.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fni_10.c,v 1.2 2003-03-24 11:14:51 pj Exp $ |
* $Id: fni_10.c,v 1.2 2003-03-24 11:14:51 pj Exp $ |
* $Id: fni_10.c,v 1.2 2003-03-24 11:14:51 pj Exp $ |
*/ |
void fftwi_no_twiddle_10(const fftw_complex *input, fftw_complex *output, int istride, int ostride) |
/shark/trunk/ports/fftw/fftw/fni_12.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:54:50 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddleinv 12 */ |
35,9 → 35,9 |
/* |
* Generator Id's : |
* $Id: fni_12.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fni_12.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fni_12.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fni_12.c,v 1.2 2003-03-24 11:14:51 pj Exp $ |
* $Id: fni_12.c,v 1.2 2003-03-24 11:14:51 pj Exp $ |
* $Id: fni_12.c,v 1.2 2003-03-24 11:14:51 pj Exp $ |
*/ |
void fftwi_no_twiddle_12(const fftw_complex *input, fftw_complex *output, int istride, int ostride) |
/shark/trunk/ports/fftw/fftw/ftwi_16.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:55:52 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -twiddleinv 16 */ |
36,9 → 36,9 |
/* |
* Generator Id's : |
* $Id: ftwi_16.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftwi_16.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftwi_16.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftwi_16.c,v 1.2 2003-03-24 11:14:53 pj Exp $ |
* $Id: ftwi_16.c,v 1.2 2003-03-24 11:14:53 pj Exp $ |
* $Id: ftwi_16.c,v 1.2 2003-03-24 11:14:53 pj Exp $ |
*/ |
void fftwi_twiddle_16(fftw_complex *A, const fftw_complex *W, int iostride, int m, int dist) |
/shark/trunk/ports/fftw/fftw/fni_14.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:54:52 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddleinv 14 */ |
39,9 → 39,9 |
/* |
* Generator Id's : |
* $Id: fni_14.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fni_14.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fni_14.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fni_14.c,v 1.2 2003-03-24 11:14:51 pj Exp $ |
* $Id: fni_14.c,v 1.2 2003-03-24 11:14:51 pj Exp $ |
* $Id: fni_14.c,v 1.2 2003-03-24 11:14:51 pj Exp $ |
*/ |
void fftwi_no_twiddle_14(const fftw_complex *input, fftw_complex *output, int istride, int ostride) |
/shark/trunk/ports/fftw/fftw/ftw_3.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:55:18 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -twiddle 3 */ |
35,9 → 35,9 |
/* |
* Generator Id's : |
* $Id: ftw_3.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: ftw_3.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: ftw_3.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: ftw_3.c,v 1.2 2003-03-24 11:14:52 pj Exp $ |
* $Id: ftw_3.c,v 1.2 2003-03-24 11:14:52 pj Exp $ |
* $Id: ftw_3.c,v 1.2 2003-03-24 11:14:52 pj Exp $ |
*/ |
void fftw_twiddle_3(fftw_complex *A, const fftw_complex *W, int iostride, int m, int dist) |
/shark/trunk/ports/fftw/fftw/fni_16.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:54:55 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddleinv 16 */ |
36,9 → 36,9 |
/* |
* Generator Id's : |
* $Id: fni_16.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fni_16.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fni_16.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fni_16.c,v 1.2 2003-03-24 11:14:51 pj Exp $ |
* $Id: fni_16.c,v 1.2 2003-03-24 11:14:51 pj Exp $ |
* $Id: fni_16.c,v 1.2 2003-03-24 11:14:51 pj Exp $ |
*/ |
void fftwi_no_twiddle_16(const fftw_complex *input, fftw_complex *output, int istride, int ostride) |
/shark/trunk/ports/fftw/fftw/ftw_5.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:55:19 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -twiddle 5 */ |
37,9 → 37,9 |
/* |
* Generator Id's : |
* $Id: ftw_5.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftw_5.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftw_5.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftw_5.c,v 1.2 2003-03-24 11:14:52 pj Exp $ |
* $Id: ftw_5.c,v 1.2 2003-03-24 11:14:52 pj Exp $ |
* $Id: ftw_5.c,v 1.2 2003-03-24 11:14:52 pj Exp $ |
*/ |
void fftw_twiddle_5(fftw_complex *A, const fftw_complex *W, int iostride, int m, int dist) |
/shark/trunk/ports/fftw/fftw/fn_2.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:54:26 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddle 2 */ |
33,9 → 33,9 |
/* |
* Generator Id's : |
* $Id: fn_2.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fn_2.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fn_2.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fn_2.c,v 1.2 2003-03-24 11:14:50 pj Exp $ |
* $Id: fn_2.c,v 1.2 2003-03-24 11:14:50 pj Exp $ |
* $Id: fn_2.c,v 1.2 2003-03-24 11:14:50 pj Exp $ |
*/ |
void fftw_no_twiddle_2(const fftw_complex *input, fftw_complex *output, int istride, int ostride) |
/shark/trunk/ports/fftw/fftw/ftw_7.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:55:20 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -twiddle 7 */ |
39,9 → 39,9 |
/* |
* Generator Id's : |
* $Id: ftw_7.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftw_7.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftw_7.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftw_7.c,v 1.2 2003-03-24 11:14:53 pj Exp $ |
* $Id: ftw_7.c,v 1.2 2003-03-24 11:14:53 pj Exp $ |
* $Id: ftw_7.c,v 1.2 2003-03-24 11:14:53 pj Exp $ |
*/ |
void fftw_twiddle_7(fftw_complex *A, const fftw_complex *W, int iostride, int m, int dist) |
/shark/trunk/ports/fftw/fftw/fn_4.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:54:27 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddle 4 */ |
33,9 → 33,9 |
/* |
* Generator Id's : |
* $Id: fn_4.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fn_4.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fn_4.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fn_4.c,v 1.2 2003-03-24 11:14:50 pj Exp $ |
* $Id: fn_4.c,v 1.2 2003-03-24 11:14:50 pj Exp $ |
* $Id: fn_4.c,v 1.2 2003-03-24 11:14:50 pj Exp $ |
*/ |
void fftw_no_twiddle_4(const fftw_complex *input, fftw_complex *output, int istride, int ostride) |
/shark/trunk/ports/fftw/fftw/ftw_9.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:55:22 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -twiddle 9 */ |
41,9 → 41,9 |
/* |
* Generator Id's : |
* $Id: ftw_9.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftw_9.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftw_9.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftw_9.c,v 1.2 2003-03-24 11:14:53 pj Exp $ |
* $Id: ftw_9.c,v 1.2 2003-03-24 11:14:53 pj Exp $ |
* $Id: ftw_9.c,v 1.2 2003-03-24 11:14:53 pj Exp $ |
*/ |
void fftw_twiddle_9(fftw_complex *A, const fftw_complex *W, int iostride, int m, int dist) |
/shark/trunk/ports/fftw/fftw/fn_6.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:54:27 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddle 6 */ |
35,9 → 35,9 |
/* |
* Generator Id's : |
* $Id: fn_6.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fn_6.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fn_6.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fn_6.c,v 1.2 2003-03-24 11:14:50 pj Exp $ |
* $Id: fn_6.c,v 1.2 2003-03-24 11:14:50 pj Exp $ |
* $Id: fn_6.c,v 1.2 2003-03-24 11:14:50 pj Exp $ |
*/ |
void fftw_no_twiddle_6(const fftw_complex *input, fftw_complex *output, int istride, int ostride) |
/shark/trunk/ports/fftw/fftw/fn_8.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:54:27 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddle 8 */ |
34,9 → 34,9 |
/* |
* Generator Id's : |
* $Id: fn_8.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fn_8.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fn_8.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fn_8.c,v 1.2 2003-03-24 11:14:51 pj Exp $ |
* $Id: fn_8.c,v 1.2 2003-03-24 11:14:51 pj Exp $ |
* $Id: fn_8.c,v 1.2 2003-03-24 11:14:51 pj Exp $ |
*/ |
void fftw_no_twiddle_8(const fftw_complex *input, fftw_complex *output, int istride, int ostride) |
/shark/trunk/ports/fftw/fftw/ftwi_3.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:55:46 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -twiddleinv 3 */ |
35,9 → 35,9 |
/* |
* Generator Id's : |
* $Id: ftwi_3.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftwi_3.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftwi_3.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftwi_3.c,v 1.2 2003-03-24 11:14:53 pj Exp $ |
* $Id: ftwi_3.c,v 1.2 2003-03-24 11:14:53 pj Exp $ |
* $Id: ftwi_3.c,v 1.2 2003-03-24 11:14:53 pj Exp $ |
*/ |
void fftwi_twiddle_3(fftw_complex *A, const fftw_complex *W, int iostride, int m, int dist) |
/shark/trunk/ports/fftw/fftw/ftwi_5.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:55:47 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -twiddleinv 5 */ |
37,9 → 37,9 |
/* |
* Generator Id's : |
* $Id: ftwi_5.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftwi_5.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftwi_5.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftwi_5.c,v 1.2 2003-03-24 11:14:53 pj Exp $ |
* $Id: ftwi_5.c,v 1.2 2003-03-24 11:14:53 pj Exp $ |
* $Id: ftwi_5.c,v 1.2 2003-03-24 11:14:53 pj Exp $ |
*/ |
void fftwi_twiddle_5(fftw_complex *A, const fftw_complex *W, int iostride, int m, int dist) |
/shark/trunk/ports/fftw/fftw/ftwi_7.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:55:48 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -twiddleinv 7 */ |
39,9 → 39,9 |
/* |
* Generator Id's : |
* $Id: ftwi_7.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftwi_7.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftwi_7.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftwi_7.c,v 1.2 2003-03-24 11:14:54 pj Exp $ |
* $Id: ftwi_7.c,v 1.2 2003-03-24 11:14:54 pj Exp $ |
* $Id: ftwi_7.c,v 1.2 2003-03-24 11:14:54 pj Exp $ |
*/ |
void fftwi_twiddle_7(fftw_complex *A, const fftw_complex *W, int iostride, int m, int dist) |
/shark/trunk/ports/fftw/fftw/planner.c |
---|
21,13 → 21,13 |
* planner.c -- find the optimal plan |
*/ |
/* $Id: planner.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ */ |
/* $Id: planner.c,v 1.2 2003-03-24 11:14:54 pj Exp $ */ |
#ifdef FFTW_USING_CILK |
#include <ports/cilk.h> |
#include <ports/cilk-compat.h> |
#include <cilk.h> |
#include <cilk-compat.h> |
#endif |
#include <ports/fftw-int.h> |
#include <fftw-int.h> |
#include <stdlib.h> |
//#include <ports/stdio.h> |
/shark/trunk/ports/fftw/fftw/ftwi_9.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:55:50 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -twiddleinv 9 */ |
41,9 → 41,9 |
/* |
* Generator Id's : |
* $Id: ftwi_9.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftwi_9.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftwi_9.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftwi_9.c,v 1.2 2003-03-24 11:14:54 pj Exp $ |
* $Id: ftwi_9.c,v 1.2 2003-03-24 11:14:54 pj Exp $ |
* $Id: ftwi_9.c,v 1.2 2003-03-24 11:14:54 pj Exp $ |
*/ |
void fftwi_twiddle_9(fftw_complex *A, const fftw_complex *W, int iostride, int m, int dist) |
/shark/trunk/ports/fftw/fftw/ftw_32.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:55:24 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -twiddle 32 */ |
40,9 → 40,9 |
/* |
* Generator Id's : |
* $Id: ftw_32.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftw_32.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftw_32.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftw_32.c,v 1.2 2003-03-24 11:14:52 pj Exp $ |
* $Id: ftw_32.c,v 1.2 2003-03-24 11:14:52 pj Exp $ |
* $Id: ftw_32.c,v 1.2 2003-03-24 11:14:52 pj Exp $ |
*/ |
void fftw_twiddle_32(fftw_complex *A, const fftw_complex *W, int iostride, int m, int dist) |
/shark/trunk/ports/fftw/fftw/wisdomio.c |
---|
20,7 → 20,7 |
//#include <ports/stdio.h> |
#include <stdlib.h> |
#include <ports/fftw-int.h> |
#include <fftw-int.h> |
/**************** import/export using file ***************/ |
/* |
/shark/trunk/ports/fftw/fftw/fni_1.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:54:42 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddleinv 1 */ |
33,9 → 33,9 |
/* |
* Generator Id's : |
* $Id: fni_1.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fni_1.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fni_1.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fni_1.c,v 1.2 2003-03-24 11:14:51 pj Exp $ |
* $Id: fni_1.c,v 1.2 2003-03-24 11:14:51 pj Exp $ |
* $Id: fni_1.c,v 1.2 2003-03-24 11:14:51 pj Exp $ |
*/ |
void fftwi_no_twiddle_1(const fftw_complex *input, fftw_complex *output, int istride, int ostride) |
/shark/trunk/ports/fftw/fftw/makefile |
---|
10,6 → 10,8 |
OBJS_PATH = $(BASE)/ports/fftw/fftw |
OTHERINCL += -I$(BASE)/ports/fftw/include |
OBJS = fn_1.o fn_2.o fn_3.o fn_4.o fn_5.o fn_6.o fn_7.o fn_8.o fn_9.o \ |
fn_10.o fn_11.o fn_12.o fn_13.o fn_14.o fn_15.o fn_16.o fn_32.o \ |
fn_64.o ftw_2.o ftw_3.o ftw_4.o ftw_5.o ftw_6.o ftw_7.o ftw_8.o \ |
/shark/trunk/ports/fftw/fftw/executor.c |
---|
21,12 → 21,12 |
* executor.c -- execute the fft |
*/ |
/* $Id: executor.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ */ |
#include <ports/fftw-int.h> |
/* $Id: executor.c,v 1.2 2003-03-24 11:14:50 pj Exp $ */ |
#include <fftw-int.h> |
//#include <ports/stdio.h> |
#include <stdlib.h> |
const char *fftw_version = "FFTW V" FFTW_VERSION " ($Id: executor.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $)"; |
const char *fftw_version = "FFTW V" FFTW_VERSION " ($Id: executor.c,v 1.2 2003-03-24 11:14:50 pj Exp $)"; |
/* |
* This function is called in other files, so we cannot declare |
/shark/trunk/ports/fftw/fftw/fni_3.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:54:43 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddleinv 3 */ |
35,9 → 35,9 |
/* |
* Generator Id's : |
* $Id: fni_3.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fni_3.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fni_3.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fni_3.c,v 1.2 2003-03-24 11:14:51 pj Exp $ |
* $Id: fni_3.c,v 1.2 2003-03-24 11:14:51 pj Exp $ |
* $Id: fni_3.c,v 1.2 2003-03-24 11:14:51 pj Exp $ |
*/ |
void fftwi_no_twiddle_3(const fftw_complex *input, fftw_complex *output, int istride, int ostride) |
/shark/trunk/ports/fftw/fftw/fni_5.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:54:44 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddleinv 5 */ |
37,9 → 37,9 |
/* |
* Generator Id's : |
* $Id: fni_5.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fni_5.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fni_5.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fni_5.c,v 1.2 2003-03-24 11:14:52 pj Exp $ |
* $Id: fni_5.c,v 1.2 2003-03-24 11:14:52 pj Exp $ |
* $Id: fni_5.c,v 1.2 2003-03-24 11:14:52 pj Exp $ |
*/ |
void fftwi_no_twiddle_5(const fftw_complex *input, fftw_complex *output, int istride, int ostride) |
/shark/trunk/ports/fftw/fftw/fni_7.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:54:45 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddleinv 7 */ |
39,9 → 39,9 |
/* |
* Generator Id's : |
* $Id: fni_7.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fni_7.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fni_7.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fni_7.c,v 1.2 2003-03-24 11:14:52 pj Exp $ |
* $Id: fni_7.c,v 1.2 2003-03-24 11:14:52 pj Exp $ |
* $Id: fni_7.c,v 1.2 2003-03-24 11:14:52 pj Exp $ |
*/ |
void fftwi_no_twiddle_7(const fftw_complex *input, fftw_complex *output, int istride, int ostride) |
/shark/trunk/ports/fftw/fftw/fni_9.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:54:47 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddleinv 9 */ |
41,9 → 41,9 |
/* |
* Generator Id's : |
* $Id: fni_9.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fni_9.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fni_9.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fni_9.c,v 1.2 2003-03-24 11:14:52 pj Exp $ |
* $Id: fni_9.c,v 1.2 2003-03-24 11:14:52 pj Exp $ |
* $Id: fni_9.c,v 1.2 2003-03-24 11:14:52 pj Exp $ |
*/ |
void fftwi_no_twiddle_9(const fftw_complex *input, fftw_complex *output, int istride, int ostride) |
/shark/trunk/ports/fftw/fftw/fn_11.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:54:28 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddle 11 */ |
43,9 → 43,9 |
/* |
* Generator Id's : |
* $Id: fn_11.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fn_11.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fn_11.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fn_11.c,v 1.2 2003-03-24 11:14:50 pj Exp $ |
* $Id: fn_11.c,v 1.2 2003-03-24 11:14:50 pj Exp $ |
* $Id: fn_11.c,v 1.2 2003-03-24 11:14:50 pj Exp $ |
*/ |
void fftw_no_twiddle_11(const fftw_complex *input, fftw_complex *output, int istride, int ostride) |
/shark/trunk/ports/fftw/fftw/fn_13.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:54:28 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddle 13 */ |
53,9 → 53,9 |
/* |
* Generator Id's : |
* $Id: fn_13.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fn_13.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fn_13.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fn_13.c,v 1.2 2003-03-24 11:14:50 pj Exp $ |
* $Id: fn_13.c,v 1.2 2003-03-24 11:14:50 pj Exp $ |
* $Id: fn_13.c,v 1.2 2003-03-24 11:14:50 pj Exp $ |
*/ |
void fftw_no_twiddle_13(const fftw_complex *input, fftw_complex *output, int istride, int ostride) |
/shark/trunk/ports/fftw/fftw/fn_32.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:54:31 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddle 32 */ |
40,9 → 40,9 |
/* |
* Generator Id's : |
* $Id: fn_32.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fn_32.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fn_32.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fn_32.c,v 1.2 2003-03-24 11:14:50 pj Exp $ |
* $Id: fn_32.c,v 1.2 2003-03-24 11:14:50 pj Exp $ |
* $Id: fn_32.c,v 1.2 2003-03-24 11:14:50 pj Exp $ |
*/ |
void fftw_no_twiddle_32(const fftw_complex *input, fftw_complex *output, int istride, int ostride) |
/shark/trunk/ports/fftw/fftw/malloc.c |
---|
21,13 → 21,13 |
* malloc.c -- memory allocation related functions |
*/ |
/* $Id: malloc.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ */ |
/* $Id: malloc.c,v 1.2 2003-03-24 11:14:54 pj Exp $ */ |
#ifdef FFTW_USING_CILK |
#include <ports/cilk.h> |
#include <ports/cilk-compat.h> |
#include <cilk.h> |
#include <cilk-compat.h> |
#endif |
#include <ports/fftw-int.h> |
#include <fftw-int.h> |
//#include <stdio.h> |
#include <stdlib.h> |
91,7 → 91,7 |
// fflush(stdout); |
// fprintf(stderr, "fftw: %s", s); |
kern_printf(s); |
printk(KERN_ERR "fftw: %s", s); |
sys_abort(EXIT_FAILURE); |
} |
/shark/trunk/ports/fftw/fftw/fn_15.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:54:30 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddle 15 */ |
39,9 → 39,9 |
/* |
* Generator Id's : |
* $Id: fn_15.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fn_15.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fn_15.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fn_15.c,v 1.2 2003-03-24 11:14:50 pj Exp $ |
* $Id: fn_15.c,v 1.2 2003-03-24 11:14:50 pj Exp $ |
* $Id: fn_15.c,v 1.2 2003-03-24 11:14:50 pj Exp $ |
*/ |
void fftw_no_twiddle_15(const fftw_complex *input, fftw_complex *output, int istride, int ostride) |
/shark/trunk/ports/fftw/fftw/ftw_64.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:55:27 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -twiddle 64 */ |
48,9 → 48,9 |
/* |
* Generator Id's : |
* $Id: ftw_64.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftw_64.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftw_64.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftw_64.c,v 1.2 2003-03-24 11:14:53 pj Exp $ |
* $Id: ftw_64.c,v 1.2 2003-03-24 11:14:53 pj Exp $ |
* $Id: ftw_64.c,v 1.2 2003-03-24 11:14:53 pj Exp $ |
*/ |
void fftw_twiddle_64(fftw_complex *A, const fftw_complex *W, int iostride, int m, int dist) |
/shark/trunk/ports/fftw/fftw/generic.c |
---|
22,7 → 22,7 |
* generic.c -- "generic" codelets. They work for all n (and they are |
* slow) |
*/ |
#include <ports/fftw-int.h> |
#include <fftw-int.h> |
#include <stdlib.h> |
void fftw_twiddle_generic(fftw_complex *A, const fftw_complex *W, |
/shark/trunk/ports/fftw/fftw/ftwi_32.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:55:53 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -twiddleinv 32 */ |
40,9 → 40,9 |
/* |
* Generator Id's : |
* $Id: ftwi_32.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftwi_32.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftwi_32.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftwi_32.c,v 1.2 2003-03-24 11:14:53 pj Exp $ |
* $Id: ftwi_32.c,v 1.2 2003-03-24 11:14:53 pj Exp $ |
* $Id: ftwi_32.c,v 1.2 2003-03-24 11:14:53 pj Exp $ |
*/ |
void fftwi_twiddle_32(fftw_complex *A, const fftw_complex *W, int iostride, int m, int dist) |
/shark/trunk/ports/fftw/fftw/fni_11.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:54:49 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddleinv 11 */ |
43,9 → 43,9 |
/* |
* Generator Id's : |
* $Id: fni_11.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fni_11.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fni_11.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fni_11.c,v 1.2 2003-03-24 11:14:51 pj Exp $ |
* $Id: fni_11.c,v 1.2 2003-03-24 11:14:51 pj Exp $ |
* $Id: fni_11.c,v 1.2 2003-03-24 11:14:51 pj Exp $ |
*/ |
void fftwi_no_twiddle_11(const fftw_complex *input, fftw_complex *output, int istride, int ostride) |
/shark/trunk/ports/fftw/fftw/fni_13.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:54:51 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddleinv 13 */ |
53,9 → 53,9 |
/* |
* Generator Id's : |
* $Id: fni_13.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fni_13.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fni_13.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fni_13.c,v 1.2 2003-03-24 11:14:51 pj Exp $ |
* $Id: fni_13.c,v 1.2 2003-03-24 11:14:51 pj Exp $ |
* $Id: fni_13.c,v 1.2 2003-03-24 11:14:51 pj Exp $ |
*/ |
void fftwi_no_twiddle_13(const fftw_complex *input, fftw_complex *output, int istride, int ostride) |
/shark/trunk/ports/fftw/fftw/fni_32.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:54:57 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddleinv 32 */ |
40,9 → 40,9 |
/* |
* Generator Id's : |
* $Id: fni_32.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fni_32.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fni_32.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fni_32.c,v 1.2 2003-03-24 11:14:51 pj Exp $ |
* $Id: fni_32.c,v 1.2 2003-03-24 11:14:51 pj Exp $ |
* $Id: fni_32.c,v 1.2 2003-03-24 11:14:51 pj Exp $ |
*/ |
void fftwi_no_twiddle_32(const fftw_complex *input, fftw_complex *output, int istride, int ostride) |
/shark/trunk/ports/fftw/fftw/ftw_2.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:55:18 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -twiddle 2 */ |
33,9 → 33,9 |
/* |
* Generator Id's : |
* $Id: ftw_2.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: ftw_2.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: ftw_2.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: ftw_2.c,v 1.2 2003-03-24 11:14:52 pj Exp $ |
* $Id: ftw_2.c,v 1.2 2003-03-24 11:14:52 pj Exp $ |
* $Id: ftw_2.c,v 1.2 2003-03-24 11:14:52 pj Exp $ |
*/ |
void fftw_twiddle_2(fftw_complex *A, const fftw_complex *W, int iostride, int m, int dist) |
/shark/trunk/ports/fftw/fftw/fni_15.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:54:55 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddleinv 15 */ |
39,9 → 39,9 |
/* |
* Generator Id's : |
* $Id: fni_15.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fni_15.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fni_15.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fni_15.c,v 1.2 2003-03-24 11:14:51 pj Exp $ |
* $Id: fni_15.c,v 1.2 2003-03-24 11:14:51 pj Exp $ |
* $Id: fni_15.c,v 1.2 2003-03-24 11:14:51 pj Exp $ |
*/ |
void fftwi_no_twiddle_15(const fftw_complex *input, fftw_complex *output, int istride, int ostride) |
/shark/trunk/ports/fftw/fftw/ftw_4.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:55:18 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -twiddle 4 */ |
33,9 → 33,9 |
/* |
* Generator Id's : |
* $Id: ftw_4.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftw_4.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftw_4.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftw_4.c,v 1.2 2003-03-24 11:14:52 pj Exp $ |
* $Id: ftw_4.c,v 1.2 2003-03-24 11:14:52 pj Exp $ |
* $Id: ftw_4.c,v 1.2 2003-03-24 11:14:52 pj Exp $ |
*/ |
void fftw_twiddle_4(fftw_complex *A, const fftw_complex *W, int iostride, int m, int dist) |
/shark/trunk/ports/fftw/fftw/fn_1.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:54:26 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddle 1 */ |
33,9 → 33,9 |
/* |
* Generator Id's : |
* $Id: fn_1.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fn_1.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fn_1.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fn_1.c,v 1.2 2003-03-24 11:14:50 pj Exp $ |
* $Id: fn_1.c,v 1.2 2003-03-24 11:14:50 pj Exp $ |
* $Id: fn_1.c,v 1.2 2003-03-24 11:14:50 pj Exp $ |
*/ |
void fftw_no_twiddle_1(const fftw_complex *input, fftw_complex *output, int istride, int ostride) |
/shark/trunk/ports/fftw/fftw/ftw_6.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:55:19 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -twiddle 6 */ |
35,9 → 35,9 |
/* |
* Generator Id's : |
* $Id: ftw_6.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftw_6.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftw_6.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftw_6.c,v 1.2 2003-03-24 11:14:52 pj Exp $ |
* $Id: ftw_6.c,v 1.2 2003-03-24 11:14:52 pj Exp $ |
* $Id: ftw_6.c,v 1.2 2003-03-24 11:14:52 pj Exp $ |
*/ |
void fftw_twiddle_6(fftw_complex *A, const fftw_complex *W, int iostride, int m, int dist) |
/shark/trunk/ports/fftw/fftw/fn_3.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:54:26 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddle 3 */ |
35,9 → 35,9 |
/* |
* Generator Id's : |
* $Id: fn_3.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fn_3.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fn_3.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fn_3.c,v 1.2 2003-03-24 11:14:50 pj Exp $ |
* $Id: fn_3.c,v 1.2 2003-03-24 11:14:50 pj Exp $ |
* $Id: fn_3.c,v 1.2 2003-03-24 11:14:50 pj Exp $ |
*/ |
void fftw_no_twiddle_3(const fftw_complex *input, fftw_complex *output, int istride, int ostride) |
/shark/trunk/ports/fftw/fftw/ftw_8.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:55:21 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -twiddle 8 */ |
34,9 → 34,9 |
/* |
* Generator Id's : |
* $Id: ftw_8.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftw_8.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftw_8.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftw_8.c,v 1.2 2003-03-24 11:14:53 pj Exp $ |
* $Id: ftw_8.c,v 1.2 2003-03-24 11:14:53 pj Exp $ |
* $Id: ftw_8.c,v 1.2 2003-03-24 11:14:53 pj Exp $ |
*/ |
void fftw_twiddle_8(fftw_complex *A, const fftw_complex *W, int iostride, int m, int dist) |
/shark/trunk/ports/fftw/fftw/fn_5.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:54:27 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddle 5 */ |
37,9 → 37,9 |
/* |
* Generator Id's : |
* $Id: fn_5.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fn_5.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fn_5.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fn_5.c,v 1.2 2003-03-24 11:14:50 pj Exp $ |
* $Id: fn_5.c,v 1.2 2003-03-24 11:14:50 pj Exp $ |
* $Id: fn_5.c,v 1.2 2003-03-24 11:14:50 pj Exp $ |
*/ |
void fftw_no_twiddle_5(const fftw_complex *input, fftw_complex *output, int istride, int ostride) |
/shark/trunk/ports/fftw/fftw/fftwnd.c |
---|
17,9 → 17,9 |
* |
*/ |
/* $Id: fftwnd.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ */ |
/* $Id: fftwnd.c,v 1.2 2003-03-24 11:14:50 pj Exp $ */ |
#include <ports/fftw-int.h> |
#include <fftw-int.h> |
/* the number of buffers to use for buffered transforms: */ |
#define FFTWND_NBUFFERS 8 |
/shark/trunk/ports/fftw/fftw/fn_7.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:54:27 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddle 7 */ |
39,9 → 39,9 |
/* |
* Generator Id's : |
* $Id: fn_7.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fn_7.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fn_7.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fn_7.c,v 1.2 2003-03-24 11:14:51 pj Exp $ |
* $Id: fn_7.c,v 1.2 2003-03-24 11:14:51 pj Exp $ |
* $Id: fn_7.c,v 1.2 2003-03-24 11:14:51 pj Exp $ |
*/ |
void fftw_no_twiddle_7(const fftw_complex *input, fftw_complex *output, int istride, int ostride) |
/shark/trunk/ports/fftw/fftw/ftwi_2.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:55:45 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -twiddleinv 2 */ |
33,9 → 33,9 |
/* |
* Generator Id's : |
* $Id: ftwi_2.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftwi_2.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftwi_2.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftwi_2.c,v 1.2 2003-03-24 11:14:53 pj Exp $ |
* $Id: ftwi_2.c,v 1.2 2003-03-24 11:14:53 pj Exp $ |
* $Id: ftwi_2.c,v 1.2 2003-03-24 11:14:53 pj Exp $ |
*/ |
void fftwi_twiddle_2(fftw_complex *A, const fftw_complex *W, int iostride, int m, int dist) |
/shark/trunk/ports/fftw/fftw/fn_9.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:54:27 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddle 9 */ |
41,9 → 41,9 |
/* |
* Generator Id's : |
* $Id: fn_9.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fn_9.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fn_9.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fn_9.c,v 1.2 2003-03-24 11:14:51 pj Exp $ |
* $Id: fn_9.c,v 1.2 2003-03-24 11:14:51 pj Exp $ |
* $Id: fn_9.c,v 1.2 2003-03-24 11:14:51 pj Exp $ |
*/ |
void fftw_no_twiddle_9(const fftw_complex *input, fftw_complex *output, int istride, int ostride) |
/shark/trunk/ports/fftw/fftw/ftwi_4.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:55:46 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -twiddleinv 4 */ |
33,9 → 33,9 |
/* |
* Generator Id's : |
* $Id: ftwi_4.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftwi_4.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftwi_4.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftwi_4.c,v 1.2 2003-03-24 11:14:53 pj Exp $ |
* $Id: ftwi_4.c,v 1.2 2003-03-24 11:14:53 pj Exp $ |
* $Id: ftwi_4.c,v 1.2 2003-03-24 11:14:53 pj Exp $ |
*/ |
void fftwi_twiddle_4(fftw_complex *A, const fftw_complex *W, int iostride, int m, int dist) |
/shark/trunk/ports/fftw/fftw/twiddle.c |
---|
23,13 → 23,13 |
* the inverse |
*/ |
/* $Id: twiddle.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ */ |
/* $Id: twiddle.c,v 1.2 2003-03-24 11:14:54 pj Exp $ */ |
#ifdef FFTW_USING_CILK |
#include <ports/cilk.h> |
#include <ports/cilk-compat.h> |
#include <cilk.h> |
#include <cilk-compat.h> |
#endif |
#include <ports/fftw-int.h> |
#include <fftw-int.h> |
#include <math.h> |
#include <stdlib.h> |
/shark/trunk/ports/fftw/fftw/rader.c |
---|
26,7 → 26,7 |
#include <stdlib.h> |
#include <math.h> |
#include <ports/fftw-int.h> |
#include <fftw-int.h> |
#ifdef FFTW_USING_CILK |
#include <ports/cilk.h> |
/shark/trunk/ports/fftw/fftw/ftwi_6.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:55:47 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -twiddleinv 6 */ |
35,9 → 35,9 |
/* |
* Generator Id's : |
* $Id: ftwi_6.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftwi_6.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftwi_6.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftwi_6.c,v 1.2 2003-03-24 11:14:53 pj Exp $ |
* $Id: ftwi_6.c,v 1.2 2003-03-24 11:14:53 pj Exp $ |
* $Id: ftwi_6.c,v 1.2 2003-03-24 11:14:53 pj Exp $ |
*/ |
void fftwi_twiddle_6(fftw_complex *A, const fftw_complex *W, int iostride, int m, int dist) |
/shark/trunk/ports/fftw/fftw/ftwi_8.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:55:49 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -twiddleinv 8 */ |
34,9 → 34,9 |
/* |
* Generator Id's : |
* $Id: ftwi_8.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftwi_8.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftwi_8.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftwi_8.c,v 1.2 2003-03-24 11:14:54 pj Exp $ |
* $Id: ftwi_8.c,v 1.2 2003-03-24 11:14:54 pj Exp $ |
* $Id: ftwi_8.c,v 1.2 2003-03-24 11:14:54 pj Exp $ |
*/ |
void fftwi_twiddle_8(fftw_complex *A, const fftw_complex *W, int iostride, int m, int dist) |
/shark/trunk/ports/fftw/fftw/ftw_10.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:55:22 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -twiddle 10 */ |
37,9 → 37,9 |
/* |
* Generator Id's : |
* $Id: ftw_10.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: ftw_10.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: ftw_10.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: ftw_10.c,v 1.2 2003-03-24 11:14:52 pj Exp $ |
* $Id: ftw_10.c,v 1.2 2003-03-24 11:14:52 pj Exp $ |
* $Id: ftw_10.c,v 1.2 2003-03-24 11:14:52 pj Exp $ |
*/ |
void fftw_twiddle_10(fftw_complex *A, const fftw_complex *W, int iostride, int m, int dist) |
/shark/trunk/ports/fftw/fftw/ftw_16.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:55:24 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -twiddle 16 */ |
36,9 → 36,9 |
/* |
* Generator Id's : |
* $Id: ftw_16.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: ftw_16.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: ftw_16.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: ftw_16.c,v 1.2 2003-03-24 11:14:52 pj Exp $ |
* $Id: ftw_16.c,v 1.2 2003-03-24 11:14:52 pj Exp $ |
* $Id: ftw_16.c,v 1.2 2003-03-24 11:14:52 pj Exp $ |
*/ |
void fftw_twiddle_16(fftw_complex *A, const fftw_complex *W, int iostride, int m, int dist) |
/shark/trunk/ports/fftw/fftw/fn_64.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:54:32 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddle 64 */ |
48,9 → 48,9 |
/* |
* Generator Id's : |
* $Id: fn_64.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fn_64.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fn_64.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fn_64.c,v 1.2 2003-03-24 11:14:50 pj Exp $ |
* $Id: fn_64.c,v 1.2 2003-03-24 11:14:50 pj Exp $ |
* $Id: fn_64.c,v 1.2 2003-03-24 11:14:50 pj Exp $ |
*/ |
void fftw_no_twiddle_64(const fftw_complex *input, fftw_complex *output, int istride, int ostride) |
/shark/trunk/ports/fftw/fftw/putils.c |
---|
22,13 → 22,13 |
* putils.c -- plan utilities shared by planner.c and rplanner.c |
*/ |
/* $Id: putils.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ */ |
/* $Id: putils.c,v 1.2 2003-03-24 11:14:54 pj Exp $ */ |
#ifdef FFTW_USING_CILK |
#include <ports/cilk.h> |
#include <ports/cilk-compat.h> |
#include <cilk.h> |
#include <cilk-compat.h> |
#endif |
#include <ports/fftw-int.h> |
#include <fftw-int.h> |
#include <stdlib.h> |
//#include <ports/stdio.h> |
/shark/trunk/ports/fftw/fftw/ftwi_64.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:55:56 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -twiddleinv 64 */ |
48,9 → 48,9 |
/* |
* Generator Id's : |
* $Id: ftwi_64.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftwi_64.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftwi_64.c,v 1.1.1.1 2002-03-29 14:12:57 pj Exp $ |
* $Id: ftwi_64.c,v 1.2 2003-03-24 11:14:54 pj Exp $ |
* $Id: ftwi_64.c,v 1.2 2003-03-24 11:14:54 pj Exp $ |
* $Id: ftwi_64.c,v 1.2 2003-03-24 11:14:54 pj Exp $ |
*/ |
void fftwi_twiddle_64(fftw_complex *A, const fftw_complex *W, int iostride, int m, int dist) |
/shark/trunk/ports/fftw/fftw/fni_64.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:54:58 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddleinv 64 */ |
48,9 → 48,9 |
/* |
* Generator Id's : |
* $Id: fni_64.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fni_64.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fni_64.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fni_64.c,v 1.2 2003-03-24 11:14:52 pj Exp $ |
* $Id: fni_64.c,v 1.2 2003-03-24 11:14:52 pj Exp $ |
* $Id: fni_64.c,v 1.2 2003-03-24 11:14:52 pj Exp $ |
*/ |
void fftwi_no_twiddle_64(const fftw_complex *input, fftw_complex *output, int istride, int ostride) |
/shark/trunk/ports/fftw/fftw/fni_2.c |
---|
20,8 → 20,8 |
/* This file was automatically generated --- DO NOT EDIT */ |
/* Generated on Tue May 18 13:54:42 EDT 1999 */ |
#include <ports/fftw-int.h> |
#include <ports/fftw.h> |
#include <fftw-int.h> |
#include <fftw.h> |
/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -notwiddleinv 2 */ |
33,9 → 33,9 |
/* |
* Generator Id's : |
* $Id: fni_2.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fni_2.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fni_2.c,v 1.1.1.1 2002-03-29 14:12:56 pj Exp $ |
* $Id: fni_2.c,v 1.2 2003-03-24 11:14:51 pj Exp $ |
* $Id: fni_2.c,v 1.2 2003-03-24 11:14:51 pj Exp $ |
* $Id: fni_2.c,v 1.2 2003-03-24 11:14:51 pj Exp $ |
*/ |
void fftwi_no_twiddle_2(const fftw_complex *input, fftw_complex *output, int istride, int ostride) |