Chris@42: /* Chris@42: * Copyright (c) 2003, 2007-14 Matteo Frigo Chris@42: * Copyright (c) 2003, 2007-14 Massachusetts Institute of Technology Chris@42: * Chris@42: * This program is free software; you can redistribute it and/or modify Chris@42: * it under the terms of the GNU General Public License as published by Chris@42: * the Free Software Foundation; either version 2 of the License, or Chris@42: * (at your option) any later version. Chris@42: * Chris@42: * This program is distributed in the hope that it will be useful, Chris@42: * but WITHOUT ANY WARRANTY; without even the implied warranty of Chris@42: * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the Chris@42: * GNU General Public License for more details. Chris@42: * Chris@42: * You should have received a copy of the GNU General Public License Chris@42: * along with this program; if not, write to the Free Software Chris@42: * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA Chris@42: * Chris@42: */ Chris@42: Chris@42: Chris@42: #include "ifftw.h" Chris@42: Chris@42: tensor *X(mktensor_2d)(INT n0, INT is0, INT os0, Chris@42: INT n1, INT is1, INT os1) Chris@42: { Chris@42: tensor *x = X(mktensor)(2); Chris@42: x->dims[0].n = n0; Chris@42: x->dims[0].is = is0; Chris@42: x->dims[0].os = os0; Chris@42: x->dims[1].n = n1; Chris@42: x->dims[1].is = is1; Chris@42: x->dims[1].os = os1; Chris@42: return x; Chris@42: } Chris@42: Chris@42: Chris@42: tensor *X(mktensor_3d)(INT n0, INT is0, INT os0, Chris@42: INT n1, INT is1, INT os1, Chris@42: INT n2, INT is2, INT os2) Chris@42: { Chris@42: tensor *x = X(mktensor)(3); Chris@42: x->dims[0].n = n0; Chris@42: x->dims[0].is = is0; Chris@42: x->dims[0].os = os0; Chris@42: x->dims[1].n = n1; Chris@42: x->dims[1].is = is1; Chris@42: x->dims[1].os = os1; Chris@42: x->dims[2].n = n2; Chris@42: x->dims[2].is = is2; Chris@42: x->dims[2].os = os2; Chris@42: return x; Chris@42: }