diff options
Diffstat (limited to 'src/fftw3/api/apiplan.c')
-rw-r--r-- | src/fftw3/api/apiplan.c | 70 |
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); - } -} |