fftw-3.2.1.rar

Linux下的快速傅里叶变换fftw-3.2.1，官网已没有资源，许多软件需要低版本的fftw才能正常使用

/*
 * Copyright （c） 2003 2007-8 Matteo Frigo
 * Copyright （c） 2003 2007-8 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
 *
 */

#include “api.h“

static plan *mkplan0（planner *plnr unsigned flags 
		     const problem *prb int hash_info 
		     wisdom_state_t wisdom_state）
WITH_ALIGNED_STACK（{
     /* map API flags into FFTW flags */
     X（mapflags）（plnr flags）;

     plnr->flags.hash_info = hash_info;
     plnr->wisdom_state = wisdom_state;

     /* create plan */
     return plnr->adt->mkplan（plnr prb）;
}）

static void aligned_awake（plan *ego enum wakefulness wakefulness）
WITH_ALIGNED_STACK（{
     X（plan_awake）（ego wakefulness）;
}）

static unsigned force_estimator（unsigned flags）
{
     flags &= ~（FFTW_MEASURE | FFTW_PATIENT | FFTW_EXHAUSTIVE）;
     return （flags | FFTW_ESTIMATE）;
}

static plan *mkplan（planner *plnr unsigned flags 
		    const problem *prb int hash_info）
{
     plan *pln;

     pln = mkplan0（plnr flags prb hash_info WISDOM_NORMAL）;

     if （plnr->wisdom_state == WISDOM_NORMAL && !pln） {
	  /* maybe the planner failed because of inconsistent wisdom;
	     plan again ignoring infeasible wisdom */
	  pln = mkplan0（plnr force_estimator（flags） prb 
			hash_info WISDOM_IGNORE_INFEASIBLE）;
     }

     if （plnr->wisdom_state == WISDOM_IS_BOGUS） {
	  /* if the planner detected a wisdom inconsistency
	     forget all wisdom and plan again */
	  plnr->adt->forget（plnr FORGET_EVERYTHING）;

	  A（!pln）;
	  pln = mkplan0（plnr flags prb hash_info WISDOM_NORMAL）;

	  if （plnr->wisdom_state == WISDOM_IS_BOGUS） {
	       /* if it still fails plan without wisdom */
	       plnr->adt->forget（plnr FORGET_EVERYTHING）;

	       A（!pln）;
	       pln = mkplan0（plnr force_estimator（flags） 
			     prb hash_info WISDOM_IGNORE_ALL）;
	  }
     }

     return pln;
}

apiplan *X（mkapiplan）（int sign unsigned flags problem *prb）
{
     apiplan *p = 0;
     plan *pln;
     unsigned flags_used_for_planning;
     planner *plnr = X（the_planner）（）;
     unsigned int pats[] = {FFTW_ESTIMATE FFTW_MEASURE
			    FFTW_PATIENT FFTW_EXHAUSTIVE};
     int pat pat_max;

     if （flags & FFTW_WISDOM_ONLY） {
	  /* Special mode that returns a plan only if wisdom is present
	     and returns 0 otherwise.  This is now documented in the manua

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件      34470  2009-02-10 08:50  fftw-3.2.1\aclocal.m4

     文件       3538  2008-11-11 09:18  fftw-3.2.1\api\api.h

     文件       5124  2008-11-11 09:18  fftw-3.2.1\api\apiplan.c

     文件       1109  2008-11-11 09:18  fftw-3.2.1\api\configure.c

     文件       1198  2008-11-11 09:18  fftw-3.2.1\api\execute-dft-c2r.c

     文件       1198  2008-11-11 09:18  fftw-3.2.1\api\execute-dft-r2c.c

     文件       1216  2008-11-11 09:18  fftw-3.2.1\api\execute-dft.c

     文件       1094  2008-11-11 09:18  fftw-3.2.1\api\execute-r2r.c

     文件       1203  2008-11-11 09:18  fftw-3.2.1\api\execute-split-dft-c2r.c

     文件       1200  2008-11-11 09:18  fftw-3.2.1\api\execute-split-dft-r2c.c

     文件       1124  2008-11-11 09:18  fftw-3.2.1\api\execute-split-dft.c

     文件        973  2008-11-11 09:18  fftw-3.2.1\api\execute.c

     文件       1058  2008-11-11 09:18  fftw-3.2.1\api\export-wisdom-to-file.c

     文件       1966  2008-11-11 09:18  fftw-3.2.1\api\export-wisdom-to-string.c

     文件       1381  2008-11-11 09:18  fftw-3.2.1\api\export-wisdom.c

     文件       4898  2008-11-11 09:18  fftw-3.2.1\api\f77api.c

     文件      14586  2008-11-11 09:18  fftw-3.2.1\api\f77funcs.h

     文件       2447  2009-02-10 08:57  fftw-3.2.1\api\fftw3.f

     文件      16123  2008-11-11 09:18  fftw-3.2.1\api\fftw3.h

     文件       1348  2008-11-11 09:18  fftw-3.2.1\api\flops.c

     文件        976  2008-11-11 09:18  fftw-3.2.1\api\forget-wisdom.c

     文件        145  2006-08-18 09:44  fftw-3.2.1\api\guru.h

     文件        153  2006-08-18 09:44  fftw-3.2.1\api\guru64.h

     文件       1524  2008-11-11 09:18  fftw-3.2.1\api\import-system-wisdom.c

     文件       2024  2008-11-11 09:18  fftw-3.2.1\api\import-wisdom-from-file.c

     文件       1453  2008-11-11 09:18  fftw-3.2.1\api\import-wisdom-from-string.c

     文件       1386  2008-11-11 09:18  fftw-3.2.1\api\import-wisdom.c

     文件       2285  2006-12-19 02:50  fftw-3.2.1\api\Makefile.am

     文件      24675  2009-02-10 08:50  fftw-3.2.1\api\Makefile.in

     文件        971  2008-11-11 09:18  fftw-3.2.1\api\malloc.c

............此处省略1116个文件信息