WebSVN - shark - Blame - Rev 2 - /shark/branches/pj/ports/fftw/rfftw/fhf

Rev	Author	Line No.	Line
2	pj	1	/*
		2	* Copyright (c) 1997-1999 Massachusetts Institute of Technology
		3	*
		4	* This program is free software; you can redistribute it and/or modify
		5	* it under the terms of the GNU General Public License as published by
		6	* the Free Software Foundation; either version 2 of the License, or
		7	* (at your option) any later version.
		8	*
		9	* This program is distributed in the hope that it will be useful,
		10	* but WITHOUT ANY WARRANTY; without even the implied warranty of
		11	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
		12	* GNU General Public License for more details.
		13	*
		14	* You should have received a copy of the GNU General Public License
		15	* along with this program; if not, write to the Free Software
		16	* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
		17	*
		18	*/
		19
		20	/* This file was automatically generated --- DO NOT EDIT */
		21	/* Generated on Tue May 18 13:55:31 EDT 1999 */
		22
		23	#include <ports/fftw-int.h>
		24	#include <ports/fftw.h>
		25
		26	/* Generated by: ./genfft -magic-alignment-check -magic-twiddle-load-all -magic-variables 4 -magic-loopi -hc2hc-forward 6 */
		27
		28	/*
		29	* This function contains 72 FP additions, 36 FP multiplications,
		30	* (or, 54 additions, 18 multiplications, 18 fused multiply/add),
		31	* 23 stack variables, and 48 memory accesses
		32	*/
		33	static const fftw_real K500000000 = FFTW_KONST(+0.500000000000000000000000000000000000000000000);
		34	static const fftw_real K866025403 = FFTW_KONST(+0.866025403784438646763723170752936183471402627);
		35
		36	/*
		37	* Generator Id's :
		38	* $Id: fhf_6.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $
		39	* $Id: fhf_6.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $
		40	* $Id: fhf_6.c,v 1.1.1.1 2002-03-29 14:12:58 pj Exp $
		41	*/
		42
		43	void fftw_hc2hc_forward_6(fftw_real A, const fftw_complex W, int iostride, int m, int dist)
		44	{
		45	int i;
		46	fftw_real *X;
		47	fftw_real *Y;
		48	X = A;
		49	Y = A + (6 * iostride);
		50	{
		51	fftw_real tmp71;
		52	fftw_real tmp81;
		53	fftw_real tmp77;
		54	fftw_real tmp79;
		55	fftw_real tmp74;
		56	fftw_real tmp80;
		57	fftw_real tmp69;
		58	fftw_real tmp70;
		59	fftw_real tmp78;
		60	fftw_real tmp82;
		61	ASSERT_ALIGNED_DOUBLE();
		62	tmp69 = X[0];
		63	tmp70 = X[3 * iostride];
		64	tmp71 = tmp69 - tmp70;
		65	tmp81 = tmp69 + tmp70;
		66	{
		67	fftw_real tmp75;
		68	fftw_real tmp76;
		69	fftw_real tmp72;
		70	fftw_real tmp73;
		71	ASSERT_ALIGNED_DOUBLE();
		72	tmp75 = X[4 * iostride];
		73	tmp76 = X[iostride];
		74	tmp77 = tmp75 - tmp76;
		75	tmp79 = tmp75 + tmp76;
		76	tmp72 = X[2 * iostride];
		77	tmp73 = X[5 * iostride];
		78	tmp74 = tmp72 - tmp73;
		79	tmp80 = tmp72 + tmp73;
		80	}
		81	Y[-iostride] = K866025403 * (tmp77 - tmp74);
		82	tmp78 = tmp74 + tmp77;
		83	X[iostride] = tmp71 - (K500000000 * tmp78);
		84	X[3 * iostride] = tmp71 + tmp78;
		85	Y[-2 * iostride] = -(K866025403 * (tmp79 - tmp80));
		86	tmp82 = tmp80 + tmp79;
		87	X[2 * iostride] = tmp81 - (K500000000 * tmp82);
		88	X[0] = tmp81 + tmp82;
		89	}
		90	X = X + dist;
		91	Y = Y - dist;
		92	for (i = 2; i < m; i = i + 2, X = X + dist, Y = Y - dist, W = W + 5) {
		93	fftw_real tmp19;
		94	fftw_real tmp43;
		95	fftw_real tmp62;
		96	fftw_real tmp66;
		97	fftw_real tmp41;
		98	fftw_real tmp45;
		99	fftw_real tmp53;
		100	fftw_real tmp57;
		101	fftw_real tmp30;
		102	fftw_real tmp44;
		103	fftw_real tmp50;
		104	fftw_real tmp56;
		105	ASSERT_ALIGNED_DOUBLE();
		106	{
		107	fftw_real tmp13;
		108	fftw_real tmp61;
		109	fftw_real tmp18;
		110	fftw_real tmp60;
		111	ASSERT_ALIGNED_DOUBLE();
		112	tmp13 = X[0];
		113	tmp61 = Y[-5 * iostride];
		114	{
		115	fftw_real tmp15;
		116	fftw_real tmp17;
		117	fftw_real tmp14;
		118	fftw_real tmp16;
		119	ASSERT_ALIGNED_DOUBLE();
		120	tmp15 = X[3 * iostride];
		121	tmp17 = Y[-2 * iostride];
		122	tmp14 = c_re(W[2]);
		123	tmp16 = c_im(W[2]);
		124	tmp18 = (tmp14 * tmp15) - (tmp16 * tmp17);
		125	tmp60 = (tmp16 * tmp15) + (tmp14 * tmp17);
		126	}
		127	tmp19 = tmp13 - tmp18;
		128	tmp43 = tmp13 + tmp18;
		129	tmp62 = tmp60 + tmp61;
		130	tmp66 = tmp61 - tmp60;
		131	}
		132	{
		133	fftw_real tmp35;
		134	fftw_real tmp51;
		135	fftw_real tmp40;
		136	fftw_real tmp52;
		137	ASSERT_ALIGNED_DOUBLE();
		138	{
		139	fftw_real tmp32;
		140	fftw_real tmp34;
		141	fftw_real tmp31;
		142	fftw_real tmp33;
		143	ASSERT_ALIGNED_DOUBLE();
		144	tmp32 = X[4 * iostride];
		145	tmp34 = Y[-iostride];
		146	tmp31 = c_re(W[3]);
		147	tmp33 = c_im(W[3]);
		148	tmp35 = (tmp31 * tmp32) - (tmp33 * tmp34);
		149	tmp51 = (tmp33 * tmp32) + (tmp31 * tmp34);
		150	}
		151	{
		152	fftw_real tmp37;
		153	fftw_real tmp39;
		154	fftw_real tmp36;
		155	fftw_real tmp38;
		156	ASSERT_ALIGNED_DOUBLE();
		157	tmp37 = X[iostride];
		158	tmp39 = Y[-4 * iostride];
		159	tmp36 = c_re(W[0]);
		160	tmp38 = c_im(W[0]);
		161	tmp40 = (tmp36 * tmp37) - (tmp38 * tmp39);
		162	tmp52 = (tmp38 * tmp37) + (tmp36 * tmp39);
		163	}
		164	tmp41 = tmp35 - tmp40;
		165	tmp45 = tmp35 + tmp40;
		166	tmp53 = tmp51 + tmp52;
		167	tmp57 = tmp51 - tmp52;
		168	}
		169	{
		170	fftw_real tmp24;
		171	fftw_real tmp48;
		172	fftw_real tmp29;
		173	fftw_real tmp49;
		174	ASSERT_ALIGNED_DOUBLE();
		175	{
		176	fftw_real tmp21;
		177	fftw_real tmp23;
		178	fftw_real tmp20;
		179	fftw_real tmp22;
		180	ASSERT_ALIGNED_DOUBLE();
		181	tmp21 = X[2 * iostride];
		182	tmp23 = Y[-3 * iostride];
		183	tmp20 = c_re(W[1]);
		184	tmp22 = c_im(W[1]);
		185	tmp24 = (tmp20 * tmp21) - (tmp22 * tmp23);
		186	tmp48 = (tmp22 * tmp21) + (tmp20 * tmp23);
		187	}
		188	{
		189	fftw_real tmp26;
		190	fftw_real tmp28;
		191	fftw_real tmp25;
		192	fftw_real tmp27;
		193	ASSERT_ALIGNED_DOUBLE();
		194	tmp26 = X[5 * iostride];
		195	tmp28 = Y[0];
		196	tmp25 = c_re(W[4]);
		197	tmp27 = c_im(W[4]);
		198	tmp29 = (tmp25 * tmp26) - (tmp27 * tmp28);
		199	tmp49 = (tmp27 * tmp26) + (tmp25 * tmp28);
		200	}
		201	tmp30 = tmp24 - tmp29;
		202	tmp44 = tmp24 + tmp29;
		203	tmp50 = tmp48 + tmp49;
		204	tmp56 = tmp48 - tmp49;
		205	}
		206	{
		207	fftw_real tmp58;
		208	fftw_real tmp42;
		209	fftw_real tmp55;
		210	fftw_real tmp68;
		211	fftw_real tmp65;
		212	fftw_real tmp67;
		213	ASSERT_ALIGNED_DOUBLE();
		214	tmp58 = K866025403 * (tmp56 - tmp57);
		215	tmp42 = tmp30 + tmp41;
		216	tmp55 = tmp19 - (K500000000 * tmp42);
		217	Y[-3 * iostride] = tmp19 + tmp42;
		218	X[iostride] = tmp55 + tmp58;
		219	Y[-5 * iostride] = tmp55 - tmp58;
		220	tmp68 = K866025403 * (tmp41 - tmp30);
		221	tmp65 = tmp56 + tmp57;
		222	tmp67 = tmp66 - (K500000000 * tmp65);
		223	X[3 * iostride] = -(tmp65 + tmp66);
		224	Y[-iostride] = tmp68 + tmp67;
		225	X[5 * iostride] = -(tmp67 - tmp68);
		226	}
		227	{
		228	fftw_real tmp54;
		229	fftw_real tmp46;
		230	fftw_real tmp47;
		231	fftw_real tmp63;
		232	fftw_real tmp59;
		233	fftw_real tmp64;
		234	ASSERT_ALIGNED_DOUBLE();
		235	tmp54 = K866025403 * (tmp50 - tmp53);
		236	tmp46 = tmp44 + tmp45;
		237	tmp47 = tmp43 - (K500000000 * tmp46);
		238	X[0] = tmp43 + tmp46;
		239	Y[-4 * iostride] = tmp47 + tmp54;
		240	X[2 * iostride] = tmp47 - tmp54;
		241	tmp63 = K866025403 * (tmp45 - tmp44);
		242	tmp59 = tmp50 + tmp53;
		243	tmp64 = tmp62 - (K500000000 * tmp59);
		244	Y[0] = tmp59 + tmp62;
		245	Y[-2 * iostride] = tmp64 - tmp63;
		246	X[4 * iostride] = -(tmp63 + tmp64);
		247	}
		248	}
		249	if (i == m) {
		250	fftw_real tmp1;
		251	fftw_real tmp11;
		252	fftw_real tmp4;
		253	fftw_real tmp9;
		254	fftw_real tmp8;
		255	fftw_real tmp10;
		256	fftw_real tmp5;
		257	fftw_real tmp12;
		258	ASSERT_ALIGNED_DOUBLE();
		259	tmp1 = X[0];
		260	tmp11 = X[3 * iostride];
		261	{
		262	fftw_real tmp2;
		263	fftw_real tmp3;
		264	fftw_real tmp6;
		265	fftw_real tmp7;
		266	ASSERT_ALIGNED_DOUBLE();
		267	tmp2 = X[2 * iostride];
		268	tmp3 = X[4 * iostride];
		269	tmp4 = tmp2 - tmp3;
		270	tmp9 = K866025403 * (tmp2 + tmp3);
		271	tmp6 = X[iostride];
		272	tmp7 = X[5 * iostride];
		273	tmp8 = K866025403 * (tmp6 - tmp7);
		274	tmp10 = tmp6 + tmp7;
		275	}
		276	X[iostride] = tmp1 - tmp4;
		277	tmp5 = tmp1 + (K500000000 * tmp4);
		278	X[2 * iostride] = tmp5 - tmp8;
		279	X[0] = tmp5 + tmp8;
		280	Y[-iostride] = tmp11 - tmp10;
		281	tmp12 = (K500000000 * tmp10) + tmp11;
		282	Y[0] = -(tmp9 + tmp12);
		283	Y[-2 * iostride] = tmp9 - tmp12;
		284	}
		285	}
		286
		287	static const int twiddle_order[] =
		288	{1, 2, 3, 4, 5};
		289	fftw_codelet_desc fftw_hc2hc_forward_6_desc =
		290	{
		291	"fftw_hc2hc_forward_6",
		292	(void (*)()) fftw_hc2hc_forward_6,
		293	6,
		294	FFTW_FORWARD,
		295	FFTW_HC2HC,
		296	135,
		297	5,
		298	twiddle_order,
		299	};

Subversion Repositories shark

(root)/shark/branches/pj/ports/fftw/rfftw/fhf_6.c - Rev 2