summaryrefslogtreecommitdiff
path: root/src/fftw3/api/apiplan.c
diff options
context:
space:
mode:
authorscuri <scuri>2009-08-20 12:35:06 +0000
committerscuri <scuri>2009-08-20 12:35:06 +0000
commit5d735255ddd3cb2f547abd3d03969af3fb7eb04e (patch)
tree8fb66510bc625bb1b08ccb41f1b83fb0f7cb8f19 /src/fftw3/api/apiplan.c
parent35733b87eed86e5228f12fa10c98a3d9d22a6073 (diff)
*** empty log message ***
Diffstat (limited to 'src/fftw3/api/apiplan.c')
-rw-r--r--src/fftw3/api/apiplan.c70
1 files changed, 0 insertions, 70 deletions
diff --git a/src/fftw3/api/apiplan.c b/src/fftw3/api/apiplan.c
deleted file mode 100644
index b9fee6b..0000000
--- a/src/fftw3/api/apiplan.c
+++ /dev/null
@@ -1,70 +0,0 @@
-/*
- * Copyright (c) 2003 Matteo Frigo
- * Copyright (c) 2003 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"
-
-
-apiplan *X(mkapiplan)(int sign, unsigned flags, problem *prb)
-WITH_ALIGNED_STACK({
- plan *pln;
- plan *pln0;
- apiplan *p = 0;
- planner *plnr = X(the_planner)();
-
- /* map API flags into FFTW flags */
- X(mapflags)(plnr, flags);
-
- /* create plan */
- plnr->planner_flags &= ~BLESSING;
- pln = plnr->adt->mkplan(plnr, prb);
-
- if (pln) {
- AWAKE(pln, 1);
-
- /* build apiplan */
- p = (apiplan *) MALLOC(sizeof(apiplan), PLANS);
- p->pln = pln;
- p->prb = prb;
- p->sign = sign; /* cache for execute_dft */
-
- /* blessing protocol */
- plnr->planner_flags |= BLESSING;
- pln0 = plnr->adt->mkplan(plnr, prb);
- X(plan_destroy_internal)(pln0);
- } else {
- X(problem_destroy)(prb);
- }
-
- /* discard all information not necessary to reconstruct the
- plan */
- plnr->adt->forget(plnr, FORGET_ACCURSED);
-
- return p;
-})
-
-void X(destroy_plan)(X(plan) p)
-{
- if (p) {
- AWAKE(p->pln, 0);
- X(plan_destroy_internal)(p->pln);
- X(problem_destroy)(p->prb);
- X(ifree)(p);
- }
-}