?? hc2cbdft2_32.c
字號:
T3Q = T3o - T3h; T3p = T3h + T3o; } T3t = W[30]; T3w = W[31]; T3q = T3a + T3p; T3x = T3p - T3a; T3v = T3t * T3u; T3F = T3w * T3u; { E T1H, T2A, T2Q, T2T; T3U = FNMS(KP923879532, T1G, T1j); T1H = FMA(KP923879532, T1G, T1j); T2A = T28 + T2z; T40 = T2z - T28; T3Z = FNMS(KP923879532, T2P, T2M); T2Q = FMA(KP923879532, T2P, T2M); T2T = T2R + T2S; T3V = T2R - T2S; T12 = W[0]; T3A = FNMS(KP980785280, T2A, T1H); T2B = FMA(KP980785280, T2A, T1H); T3D = FNMS(KP980785280, T2T, T2Q); T2U = FMA(KP980785280, T2T, T2Q); T3z = W[32]; T2C = T12 * T2B; } } { E T2V, T3s, T2D, T3r; T2D = W[1]; T3r = T12 * T2U; T3H = T3z * T3D; T3B = T3z * T3A; T2V = FMA(T2D, T2U, T2C); T3s = FNMS(T2D, T2B, T3r); T3y = FNMS(T3w, T3x, T3v); T3G = FMA(T3t, T3x, T3F); Rm[0] = T11 + T2V; Rp[0] = T11 - T2V; Im[0] = T3s - T3q; Ip[0] = T3q + T3s; T3C = W[33]; } } { E T4b, T3R, T47, T4a, T3J, T49, T4j, T3O, T3N, T43, T3W, T3T, T41, T4d, T3X; E T45, T3Y; { E T3M, T48, T3I, T3E; T3M = T3K + T3L; T48 = T3K - T3L; T3I = FNMS(T3C, T3A, T3H); T3E = FMA(T3C, T3D, T3B); T4b = T3Q - T3P; T3R = T3P + T3Q; Im[WS(rs, 8)] = T3I - T3G; Ip[WS(rs, 8)] = T3G + T3I; Rm[WS(rs, 8)] = T3y + T3E; Rp[WS(rs, 8)] = T3y - T3E; T47 = W[46]; T4a = W[47]; T3J = W[14]; T49 = T47 * T48; T4j = T4a * T48; T3O = W[15]; T3N = T3J * T3M; T43 = T3O * T3M; T3W = FMA(KP980785280, T3V, T3U); T4e = FNMS(KP980785280, T3V, T3U); T3T = W[16]; T4h = FNMS(KP980785280, T40, T3Z); T41 = FMA(KP980785280, T40, T3Z); T4d = W[48]; T3X = T3T * T3W; } T3S = FNMS(T3O, T3R, T3N); T45 = T3T * T41; T4l = T4d * T4h; T4f = T4d * T4e; T44 = FMA(T3J, T3R, T43); T3Y = W[17]; T4c = FNMS(T4a, T4b, T49); T4k = FMA(T47, T4b, T4j); T4g = W[49]; T46 = FNMS(T3Y, T3W, T45); T42 = FMA(T3Y, T41, T3X); } } { E T5v, T5r, T5w, T5A, T5G, T5F, T5B, T5g, T5j, T4I, T5n, T5h, T56, T5e, T5m; E T5i, T58, T54; { E T4n, T4A, T5d, T4H, T59, T5c, T55, T4z, T5b, T5l, T4J, T4U, T53, T5f, T4V; E T57, T4W; { E T4D, T4G, T4m, T4i, T5a, T4y, T4x; T5v = T4C - T4B; T4D = T4B + T4C; T4m = FNMS(T4g, T4e, T4l); T4i = FMA(T4g, T4h, T4f); Im[WS(rs, 4)] = T46 - T44; Ip[WS(rs, 4)] = T44 + T46; Rm[WS(rs, 4)] = T3S + T42; Rp[WS(rs, 4)] = T3S - T42; Im[WS(rs, 12)] = T4m - T4k; Ip[WS(rs, 12)] = T4k + T4m; Rm[WS(rs, 12)] = T4c + T4i; Rp[WS(rs, 12)] = T4c - T4i; T4G = T4E + T4F; T5r = T4F - T4E; T5w = T4t - T4w; T4x = T4t + T4w; T4n = W[6]; T4A = W[7]; T5d = FNMS(KP707106781, T4G, T4D); T4H = FMA(KP707106781, T4G, T4D); T5a = FNMS(KP707106781, T4x, T4q); T4y = FMA(KP707106781, T4x, T4q); T59 = W[38]; T5c = W[39]; { E T4M, T4T, T4Z, T52; T4M = FMA(KP923879532, T4L, T4K); T5A = FNMS(KP923879532, T4L, T4K); T55 = T4A * T4y; T4z = T4n * T4y; T5b = T59 * T5a; T5l = T5c * T5a; T5G = T4P + T4S; T4T = T4P - T4S; T4Z = FMA(KP923879532, T4Y, T4X); T5F = FNMS(KP923879532, T4Y, T4X); T5B = T51 + T50; T52 = T50 - T51; T4J = W[8]; T4U = FMA(KP831469612, T4T, T4M); T5g = FNMS(KP831469612, T4T, T4M); T53 = FMA(KP831469612, T52, T4Z); T5j = FNMS(KP831469612, T52, T4Z); T5f = W[40]; T4V = T4J * T4U; } } T4I = FNMS(T4A, T4H, T4z); T57 = T4J * T53; T5n = T5f * T5j; T5h = T5f * T5g; T56 = FMA(T4n, T4H, T55); T4W = W[9]; T5e = FNMS(T5c, T5d, T5b); T5m = FMA(T59, T5d, T5l); T5i = W[41]; T58 = FNMS(T4W, T4U, T57); T54 = FMA(T4W, T53, T4V); } { E T5p, T5u, T5x, T5R, T5N, T5Q, T5J, T5t, T5P, T5Z, T5z, T5C, T5H, T5T, T5D; E T5L, T5E; { E T5o, T5k, T5s, T5O; T5o = FNMS(T5i, T5g, T5n); T5k = FMA(T5i, T5j, T5h); Im[WS(rs, 2)] = T58 - T56; Ip[WS(rs, 2)] = T56 + T58; Rm[WS(rs, 2)] = T4I + T54; Rp[WS(rs, 2)] = T4I - T54; Im[WS(rs, 10)] = T5o - T5m; Ip[WS(rs, 10)] = T5m + T5o; Rm[WS(rs, 10)] = T5e + T5k; Rp[WS(rs, 10)] = T5e - T5k; T5p = W[22]; T5u = W[23]; T5x = FMA(KP707106781, T5w, T5v); T5R = FNMS(KP707106781, T5w, T5v); T5s = FMA(KP707106781, T5r, T5q); T5O = FNMS(KP707106781, T5r, T5q); T5N = W[54]; T5Q = W[55]; T5J = T5u * T5s; T5t = T5p * T5s; T5P = T5N * T5O; T5Z = T5Q * T5O; T5z = W[24]; T5U = FMA(KP831469612, T5B, T5A); T5C = FNMS(KP831469612, T5B, T5A); T5X = FMA(KP831469612, T5G, T5F); T5H = FNMS(KP831469612, T5G, T5F); T5T = W[56]; T5D = T5z * T5C; } T5y = FNMS(T5u, T5x, T5t); T5L = T5z * T5H; T61 = T5T * T5X; T5V = T5T * T5U; T5K = FMA(T5p, T5x, T5J); T5E = W[25]; T5S = FNMS(T5Q, T5R, T5P); T60 = FMA(T5N, T5R, T5Z); T5W = W[57]; T5M = FNMS(T5E, T5C, T5L); T5I = FMA(T5E, T5H, T5D); } } } { E T7P, T7L, T7K, T7Q, T7U, T80, T7Z, T7V, T9v, T9r, T9q, T9w, T9A, T9G, T9F; E T9B, T9g, T9j, T8I, T9n, T9h, T96, T9e, T9m, T9i, T98, T94; { E T7A, T7D, T6I, T7H, T7B, T7q, T7y, T7G, T7C, T7s, T7o; { E T63, T7x, T6H, T6w, T7t, T7w, T6v, T7p, T7v, T7F, T6J, T7a, T7n, T7z, T7b; E T7r, T7c; { E T6D, T6G, T62, T5Y; T7P = FNMS(KP707106781, T6C, T6z); T6D = FMA(KP707106781, T6C, T6z); T62 = FNMS(T5W, T5U, T61); T5Y = FMA(T5W, T5X, T5V); Im[WS(rs, 6)] = T5M - T5K; Ip[WS(rs, 6)] = T5K + T5M; Rm[WS(rs, 6)] = T5y + T5I; Rp[WS(rs, 6)] = T5y - T5I; Im[WS(rs, 14)] = T62 - T60; Ip[WS(rs, 14)] = T60 + T62; Rm[WS(rs, 14)] = T5S + T5Y; Rp[WS(rs, 14)] = T5S - T5Y; T6G = T6E + T6F; T7L = T6F - T6E; { E T6e, T6t, T7u, T6u; T7K = FNMS(KP707106781, T6d, T66); T6e = FMA(KP707106781, T6d, T66); T6t = T6l + T6s; T7Q = T6l - T6s; T63 = W[2]; T7x = FNMS(KP923879532, T6G, T6D); T6H = FMA(KP923879532, T6G, T6D); T7u = FNMS(KP923879532, T6t, T6e); T6u = FMA(KP923879532, T6t, T6e); T6w = W[3]; T7t = W[34]; T7w = W[35]; T6v = T63 * T6u; T7p = T6w * T6u; T7v = T7t * T7u; T7F = T7w * T7u; } { E T6U, T79, T7j, T7m; T7U = FNMS(KP923879532, T6T, T6M); T6U = FMA(KP923879532, T6T, T6M); T79 = T71 - T78; T80 = T71 + T78; T7Z = FMA(KP923879532, T7i, T7f); T7j = FNMS(KP923879532, T7i, T7f); T7m = T7k + T7l; T7V = T7k - T7l; T6J = W[4]; T7A = FNMS(KP831469612, T79, T6U); T7a = FMA(KP831469612, T79, T6U); T7D = FNMS(KP831469612, T7m, T7j); T7n = FMA(KP831469612, T7m, T7j); T7z = W[36]; T7b = T6J * T7a; } } T6I = FNMS(T6w, T6H, T6v); T7r = T6J * T7n; T7H = T7z * T7D; T7B = T7z * T7A; T7q = FMA(T63, T6H, T7p); T7c = W[5]; T7y = FNMS(T7w, T7x, T7v); T7G = FMA(T7t, T7x, T7F); T7C = W[37]; T7s = FNMS(T7c, T7a, T7r); T7o = FMA(T7c, T7n, T7b); } { E T8n, T9d, T8H, T8A, T99, T9c, T8z, T95, T9b, T9l, T8J, T8U, T93, T9f, T8V; E T97, T8W; { E T8D, T8G, T7I, T7E; T9v = FNMS(KP707106781, T8C, T8B); T8D = FMA(KP707106781, T8C, T8B); T7I = FNMS(T7C, T7A, T7H); T7E = FMA(T7C, T7D, T7B); Im[WS(rs, 1)] = T7s - T7q; Ip[WS(rs, 1)] = T7q + T7s; Rm[WS(rs, 1)] = T6I + T7o; Rp[WS(rs, 1)] = T6I - T7o; Im[WS(rs, 9)] = T7I - T7G; Ip[WS(rs, 9)] = T7G + T7I; Rm[WS(rs, 9)] = T7y + T7E; Rp[WS(rs, 9)] = T7y - T7E; T8G = T8E - T8F; T9r = T8E + T8F; { E T8q, T8x, T9a, T8y; T9q = FNMS(KP707106781, T8p, T8o); T8q = FMA(KP707106781, T8p, T8o); T8x = T8t - T8w; T9w = T8w + T8t; T8n = W[10]; T9d = FNMS(KP923879532, T8G, T8D); T8H = FMA(KP923879532, T8G, T8D); T9a = FNMS(KP923879532, T8x, T8q); T8y = FMA(KP923879532, T8x, T8q); T8A = W[11]; T99 = W[42]; T9c = W[43]; T8z = T8n * T8y; T95 = T8A * T8y; T9b = T99 * T9a; T9l = T9c * T9a; } { E T8M, T8T, T8Z, T92; T9A = FNMS(KP923879532, T8L, T8K); T8M = FMA(KP923879532, T8L, T8K); T8T = T8P - T8S; T9G = T8P + T8S; T9F = FMA(KP923879532, T8Y, T8X); T8Z = FNMS(KP923879532, T8Y, T8X); T92 = T90 + T91; T9B = T91 - T90; T8J = W[12]; T9g = FNMS(KP980785280, T8T, T8M); T8U = FMA(KP980785280, T8T, T8M); T9j = FMA(KP980785280, T92, T8Z); T93 = FNMS(KP980785280, T92, T8Z); T9f = W[44]; T8V = T8J * T8U; } } T8I = FNMS(T8A, T8H, T8z); T97 = T8J * T93; T9n = T9f * T9j; T9h = T9f * T9g; T96 = FMA(T8n, T8H, T95); T8W = W[13]; T9e = FNMS(T9c, T9d, T9b); T9m = FMA(T99, T9d, T9l); T9i = W[45]; T98 = FNMS(T8W, T8U, T97); T94 = FMA(T8W, T93, T8V); } } { E T9U, T9X, T9y, Ta1, T9V, T9K, T9S, Ta0, T9W, T9M, T9I; { E T9p, T9R, T9x, T9u, T9N, T9Q, T9t, T9J, T9P, T9Z, T9z, T9C, T9H, T9T, T9D; E T9L, T9E; { E T9o, T9k, T9O, T9s; T9o = FNMS(T9i, T9g, T9n); T9k = FMA(T9i, T9j, T9h); Im[WS(rs, 3)] = T98 - T96; Ip[WS(rs, 3)] = T96 + T98; Rm[WS(rs, 3)] = T8I + T94; Rp[WS(rs, 3)] = T8I - T94; Im[WS(rs, 11)] = T9o - T9m; Ip[WS(rs, 11)] = T9m + T9o; Rm[WS(rs, 11)] = T9e + T9k; Rp[WS(rs, 11)] = T9e - T9k; T9p = W[26]; T9R = FMA(KP923879532, T9w, T9v); T9x = FNMS(KP923879532, T9w, T9v); T9O = FMA(KP923879532, T9r, T9q); T9s = FNMS(KP923879532, T9r, T9q); T9u = W[27]; T9N = W[58]; T9Q = W[59]; T9t = T9p * T9s; T9J = T9u * T9s; T9P = T9N * T9O; T9Z = T9Q * T9O; T9z = W[28]; T9U = FNMS(KP980785280, T9B, T9A); T9C = FMA(KP980785280, T9B, T9A); T9X = FMA(KP980785280, T9G, T9F); T9H = FNMS(KP980785280, T9G, T9F); T9T = W[60]; T9D = T9z * T9C; } T9y = FNMS(T9u, T9x, T9t); T9L = T9z * T9H; Ta1 = T9T * T9X; T9V = T9T * T9U; T9K = FMA(T9p, T9x, T9J); T9E = W[29]; T9S = FNMS(T9Q, T9R, T9P); Ta0 = FMA(T9N, T9R, T9Z); T9W = W[61]; T9M = FNMS(T9E, T9C, T9L); T9I = FMA(T9E, T9H, T9D); } { E T7J, T8b, T7R, T7O, T87, T8a, T7N, T83, T89, T8j, T7T, T7W, T81, T8d, T7X; E T85, T7Y; { E Ta2, T9Y, T88, T7M; Ta2 = FNMS(T9W, T9U, Ta1); T9Y = FMA(T9W, T9X, T9V); Im[WS(rs, 7)] = T9M - T9K; Ip[WS(rs, 7)] = T9K + T9M; Rm[WS(rs, 7)] = T9y + T9I; Rp[WS(rs, 7)] = T9y - T9I; Im[WS(rs, 15)] = Ta2 - Ta0; Ip[WS(rs, 15)] = Ta0 + Ta2; Rm[WS(rs, 15)] = T9S + T9Y; Rp[WS(rs, 15)] = T9S - T9Y; T7J = W[18]; T8b = FNMS(KP923879532, T7Q, T7P); T7R = FMA(KP923879532, T7Q, T7P); T88 = FNMS(KP923879532, T7L, T7K); T7M = FMA(KP923879532, T7L, T7K); T7O = W[19]; T87 = W[50]; T8a = W[51]; T7N = T7J * T7M; T83 = T7O * T7M; T89 = T87 * T88; T8j = T8a * T88; T7T = W[20]; T8e = FNMS(KP831469612, T7V, T7U); T7W = FMA(KP831469612, T7V, T7U); T8h = FMA(KP831469612, T80, T7Z); T81 = FNMS(KP831469612, T80, T7Z); T8d = W[52]; T7X = T7T * T7W; } T7S = FNMS(T7O, T7R, T7N); T85 = T7T * T81; T8l = T8d * T8h; T8f = T8d * T8e; T84 = FMA(T7J, T7R, T83); T7Y = W[21]; T8c = FNMS(T8a, T8b, T89); T8k = FMA(T87, T8b, T8j); T8g = W[53]; T86 = FNMS(T7Y, T7W, T85); T82 = FMA(T7Y, T81, T7X); } } } } } T8m = FNMS(T8g, T8e, T8l); T8i = FMA(T8g, T8h, T8f); Im[WS(rs, 5)] = T86 - T84; Ip[WS(rs, 5)] = T84 + T86; Rm[WS(rs, 5)] = T7S + T82; Rp[WS(rs, 5)] = T7S - T82; Im[WS(rs, 13)] = T8m - T8k; Ip[WS(rs, 13)] = T8k + T8m; Rm[WS(rs, 13)] = T8c + T8i; Rp[WS(rs, 13)] = T8c - T8i; }}static const tw_instr twinstr[] = { {TW_FULL, 1, 32}, {TW_NEXT, 1, 0}};static const hc2c_desc desc = { 32, "hc2cbdft2_32", twinstr, &GENUS, {300, 62, 198, 0} };void X(codelet_hc2cbdft2_32) (planner *p) { X(khc2c_register) (p, hc2cbdft2_32, &desc, HC2C_VIA_DFT);}
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -