t2_25.c

快速fft变换

			 }
			 T3i = T3g - T3h;
			 T3l = T3j - T3k;
			 T3w = T1D - T1I;
			 T3v = T1u - T1x;
			 T3o = T3g + T3h;
			 T3p = T3j + T3k;
			 T3s = T3o + T3p;
			 T1y = T1u + T1x;
			 T1J = T1D + T1I;
			 T1K = T1y + T1J;
		    }
		    T1L = T1r + T1K;
		    T6h = T3r + T3s;
		    {
			 E T3m, T5f, T3f, T5e, T3d, T3e;
			 T3m = FMA(KP951056516, T3i, KP587785252 * T3l);
			 T5f = FNMS(KP587785252, T3i, KP951056516 * T3l);
			 T3d = KP559016994 * (T1y - T1J);
			 T3e = FNMS(KP250000000, T1K, T1r);
			 T3f = T3d + T3e;
			 T5e = T3e - T3d;
			 T3n = T3f + T3m;
			 T5Q = T5e + T5f;
			 T4D = T3f - T3m;
			 T5g = T5e - T5f;
		    }
		    {
			 E T3x, T5b, T3u, T5c, T3q, T3t;
			 T3x = FMA(KP951056516, T3v, KP587785252 * T3w);
			 T5b = FNMS(KP587785252, T3v, KP951056516 * T3w);
			 T3q = KP559016994 * (T3o - T3p);
			 T3t = FNMS(KP250000000, T3s, T3r);
			 T3u = T3q + T3t;
			 T5c = T3t - T3q;
			 T3y = T3u - T3x;
			 T5P = T5c - T5b;
			 T4E = T3x + T3u;
			 T5d = T5b + T5c;
		    }
	       }
	       {
		    E T1P, T3P, T3G, T3J, T3U, T3T, T3M, T3N, T3Q, T20, T2b, T2c, T1N, T1O;
		    T1N = ri[WS(rs, 2)];
		    T1O = ii[WS(rs, 2)];
		    T1P = FMA(T14, T1N, T16 * T1O);
		    T3P = FNMS(T16, T1N, T14 * T1O);
		    {
			 E T1U, T3E, T2a, T3I, T1Z, T3F, T25, T3H;
			 {
			      E T1R, T1T, T27, T29;
			      T1R = ri[WS(rs, 7)];
			      T1T = ii[WS(rs, 7)];
			      T1U = FMA(T1Q, T1R, T1S * T1T);
			      T3E = FNMS(T1S, T1R, T1Q * T1T);
			      T27 = ri[WS(rs, 17)];
			      T29 = ii[WS(rs, 17)];
			      T2a = FMA(T26, T27, T28 * T29);
			      T3I = FNMS(T28, T27, T26 * T29);
			 }
			 {
			      E T1W, T1Y, T22, T24;
			      T1W = ri[WS(rs, 22)];
			      T1Y = ii[WS(rs, 22)];
			      T1Z = FMA(T1V, T1W, T1X * T1Y);
			      T3F = FNMS(T1X, T1W, T1V * T1Y);
			      T22 = ri[WS(rs, 12)];
			      T24 = ii[WS(rs, 12)];
			      T25 = FMA(T21, T22, T23 * T24);
			      T3H = FNMS(T23, T22, T21 * T24);
			 }
			 T3G = T3E - T3F;
			 T3J = T3H - T3I;
			 T3U = T25 - T2a;
			 T3T = T1U - T1Z;
			 T3M = T3E + T3F;
			 T3N = T3H + T3I;
			 T3Q = T3M + T3N;
			 T20 = T1U + T1Z;
			 T2b = T25 + T2a;
			 T2c = T20 + T2b;
		    }
		    T2d = T1P + T2c;
		    T6j = T3P + T3Q;
		    {
			 E T3K, T5k, T3D, T5j, T3B, T3C;
			 T3K = FMA(KP951056516, T3G, KP587785252 * T3J);
			 T5k = FNMS(KP587785252, T3G, KP951056516 * T3J);
			 T3B = KP559016994 * (T20 - T2b);
			 T3C = FNMS(KP250000000, T2c, T1P);
			 T3D = T3B + T3C;
			 T5j = T3C - T3B;
			 T3L = T3D + T3K;
			 T5T = T5j + T5k;
			 T4I = T3D - T3K;
			 T5l = T5j - T5k;
		    }
		    {
			 E T3V, T5m, T3S, T5n, T3O, T3R;
			 T3V = FMA(KP951056516, T3T, KP587785252 * T3U);
			 T5m = FNMS(KP587785252, T3T, KP951056516 * T3U);
			 T3O = KP559016994 * (T3M - T3N);
			 T3R = FNMS(KP250000000, T3Q, T3P);
			 T3S = T3O + T3R;
			 T5n = T3R - T3O;
			 T3W = T3S - T3V;
			 T5U = T5n - T5m;
			 T4H = T3V + T3S;
			 T5o = T5m + T5n;
		    }
	       }
	       {
		    E T6m, T6o, TL, T2E, T6d, T6e, T6n, T6f;
		    {
			 E T6i, T6l, T1M, T2D;
			 T6i = T6g - T6h;
			 T6l = T6j - T6k;
			 T6m = FMA(KP951056516, T6i, KP587785252 * T6l);
			 T6o = FNMS(KP587785252, T6i, KP951056516 * T6l);
			 TL = T1 + TK;
			 T1M = T1o + T1L;
			 T2D = T2d + T2C;
			 T2E = T1M + T2D;
			 T6d = KP559016994 * (T1M - T2D);
			 T6e = FNMS(KP250000000, T2E, TL);
		    }
		    ri[0] = TL + T2E;
		    T6n = T6e - T6d;
		    ri[WS(rs, 10)] = T6n - T6o;
		    ri[WS(rs, 15)] = T6n + T6o;
		    T6f = T6d + T6e;
		    ri[WS(rs, 20)] = T6f - T6m;
		    ri[WS(rs, 5)] = T6f + T6m;
	       }
	       {
		    E T6C, T6D, T6w, T6r, T6x, T6y, T6E, T6z;
		    {
			 E T6A, T6B, T6p, T6q;
			 T6A = T1o - T1L;
			 T6B = T2d - T2C;
			 T6C = FMA(KP951056516, T6A, KP587785252 * T6B);
			 T6D = FNMS(KP587785252, T6A, KP951056516 * T6B);
			 T6w = T6u + T6v;
			 T6p = T6g + T6h;
			 T6q = T6j + T6k;
			 T6r = T6p + T6q;
			 T6x = KP559016994 * (T6p - T6q);
			 T6y = FNMS(KP250000000, T6r, T6w);
		    }
		    ii[0] = T6r + T6w;
		    T6E = T6y - T6x;
		    ii[WS(rs, 10)] = T6D + T6E;
		    ii[WS(rs, 15)] = T6E - T6D;
		    T6z = T6x + T6y;
		    ii[WS(rs, 5)] = T6z - T6C;
		    ii[WS(rs, 20)] = T6C + T6z;
	       }
	       {
		    E T2P, T4z, T6O, T70, T4m, T6T, T4n, T6S, T4U, T71, T4X, T6Z, T4O, T75, T4P;
		    E T74, T4s, T6P, T4v, T6H, T2H, T6K;
		    T2H = T2F + T2G;
		    T2P = T2H + T2O;
		    T4z = T2H - T2O;
		    T6K = T6I + T6J;
		    T6O = T6K - T6N;
		    T70 = T6N + T6K;
		    {
			 E T3c, T3z, T3A, T3X, T4k, T4l;
			 T3c = FMA(KP968583161, T30, KP248689887 * T3b);
			 T3z = FMA(KP535826794, T3n, KP844327925 * T3y);
			 T3A = T3c + T3z;
			 T3X = FMA(KP876306680, T3L, KP481753674 * T3W);
			 T4k = FMA(KP728968627, T48, KP684547105 * T4j);
			 T4l = T3X + T4k;
			 T4m = T3A + T4l;
			 T6T = T3X - T4k;
			 T4n = KP559016994 * (T3A - T4l);
			 T6S = T3c - T3z;
		    }
		    {
			 E T4S, T4T, T6X, T4V, T4W, T6Y;
			 T4S = FNMS(KP844327925, T4A, KP535826794 * T4B);
			 T4T = FNMS(KP637423989, T4E, KP770513242 * T4D);
			 T6X = T4S + T4T;
			 T4V = FMA(KP125333233, T4L, KP992114701 * T4K);
			 T4W = FMA(KP904827052, T4I, KP425779291 * T4H);
			 T6Y = T4W + T4V;
			 T4U = T4S - T4T;
			 T71 = KP559016994 * (T6X + T6Y);
			 T4X = T4V - T4W;
			 T6Z = T6X - T6Y;
		    }
		    {
			 E T4C, T4F, T4G, T4J, T4M, T4N;
			 T4C = FMA(KP535826794, T4A, KP844327925 * T4B);
			 T4F = FMA(KP637423989, T4D, KP770513242 * T4E);
			 T4G = T4C - T4F;
			 T4J = FNMS(KP425779291, T4I, KP904827052 * T4H);
			 T4M = FNMS(KP992114701, T4L, KP125333233 * T4K);
			 T4N = T4J + T4M;
			 T4O = T4G + T4N;
			 T75 = T4J - T4M;
			 T4P = KP559016994 * (T4G - T4N);
			 T74 = T4C + T4F;
		    }
		    {
			 E T4q, T4r, T6F, T4t, T4u, T6G;
			 T4q = FNMS(KP248689887, T30, KP968583161 * T3b);
			 T4r = FNMS(KP844327925, T3n, KP535826794 * T3y);
			 T6F = T4q + T4r;
			 T4t = FNMS(KP481753674, T3L, KP876306680 * T3W);
			 T4u = FNMS(KP684547105, T48, KP728968627 * T4j);
			 T6G = T4t + T4u;
			 T4s = T4q - T4r;
			 T6P = KP559016994 * (T6F - T6G);
			 T4v = T4t - T4u;
			 T6H = T6F + T6G;
		    }
		    ri[WS(rs, 1)] = T2P + T4m;
		    ii[WS(rs, 1)] = T6H + T6O;
		    ri[WS(rs, 4)] = T4z + T4O;
		    ii[WS(rs, 4)] = T6Z + T70;
		    {
			 E T4w, T4y, T4p, T4x, T4o;
			 T4w = FMA(KP951056516, T4s, KP587785252 * T4v);
			 T4y = FNMS(KP587785252, T4s, KP951056516 * T4v);
			 T4o = FNMS(KP250000000, T4m, T2P);
			 T4p = T4n + T4o;
			 T4x = T4o - T4n;
			 ri[WS(rs, 21)] = T4p - T4w;
			 ri[WS(rs, 16)] = T4x + T4y;
			 ri[WS(rs, 6)] = T4p + T4w;
			 ri[WS(rs, 11)] = T4x - T4y;
		    }
		    {
			 E T6U, T6V, T6R, T6W, T6Q;
			 T6U = FMA(KP951056516, T6S, KP587785252 * T6T);
			 T6V = FNMS(KP587785252, T6S, KP951056516 * T6T);
			 T6Q = FNMS(KP250000000, T6H, T6O);
			 T6R = T6P + T6Q;
			 T6W = T6Q - T6P;
			 ii[WS(rs, 6)] = T6R - T6U;
			 ii[WS(rs, 16)] = T6W - T6V;
			 ii[WS(rs, 21)] = T6U + T6R;
			 ii[WS(rs, 11)] = T6V + T6W;
		    }
		    {
			 E T4Y, T50, T4R, T4Z, T4Q;
			 T4Y = FMA(KP951056516, T4U, KP587785252 * T4X);
			 T50 = FNMS(KP587785252, T4U, KP951056516 * T4X);
			 T4Q = FNMS(KP250000000, T4O, T4z);
			 T4R = T4P + T4Q;
			 T4Z = T4Q - T4P;
			 ri[WS(rs, 24)] = T4R - T4Y;
			 ri[WS(rs, 19)] = T4Z + T50;
			 ri[WS(rs, 9)] = T4R + T4Y;
			 ri[WS(rs, 14)] = T4Z - T50;
		    }
		    {
			 E T76, T77, T73, T78, T72;
			 T76 = FMA(KP951056516, T74, KP587785252 * T75);
			 T77 = FNMS(KP587785252, T74, KP951056516 * T75);
			 T72 = FNMS(KP250000000, T6Z, T70);
			 T73 = T71 + T72;
			 T78 = T72 - T71;
			 ii[WS(rs, 9)] = T73 - T76;
			 ii[WS(rs, 19)] = T78 - T77;
			 ii[WS(rs, 24)] = T76 + T73;
			 ii[WS(rs, 14)] = T77 + T78;
		    }
	       }
	       {
		    E T53, T5L, T7e, T7q, T5y, T7j, T5z, T7i, T66, T7r, T69, T7p, T60, T7v, T61;
		    E T7u, T5E, T7f, T5H, T7b, T51, T7d;
		    T51 = T2G - T2F;
		    T53 = T51 - T52;
		    T5L = T51 + T52;
		    T7d = T6J - T6I;
		    T7e = T7c + T7d;
		    T7q = T7d - T7c;
		    {
			 E T5a, T5h, T5i, T5p, T5w, T5x;
			 T5a = FMA(KP876306680, T56, KP481753674 * T59);
			 T5h = FNMS(KP425779291, T5g, KP904827052 * T5d);
			 T5i = T5a + T5h;
			 T5p = FMA(KP535826794, T5l, KP844327925 * T5o);
			 T5w = FMA(KP062790519, T5s, KP998026728 * T5v);
			 T5x = T5p + T5w;
			 T5y = T5i + T5x;
			 T7j = T5p - T5w;
			 T5z = KP559016994 * (T5i - T5x);
			 T7i = T5a - T5h;
		    }
		    {
			 E T64, T65, T7n, T67, T68, T7o;
			 T64 = FNMS(KP684547105, T5M, KP728968627 * T5N);
			 T65 = FMA(KP125333233, T5Q, KP992114701 * T5P);
			 T7n = T64 - T65;
			 T67 = FNMS(KP998026728, T5T, KP062790519 * T5U);
			 T68 = FMA(KP770513242, T5X, KP637423989 * T5W);
			 T7o = T67 - T68;
			 T66 = T64 + T65;
			 T7r = KP559016994 * (T7n - T7o);
			 T69 = T67 + T68;
			 T7p = T7n + T7o;
		    }
		    {
			 E T5O, T5R, T5S, T5V, T5Y, T5Z;
			 T5O = FMA(KP728968627, T5M, KP684547105 * T5N);
			 T5R = FNMS(KP992114701, T5Q, KP125333233 * T5P);
			 T5S = T5O + T5R;
			 T5V = FMA(KP062790519, T5T, KP998026728 * T5U);
			 T5Y = FNMS(KP637423989, T5X, KP770513242 * T5W);
			 T5Z = T5V + T5Y;
			 T60 = T5S + T5Z;
			 T7v = T5V - T5Y;
			 T61 = KP559016994 * (T5S - T5Z);
			 T7u = T5O - T5R;
		    }
		    {
			 E T5C, T5D, T79, T5F, T5G, T7a;
			 T5C = FNMS(KP481753674, T56, KP876306680 * T59);
			 T5D = FMA(KP904827052, T5g, KP425779291 * T5d);
			 T79 = T5C - T5D;
			 T5F = FNMS(KP844327925, T5l, KP535826794 * T5o);
			 T5G = FNMS(KP998026728, T5s, KP062790519 * T5v);
			 T7a = T5F + T5G;
			 T5E = T5C + T5D;
			 T7f = KP559016994 * (T79 - T7a);
			 T5H = T5F - T5G;
			 T7b = T79 + T7a;
		    }
		    ri[WS(rs, 2)] = T53 + T5y;
		    ii[WS(rs, 2)] = T7b + T7e;
		    ri[WS(rs, 3)] = T5L + T60;
		    ii[WS(rs, 3)] = T7p + T7q;
		    {
			 E T5I, T5K, T5B, T5J, T5A;
			 T5I = FMA(KP951056516, T5E, KP587785252 * T5H);
			 T5K = FNMS(KP587785252, T5E, KP951056516 * T5H);
			 T5A = FNMS(KP250000000, T5y, T53);
			 T5B = T5z + T5A;
			 T5J = T5A - T5z;
			 ri[WS(rs, 22)] = T5B - T5I;
			 ri[WS(rs, 17)] = T5J + T5K;
			 ri[WS(rs, 7)] = T5B + T5I;
			 ri[WS(rs, 12)] = T5J - T5K;
		    }
		    {
			 E T7k, T7l, T7h, T7m, T7g;
			 T7k = FMA(KP951056516, T7i, KP587785252 * T7j);
			 T7l = FNMS(KP587785252, T7i, KP951056516 * T7j);
			 T7g = FNMS(KP250000000, T7b, T7e);
			 T7h = T7f + T7g;
			 T7m = T7g - T7f;
			 ii[WS(rs, 7)] = T7h - T7k;
			 ii[WS(rs, 17)] = T7m - T7l;
			 ii[WS(rs, 22)] = T7k + T7h;
			 ii[WS(rs, 12)] = T7l + T7m;
		    }
		    {
			 E T6a, T6c, T63, T6b, T62;
			 T6a = FMA(KP951056516, T66, KP587785252 * T69);
			 T6c = FNMS(KP587785252, T66, KP951056516 * T69);
			 T62 = FNMS(KP250000000, T60, T5L);
			 T63 = T61 + T62;
			 T6b = T62 - T61;
			 ri[WS(rs, 23)] = T63 - T6a;
			 ri[WS(rs, 18)] = T6b + T6c;
			 ri[WS(rs, 8)] = T63 + T6a;
			 ri[WS(rs, 13)] = T6b - T6c;
		    }
		    {
			 E T7w, T7x, T7t, T7y, T7s;
			 T7w = FMA(KP951056516, T7u, KP587785252 * T7v);
			 T7x = FNMS(KP587785252, T7u, KP951056516 * T7v);
			 T7s = FNMS(KP250000000, T7p, T7q);
			 T7t = T7r + T7s;
			 T7y = T7s - T7r;
			 ii[WS(rs, 8)] = T7t - T7w;
			 ii[WS(rs, 18)] = T7y - T7x;
			 ii[WS(rs, 23)] = T7w + T7t;
			 ii[WS(rs, 13)] = T7x + T7y;
		    }
	       }
	  }
     }
}

static const tw_instr twinstr[] = {
     {TW_CEXP, 0, 1},
     {TW_CEXP, 0, 3},
     {TW_CEXP, 0, 9},
     {TW_CEXP, 0, 24},
     {TW_NEXT, 1, 0}
};

static const ct_desc desc = { 25, "t2_25", twinstr, &GENUS, {280, 180, 160, 0}, 0, 0, 0 };

void X(codelet_t2_25) (planner *p) {
     X(kdft_dit_register) (p, t2_25, &desc);
}
#endif				/* HAVE_FMA */