Mercurial > hg > sv-dependency-builds

annotate src/fftw-3.3.5/kernel/tensor9.c @ 54:5f67a29f0fc7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Rebuild MAD with 64-bit FPM
author Chris Cannam <cannam@all-day-breakfast.com>
date Wed, 30 Nov 2016 20:59:17 +0000
parents 2cd0e3b3e1fd
children
rev   line source
Chris@42 1 /*
Chris@42 2 * Copyright (c) 2003, 2007-14 Matteo Frigo
Chris@42 3 * Copyright (c) 2003, 2007-14 Massachusetts Institute of Technology
Chris@42 4 *
Chris@42 5 * This program is free software; you can redistribute it and/or modify
Chris@42 6 * it under the terms of the GNU General Public License as published by
Chris@42 7 * the Free Software Foundation; either version 2 of the License, or
Chris@42 8 * (at your option) any later version.
Chris@42 9 *
Chris@42 10 * This program is distributed in the hope that it will be useful,
Chris@42 11 * but WITHOUT ANY WARRANTY; without even the implied warranty of
Chris@42 12 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
Chris@42 13 * GNU General Public License for more details.
Chris@42 14 *
Chris@42 15 * You should have received a copy of the GNU General Public License
Chris@42 16 * along with this program; if not, write to the Free Software
Chris@42 17 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
Chris@42 18 *
Chris@42 19 */
Chris@42 20
Chris@42 21
Chris@42 22 #include "ifftw.h"
Chris@42 23
Chris@42 24 int X(tensor_kosherp)(const tensor *x)
Chris@42 25 {
Chris@42 26 int i;
Chris@42 27
Chris@42 28 if (x->rnk < 0) return 0;
Chris@42 29
Chris@42 30 if (FINITE_RNK(x->rnk)) {
Chris@42 31 for (i = 0; i < x->rnk; ++i)
Chris@42 32 if (x->dims[i].n < 0)
Chris@42 33 return 0;
Chris@42 34 }
Chris@42 35 return 1;
Chris@42 36 }