cannam@95: /* cannam@95: * Copyright (c) 2003, 2007-11 Matteo Frigo cannam@95: * Copyright (c) 2003, 2007-11 Massachusetts Institute of Technology cannam@95: * cannam@95: * This program is free software; you can redistribute it and/or modify cannam@95: * it under the terms of the GNU General Public License as published by cannam@95: * the Free Software Foundation; either version 2 of the License, or cannam@95: * (at your option) any later version. cannam@95: * cannam@95: * This program is distributed in the hope that it will be useful, cannam@95: * but WITHOUT ANY WARRANTY; without even the implied warranty of cannam@95: * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the cannam@95: * GNU General Public License for more details. cannam@95: * cannam@95: * You should have received a copy of the GNU General Public License cannam@95: * along with this program; if not, write to the Free Software cannam@95: * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA cannam@95: * cannam@95: */ cannam@95: cannam@95: /* This file was automatically generated --- DO NOT EDIT */ cannam@95: /* Generated on Sun Nov 25 07:37:08 EST 2012 */ cannam@95: cannam@95: #include "codelet-dft.h" cannam@95: cannam@95: #ifdef HAVE_FMA cannam@95: cannam@95: /* Generated by: ../../../genfft/gen_notw_c.native -fma -reorder-insns -schedule-for-pipeline -simd -compact -variables 4 -pipeline-latency 8 -sign 1 -n 128 -name n1bv_128 -include n1b.h */ cannam@95: cannam@95: /* cannam@95: * This function contains 1082 FP additions, 642 FP multiplications, cannam@95: * (or, 440 additions, 0 multiplications, 642 fused multiply/add), cannam@95: * 295 stack variables, 31 constants, and 256 memory accesses cannam@95: */ cannam@95: #include "n1b.h" cannam@95: cannam@95: static void n1bv_128(const R *ri, const R *ii, R *ro, R *io, stride is, stride os, INT v, INT ivs, INT ovs) cannam@95: { cannam@95: DVK(KP903989293, +0.903989293123443331586200297230537048710132025); cannam@95: DVK(KP941544065, +0.941544065183020778412509402599502357185589796); cannam@95: DVK(KP357805721, +0.357805721314524104672487743774474392487532769); cannam@95: DVK(KP472964775, +0.472964775891319928124438237972992463904131113); cannam@95: DVK(KP857728610, +0.857728610000272069902269984284770137042490799); cannam@95: DVK(KP970031253, +0.970031253194543992603984207286100251456865962); cannam@95: DVK(KP250486960, +0.250486960191305461595702160124721208578685568); cannam@95: DVK(KP998795456, +0.998795456205172392714771604759100694443203615); cannam@95: DVK(KP740951125, +0.740951125354959091175616897495162729728955309); cannam@95: DVK(KP599376933, +0.599376933681923766271389869014404232837890546); cannam@95: DVK(KP906347169, +0.906347169019147157946142717268914412664134293); cannam@95: DVK(KP049126849, +0.049126849769467254105343321271313617079695752); cannam@95: DVK(KP989176509, +0.989176509964780973451673738016243063983689533); cannam@95: DVK(KP803207531, +0.803207531480644909806676512963141923879569427); cannam@95: DVK(KP741650546, +0.741650546272035369581266691172079863842265220); cannam@95: DVK(KP956940335, +0.956940335732208864935797886980269969482849206); cannam@95: DVK(KP148335987, +0.148335987538347428753676511486911367000625355); cannam@95: DVK(KP881921264, +0.881921264348355029712756863660388349508442621); cannam@95: DVK(KP303346683, +0.303346683607342391675883946941299872384187453); cannam@95: DVK(KP534511135, +0.534511135950791641089685961295362908582039528); cannam@95: DVK(KP773010453, +0.773010453362736960810906609758469800971041293); cannam@95: DVK(KP995184726, +0.995184726672196886244836953109479921575474869); cannam@95: DVK(KP820678790, +0.820678790828660330972281985331011598767386482); cannam@95: DVK(KP098491403, +0.098491403357164253077197521291327432293052451); cannam@95: DVK(KP831469612, +0.831469612302545237078788377617905756738560812); cannam@95: DVK(KP980785280, +0.980785280403230449126182236134239036973933731); cannam@95: DVK(KP198912367, +0.198912367379658006911597622644676228597850501); cannam@95: DVK(KP668178637, +0.668178637919298919997757686523080761552472251); cannam@95: DVK(KP923879532, +0.923879532511286756128183189396788286822416626); cannam@95: DVK(KP414213562, +0.414213562373095048801688724209698078569671875); cannam@95: DVK(KP707106781, +0.707106781186547524400844362104849039284835938); cannam@95: { cannam@95: INT i; cannam@95: const R *xi; cannam@95: R *xo; cannam@95: xi = ii; cannam@95: xo = io; cannam@95: for (i = v; i > 0; i = i - VL, xi = xi + (VL * ivs), xo = xo + (VL * ovs), MAKE_VOLATILE_STRIDE(256, is), MAKE_VOLATILE_STRIDE(256, os)) { cannam@95: V T6a, T5J, T6b, T5K, T6B, T6C, T6J, T6A, T6o, T6j, T6r, T68, T6d, T5O, T5R; cannam@95: V T6e, T6D, T6K; cannam@95: { cannam@95: V Tad, TcZ, T6Z, T8T, T4U, Tr, Tfq, TgG, Ted, Tgf, Td0, Tcc, T9k, T84, Tb6; cannam@95: V Tbt, Td8, TdK, TeK, Tgq, TeV, Tgt, T7q, T94, T3p, T5X, T7B, T97, T2G, T5U; cannam@95: V TbD, Tc0, Tdf, TdN, Tf5, Tgx, Tfg, TgA, T7J, T9b, T4E, T64, T7U, T9e, T3V; cannam@95: V T61, Td2, Td3, T85, T72, T4V, TI, Tcd, Tas, TgH, Tek, Tgg, Tft, T86, T75; cannam@95: V T4W, TZ, TaI, Tcf, Tdo, TdG, Tgi, Tet, Tgj, Teq, T8X, T7a, T5M, T1B, T8W; cannam@95: V T7d, T5N, T1s, TaX, Tcg, Tdr, TdH, Tgl, TeC, Tgm, Tez, T90, T7h, T5P, T2c; cannam@95: V T8Z, T7k, T5Q, T23, T3Y, T49, TdL, Tdb, Tbu, Tbl, Tgu, TeR, Tgr, TeY, Tf6; cannam@95: V TbG, T5V, T3s, T5Y, T3f, T95, T7E, T98, T7x, T4g, T4f, T4q, TbH, T41, TbI; cannam@95: V T44, T4h, T4j, T4k, Tf9, TbN; cannam@95: { cannam@95: V Tu, TF, Ty, TL, TW, Tah, Tx, Tag, Tee, Tz, TM, TN, Teh, Tan, TP; cannam@95: V TQ; cannam@95: { cannam@95: V TeG, T2A, Tbq, TeT, Tbp, TeH, T3m, T2x, Td6, T7o, T2q, T3l, T7z, Tbr, T2D; cannam@95: V T82, T83; cannam@95: { cannam@95: V Ta7, T3, Ta8, T4O, Taa, Tab, Ta, T4P, Te, Tc6, Th, Tc7, Tl, Tc9, Tca; cannam@95: V To; cannam@95: { cannam@95: V T1, T2, T4M, T4N; cannam@95: T1 = LD(&(xi[0]), ivs, &(xi[0])); cannam@95: T2 = LD(&(xi[WS(is, 64)]), ivs, &(xi[0])); cannam@95: T4M = LD(&(xi[WS(is, 32)]), ivs, &(xi[0])); cannam@95: T4N = LD(&(xi[WS(is, 96)]), ivs, &(xi[0])); cannam@95: { cannam@95: V T4, T5, T7, T8; cannam@95: T4 = LD(&(xi[WS(is, 16)]), ivs, &(xi[0])); cannam@95: T5 = LD(&(xi[WS(is, 80)]), ivs, &(xi[0])); cannam@95: T7 = LD(&(xi[WS(is, 112)]), ivs, &(xi[0])); cannam@95: T8 = LD(&(xi[WS(is, 48)]), ivs, &(xi[0])); cannam@95: { cannam@95: V Tc, T6, T9, Td, Tf, Tg; cannam@95: Tc = LD(&(xi[WS(is, 8)]), ivs, &(xi[0])); cannam@95: Ta7 = VADD(T1, T2); cannam@95: T3 = VSUB(T1, T2); cannam@95: Ta8 = VADD(T4M, T4N); cannam@95: T4O = VSUB(T4M, T4N); cannam@95: Taa = VADD(T4, T5); cannam@95: T6 = VSUB(T4, T5); cannam@95: Tab = VADD(T7, T8); cannam@95: T9 = VSUB(T7, T8); cannam@95: Td = LD(&(xi[WS(is, 72)]), ivs, &(xi[0])); cannam@95: Tf = LD(&(xi[WS(is, 40)]), ivs, &(xi[0])); cannam@95: Tg = LD(&(xi[WS(is, 104)]), ivs, &(xi[0])); cannam@95: { cannam@95: V Tj, Tk, Tm, Tn; cannam@95: Tj = LD(&(xi[WS(is, 120)]), ivs, &(xi[0])); cannam@95: Tk = LD(&(xi[WS(is, 56)]), ivs, &(xi[0])); cannam@95: Tm = LD(&(xi[WS(is, 88)]), ivs, &(xi[0])); cannam@95: Tn = LD(&(xi[WS(is, 24)]), ivs, &(xi[0])); cannam@95: Ta = VADD(T6, T9); cannam@95: T4P = VSUB(T6, T9); cannam@95: Te = VSUB(Tc, Td); cannam@95: Tc6 = VADD(Tc, Td); cannam@95: Th = VSUB(Tf, Tg); cannam@95: Tc7 = VADD(Tf, Tg); cannam@95: Tl = VSUB(Tj, Tk); cannam@95: Tc9 = VADD(Tj, Tk); cannam@95: Tca = VADD(Tn, Tm); cannam@95: To = VSUB(Tm, Tn); cannam@95: } cannam@95: } cannam@95: } cannam@95: } cannam@95: { cannam@95: V T6X, Tb, Te9, Ta9, Tc8, Tea, T4R, Ti, Tfo, Tac, Tp, T4S, Tcb, Teb, T4Q; cannam@95: T6X = VFNMS(LDK(KP707106781), Ta, T3); cannam@95: Tb = VFMA(LDK(KP707106781), Ta, T3); cannam@95: Te9 = VSUB(Ta7, Ta8); cannam@95: Ta9 = VADD(Ta7, Ta8); cannam@95: Tc8 = VADD(Tc6, Tc7); cannam@95: Tea = VSUB(Tc6, Tc7); cannam@95: T4R = VFMA(LDK(KP414213562), Te, Th); cannam@95: Ti = VFNMS(LDK(KP414213562), Th, Te); cannam@95: Tfo = VSUB(Taa, Tab); cannam@95: Tac = VADD(Taa, Tab); cannam@95: Tp = VFNMS(LDK(KP414213562), To, Tl); cannam@95: T4S = VFMA(LDK(KP414213562), Tl, To); cannam@95: Tcb = VADD(Tc9, Tca); cannam@95: Teb = VSUB(Tc9, Tca); cannam@95: T4Q = VFMA(LDK(KP707106781), T4P, T4O); cannam@95: T82 = VFNMS(LDK(KP707106781), T4P, T4O); cannam@95: { cannam@95: V T4T, T6Y, Tq, Tfp, Tec; cannam@95: T4T = VSUB(T4R, T4S); cannam@95: T6Y = VADD(T4R, T4S); cannam@95: T83 = VSUB(Ti, Tp); cannam@95: Tq = VADD(Ti, Tp); cannam@95: Tfp = VSUB(Tea, Teb); cannam@95: Tec = VADD(Tea, Teb); cannam@95: Tad = VSUB(Ta9, Tac); cannam@95: TcZ = VADD(Ta9, Tac); cannam@95: T6Z = VFMA(LDK(KP923879532), T6Y, T6X); cannam@95: T8T = VFNMS(LDK(KP923879532), T6Y, T6X); cannam@95: T4U = VFMA(LDK(KP923879532), T4T, T4Q); cannam@95: T6a = VFNMS(LDK(KP923879532), T4T, T4Q); cannam@95: Tr = VFMA(LDK(KP923879532), Tq, Tb); cannam@95: T5J = VFNMS(LDK(KP923879532), Tq, Tb); cannam@95: Tfq = VFMA(LDK(KP707106781), Tfp, Tfo); cannam@95: TgG = VFNMS(LDK(KP707106781), Tfp, Tfo); cannam@95: Ted = VFMA(LDK(KP707106781), Tec, Te9); cannam@95: Tgf = VFNMS(LDK(KP707106781), Tec, Te9); cannam@95: Td0 = VADD(Tc8, Tcb); cannam@95: Tcc = VSUB(Tc8, Tcb); cannam@95: } cannam@95: } cannam@95: } cannam@95: { cannam@95: V T2i, T3j, Tb2, T2B, Tb5, T3k, T2p, T2C; cannam@95: { cannam@95: V T2m, Tb0, Tb1, Tb3, T2l, T2n; cannam@95: { cannam@95: V T2g, T2h, T3h, T3i, T2j, T2k; cannam@95: T2g = LD(&(xi[WS(is, 1)]), ivs, &(xi[WS(is, 1)])); cannam@95: T2h = LD(&(xi[WS(is, 65)]), ivs, &(xi[WS(is, 1)])); cannam@95: T3h = LD(&(xi[WS(is, 33)]), ivs, &(xi[WS(is, 1)])); cannam@95: T3i = LD(&(xi[WS(is, 97)]), ivs, &(xi[WS(is, 1)])); cannam@95: T2j = LD(&(xi[WS(is, 17)]), ivs, &(xi[WS(is, 1)])); cannam@95: T2k = LD(&(xi[WS(is, 81)]), ivs, &(xi[WS(is, 1)])); cannam@95: T2m = LD(&(xi[WS(is, 113)]), ivs, &(xi[WS(is, 1)])); cannam@95: T9k = VFMA(LDK(KP923879532), T83, T82); cannam@95: T84 = VFNMS(LDK(KP923879532), T83, T82); cannam@95: T2i = VSUB(T2g, T2h); cannam@95: Tb0 = VADD(T2g, T2h); cannam@95: T3j = VSUB(T3h, T3i); cannam@95: Tb1 = VADD(T3h, T3i); cannam@95: Tb3 = VADD(T2j, T2k); cannam@95: T2l = VSUB(T2j, T2k); cannam@95: T2n = LD(&(xi[WS(is, 49)]), ivs, &(xi[WS(is, 1)])); cannam@95: } cannam@95: { cannam@95: V T2r, T2s, T2u, T2v; cannam@95: T2r = LD(&(xi[WS(is, 9)]), ivs, &(xi[WS(is, 1)])); cannam@95: T2s = LD(&(xi[WS(is, 73)]), ivs, &(xi[WS(is, 1)])); cannam@95: T2u = LD(&(xi[WS(is, 41)]), ivs, &(xi[WS(is, 1)])); cannam@95: T2v = LD(&(xi[WS(is, 105)]), ivs, &(xi[WS(is, 1)])); cannam@95: TeG = VSUB(Tb0, Tb1); cannam@95: Tb2 = VADD(Tb0, Tb1); cannam@95: { cannam@95: V T2y, T2z, Tb4, T2o, Tbn, T2t, Tbo, T2w; cannam@95: T2y = LD(&(xi[WS(is, 121)]), ivs, &(xi[WS(is, 1)])); cannam@95: T2z = LD(&(xi[WS(is, 57)]), ivs, &(xi[WS(is, 1)])); cannam@95: Tb4 = VADD(T2m, T2n); cannam@95: T2o = VSUB(T2m, T2n); cannam@95: Tbn = VADD(T2r, T2s); cannam@95: T2t = VSUB(T2r, T2s); cannam@95: Tbo = VADD(T2u, T2v); cannam@95: T2w = VSUB(T2u, T2v); cannam@95: T2B = LD(&(xi[WS(is, 25)]), ivs, &(xi[WS(is, 1)])); cannam@95: T2A = VSUB(T2y, T2z); cannam@95: Tbq = VADD(T2y, T2z); cannam@95: TeT = VSUB(Tb3, Tb4); cannam@95: Tb5 = VADD(Tb3, Tb4); cannam@95: T3k = VSUB(T2l, T2o); cannam@95: T2p = VADD(T2l, T2o); cannam@95: Tbp = VADD(Tbn, Tbo); cannam@95: TeH = VSUB(Tbn, Tbo); cannam@95: T3m = VFMA(LDK(KP414213562), T2t, T2w); cannam@95: T2x = VFNMS(LDK(KP414213562), T2w, T2t); cannam@95: T2C = LD(&(xi[WS(is, 89)]), ivs, &(xi[WS(is, 1)])); cannam@95: } cannam@95: } cannam@95: } cannam@95: Td6 = VADD(Tb2, Tb5); cannam@95: Tb6 = VSUB(Tb2, Tb5); cannam@95: T7o = VFNMS(LDK(KP707106781), T2p, T2i); cannam@95: T2q = VFMA(LDK(KP707106781), T2p, T2i); cannam@95: T3l = VFMA(LDK(KP707106781), T3k, T3j); cannam@95: T7z = VFNMS(LDK(KP707106781), T3k, T3j); cannam@95: Tbr = VADD(T2B, T2C); cannam@95: T2D = VSUB(T2B, T2C); cannam@95: } cannam@95: { cannam@95: V Tf1, Tfe, Tf2, TbZ, T3M, T4B, Tdd, T3F, T7H, T4A, T7S, TbW, Tf3, T4C, T3T; cannam@95: { cannam@95: V T3x, T4y, Tbz, T3Q, TbC, T4z, T3E, T3R, T3P, TbU, TbV, T3S; cannam@95: { cannam@95: V T3y, T3z, T3B, T3C; cannam@95: { cannam@95: V T3v, T3w, T4w, T4x; cannam@95: T3v = LD(&(xi[WS(is, 127)]), ivs, &(xi[WS(is, 1)])); cannam@95: T3w = LD(&(xi[WS(is, 63)]), ivs, &(xi[WS(is, 1)])); cannam@95: T4w = LD(&(xi[WS(is, 95)]), ivs, &(xi[WS(is, 1)])); cannam@95: T4x = LD(&(xi[WS(is, 31)]), ivs, &(xi[WS(is, 1)])); cannam@95: T3y = LD(&(xi[WS(is, 15)]), ivs, &(xi[WS(is, 1)])); cannam@95: { cannam@95: V Tbs, TeI, T3n, T2E, Tbx; cannam@95: Tbs = VADD(Tbq, Tbr); cannam@95: TeI = VSUB(Tbq, Tbr); cannam@95: T3n = VFNMS(LDK(KP414213562), T2A, T2D); cannam@95: T2E = VFMA(LDK(KP414213562), T2D, T2A); cannam@95: T3x = VSUB(T3v, T3w); cannam@95: Tbx = VADD(T3v, T3w); cannam@95: { cannam@95: V Tby, Td7, TeJ, TeU; cannam@95: T4y = VSUB(T4w, T4x); cannam@95: Tby = VADD(T4x, T4w); cannam@95: Td7 = VADD(Tbp, Tbs); cannam@95: Tbt = VSUB(Tbp, Tbs); cannam@95: TeJ = VADD(TeH, TeI); cannam@95: TeU = VSUB(TeH, TeI); cannam@95: { cannam@95: V T7p, T3o, T7A, T2F; cannam@95: T7p = VSUB(T3m, T3n); cannam@95: T3o = VADD(T3m, T3n); cannam@95: T7A = VSUB(T2x, T2E); cannam@95: T2F = VADD(T2x, T2E); cannam@95: Tbz = VADD(Tbx, Tby); cannam@95: Tf1 = VSUB(Tbx, Tby); cannam@95: Td8 = VADD(Td6, Td7); cannam@95: TdK = VSUB(Td6, Td7); cannam@95: TeK = VFMA(LDK(KP707106781), TeJ, TeG); cannam@95: Tgq = VFNMS(LDK(KP707106781), TeJ, TeG); cannam@95: TeV = VFMA(LDK(KP707106781), TeU, TeT); cannam@95: Tgt = VFNMS(LDK(KP707106781), TeU, TeT); cannam@95: T7q = VFMA(LDK(KP923879532), T7p, T7o); cannam@95: T94 = VFNMS(LDK(KP923879532), T7p, T7o); cannam@95: T3p = VFMA(LDK(KP923879532), T3o, T3l); cannam@95: T5X = VFNMS(LDK(KP923879532), T3o, T3l); cannam@95: T7B = VFNMS(LDK(KP923879532), T7A, T7z); cannam@95: T97 = VFMA(LDK(KP923879532), T7A, T7z); cannam@95: T2G = VFMA(LDK(KP923879532), T2F, T2q); cannam@95: T5U = VFNMS(LDK(KP923879532), T2F, T2q); cannam@95: T3z = LD(&(xi[WS(is, 79)]), ivs, &(xi[WS(is, 1)])); cannam@95: } cannam@95: } cannam@95: } cannam@95: T3B = LD(&(xi[WS(is, 111)]), ivs, &(xi[WS(is, 1)])); cannam@95: T3C = LD(&(xi[WS(is, 47)]), ivs, &(xi[WS(is, 1)])); cannam@95: } cannam@95: { cannam@95: V T3G, T3H, T3J, T3K; cannam@95: T3G = LD(&(xi[WS(is, 7)]), ivs, &(xi[WS(is, 1)])); cannam@95: T3H = LD(&(xi[WS(is, 71)]), ivs, &(xi[WS(is, 1)])); cannam@95: T3J = LD(&(xi[WS(is, 103)]), ivs, &(xi[WS(is, 1)])); cannam@95: T3K = LD(&(xi[WS(is, 39)]), ivs, &(xi[WS(is, 1)])); cannam@95: { cannam@95: V T3N, T3A, TbA, T3D, TbB, T3I, TbX, T3L, TbY, T3O; cannam@95: T3N = LD(&(xi[WS(is, 119)]), ivs, &(xi[WS(is, 1)])); cannam@95: T3A = VSUB(T3y, T3z); cannam@95: TbA = VADD(T3y, T3z); cannam@95: T3D = VSUB(T3B, T3C); cannam@95: TbB = VADD(T3B, T3C); cannam@95: T3I = VSUB(T3G, T3H); cannam@95: TbX = VADD(T3G, T3H); cannam@95: T3L = VSUB(T3J, T3K); cannam@95: TbY = VADD(T3K, T3J); cannam@95: T3O = LD(&(xi[WS(is, 55)]), ivs, &(xi[WS(is, 1)])); cannam@95: T3Q = LD(&(xi[WS(is, 87)]), ivs, &(xi[WS(is, 1)])); cannam@95: Tfe = VSUB(TbB, TbA); cannam@95: TbC = VADD(TbA, TbB); cannam@95: T4z = VSUB(T3D, T3A); cannam@95: T3E = VADD(T3A, T3D); cannam@95: T3R = LD(&(xi[WS(is, 23)]), ivs, &(xi[WS(is, 1)])); cannam@95: Tf2 = VSUB(TbX, TbY); cannam@95: TbZ = VADD(TbX, TbY); cannam@95: T3M = VFMA(LDK(KP414213562), T3L, T3I); cannam@95: T4B = VFNMS(LDK(KP414213562), T3I, T3L); cannam@95: T3P = VSUB(T3N, T3O); cannam@95: TbU = VADD(T3N, T3O); cannam@95: } cannam@95: } cannam@95: } cannam@95: Tdd = VADD(Tbz, TbC); cannam@95: TbD = VSUB(Tbz, TbC); cannam@95: TbV = VADD(T3R, T3Q); cannam@95: T3S = VSUB(T3Q, T3R); cannam@95: T3F = VFMA(LDK(KP707106781), T3E, T3x); cannam@95: T7H = VFNMS(LDK(KP707106781), T3E, T3x); cannam@95: T4A = VFMA(LDK(KP707106781), T4z, T4y); cannam@95: T7S = VFNMS(LDK(KP707106781), T4z, T4y); cannam@95: TbW = VADD(TbU, TbV); cannam@95: Tf3 = VSUB(TbU, TbV); cannam@95: T4C = VFMA(LDK(KP414213562), T3P, T3S); cannam@95: T3T = VFNMS(LDK(KP414213562), T3S, T3P); cannam@95: } cannam@95: { cannam@95: V TD, Tae, TE, TJ, TK, TU, TV; cannam@95: { cannam@95: V Ts, Tt, Tde, Tf4, Tff; cannam@95: Ts = LD(&(xi[WS(is, 4)]), ivs, &(xi[0])); cannam@95: Tt = LD(&(xi[WS(is, 68)]), ivs, &(xi[0])); cannam@95: TD = LD(&(xi[WS(is, 36)]), ivs, &(xi[0])); cannam@95: Tde = VADD(TbZ, TbW); cannam@95: Tc0 = VSUB(TbW, TbZ); cannam@95: Tf4 = VADD(Tf2, Tf3); cannam@95: Tff = VSUB(Tf3, Tf2); cannam@95: { cannam@95: V T7I, T4D, T7T, T3U; cannam@95: T7I = VSUB(T4C, T4B); cannam@95: T4D = VADD(T4B, T4C); cannam@95: T7T = VSUB(T3T, T3M); cannam@95: T3U = VADD(T3M, T3T); cannam@95: Tae = VADD(Ts, Tt); cannam@95: Tu = VSUB(Ts, Tt); cannam@95: Tdf = VADD(Tdd, Tde); cannam@95: TdN = VSUB(Tdd, Tde); cannam@95: Tf5 = VFMA(LDK(KP707106781), Tf4, Tf1); cannam@95: Tgx = VFNMS(LDK(KP707106781), Tf4, Tf1); cannam@95: Tfg = VFMA(LDK(KP707106781), Tff, Tfe); cannam@95: TgA = VFNMS(LDK(KP707106781), Tff, Tfe); cannam@95: T7J = VFMA(LDK(KP923879532), T7I, T7H); cannam@95: T9b = VFNMS(LDK(KP923879532), T7I, T7H); cannam@95: T4E = VFMA(LDK(KP923879532), T4D, T4A); cannam@95: T64 = VFNMS(LDK(KP923879532), T4D, T4A); cannam@95: T7U = VFNMS(LDK(KP923879532), T7T, T7S); cannam@95: T9e = VFMA(LDK(KP923879532), T7T, T7S); cannam@95: T3V = VFMA(LDK(KP923879532), T3U, T3F); cannam@95: T61 = VFNMS(LDK(KP923879532), T3U, T3F); cannam@95: TE = LD(&(xi[WS(is, 100)]), ivs, &(xi[0])); cannam@95: } cannam@95: } cannam@95: TJ = LD(&(xi[WS(is, 124)]), ivs, &(xi[0])); cannam@95: TK = LD(&(xi[WS(is, 60)]), ivs, &(xi[0])); cannam@95: TU = LD(&(xi[WS(is, 92)]), ivs, &(xi[0])); cannam@95: TV = LD(&(xi[WS(is, 28)]), ivs, &(xi[0])); cannam@95: { cannam@95: V Tal, Tam, Tv, Tw, Taf; cannam@95: Tv = LD(&(xi[WS(is, 20)]), ivs, &(xi[0])); cannam@95: Tw = LD(&(xi[WS(is, 84)]), ivs, &(xi[0])); cannam@95: Taf = VADD(TD, TE); cannam@95: TF = VSUB(TD, TE); cannam@95: Ty = LD(&(xi[WS(is, 116)]), ivs, &(xi[0])); cannam@95: TL = VSUB(TJ, TK); cannam@95: Tal = VADD(TJ, TK); cannam@95: TW = VSUB(TU, TV); cannam@95: Tam = VADD(TV, TU); cannam@95: Tah = VADD(Tv, Tw); cannam@95: Tx = VSUB(Tv, Tw); cannam@95: Tag = VADD(Tae, Taf); cannam@95: Tee = VSUB(Tae, Taf); cannam@95: Tz = LD(&(xi[WS(is, 52)]), ivs, &(xi[0])); cannam@95: TM = LD(&(xi[WS(is, 12)]), ivs, &(xi[0])); cannam@95: TN = LD(&(xi[WS(is, 76)]), ivs, &(xi[0])); cannam@95: Teh = VSUB(Tal, Tam); cannam@95: Tan = VADD(Tal, Tam); cannam@95: TP = LD(&(xi[WS(is, 108)]), ivs, &(xi[0])); cannam@95: TQ = LD(&(xi[WS(is, 44)]), ivs, &(xi[0])); cannam@95: } cannam@95: } cannam@95: } cannam@95: } cannam@95: { cannam@95: V Tev, TeA, Tdp, TaP, Tew, TaV, T1U, T29, T7f, T1N, T28, T7i, Tex, TaS, T21; cannam@95: V T2a; cannam@95: { cannam@95: V Tem, Ter, Ten, TaD, T1j, T1y, TaA, Tdm, T1c, T78, T7b, T1x, TaG, Teo, T1z; cannam@95: V T1q; cannam@95: { cannam@95: V T14, T1v, Taw, Taz, T1b, T1w, T1n, T1o, T1m, TaE, TaF, T1p; cannam@95: { cannam@95: V Tau, Tav, T15, T16, T18, T19; cannam@95: { cannam@95: V T12, Tai, TA, Tao, TO, T13; cannam@95: T12 = LD(&(xi[WS(is, 2)]), ivs, &(xi[0])); cannam@95: Tai = VADD(Ty, Tz); cannam@95: TA = VSUB(Ty, Tz); cannam@95: Tao = VADD(TM, TN); cannam@95: TO = VSUB(TM, TN); cannam@95: T13 = LD(&(xi[WS(is, 66)]), ivs, &(xi[0])); cannam@95: { cannam@95: V T1t, Tap, TR, Taj, Tef, TG, TB, T1u; cannam@95: T1t = LD(&(xi[WS(is, 34)]), ivs, &(xi[0])); cannam@95: Tap = VADD(TP, TQ); cannam@95: TR = VSUB(TP, TQ); cannam@95: Taj = VADD(Tah, Tai); cannam@95: Tef = VSUB(Tah, Tai); cannam@95: TG = VSUB(Tx, TA); cannam@95: TB = VADD(Tx, TA); cannam@95: Tau = VADD(T12, T13); cannam@95: T14 = VSUB(T12, T13); cannam@95: T1u = LD(&(xi[WS(is, 98)]), ivs, &(xi[0])); cannam@95: { cannam@95: V Taq, Tei, TX, TS, Tak; cannam@95: Taq = VADD(Tao, Tap); cannam@95: Tei = VSUB(Tap, Tao); cannam@95: TX = VSUB(TR, TO); cannam@95: TS = VADD(TO, TR); cannam@95: Tak = VSUB(Tag, Taj); cannam@95: Td2 = VADD(Tag, Taj); cannam@95: { cannam@95: V Teg, Tfr, T71, TH; cannam@95: Teg = VFNMS(LDK(KP414213562), Tef, Tee); cannam@95: Tfr = VFMA(LDK(KP414213562), Tee, Tef); cannam@95: T71 = VFNMS(LDK(KP707106781), TG, TF); cannam@95: TH = VFMA(LDK(KP707106781), TG, TF); cannam@95: { cannam@95: V T70, TC, Tar, Tej, Tfs; cannam@95: T70 = VFNMS(LDK(KP707106781), TB, Tu); cannam@95: TC = VFMA(LDK(KP707106781), TB, Tu); cannam@95: Tar = VSUB(Tan, Taq); cannam@95: Td3 = VADD(Tan, Taq); cannam@95: Tej = VFNMS(LDK(KP414213562), Tei, Teh); cannam@95: Tfs = VFMA(LDK(KP414213562), Teh, Tei); cannam@95: { cannam@95: V T74, TY, T73, TT; cannam@95: T74 = VFNMS(LDK(KP707106781), TX, TW); cannam@95: TY = VFMA(LDK(KP707106781), TX, TW); cannam@95: T73 = VFNMS(LDK(KP707106781), TS, TL); cannam@95: TT = VFMA(LDK(KP707106781), TS, TL); cannam@95: T85 = VFNMS(LDK(KP668178637), T70, T71); cannam@95: T72 = VFMA(LDK(KP668178637), T71, T70); cannam@95: T4V = VFMA(LDK(KP198912367), TC, TH); cannam@95: TI = VFNMS(LDK(KP198912367), TH, TC); cannam@95: Tcd = VSUB(Tak, Tar); cannam@95: Tas = VADD(Tak, Tar); cannam@95: TgH = VSUB(Teg, Tej); cannam@95: Tek = VADD(Teg, Tej); cannam@95: Tgg = VADD(Tfr, Tfs); cannam@95: Tft = VSUB(Tfr, Tfs); cannam@95: T86 = VFNMS(LDK(KP668178637), T73, T74); cannam@95: T75 = VFMA(LDK(KP668178637), T74, T73); cannam@95: T4W = VFMA(LDK(KP198912367), TT, TY); cannam@95: TZ = VFNMS(LDK(KP198912367), TY, TT); cannam@95: Tav = VADD(T1t, T1u); cannam@95: T1v = VSUB(T1t, T1u); cannam@95: } cannam@95: } cannam@95: } cannam@95: } cannam@95: } cannam@95: } cannam@95: T15 = LD(&(xi[WS(is, 18)]), ivs, &(xi[0])); cannam@95: T16 = LD(&(xi[WS(is, 82)]), ivs, &(xi[0])); cannam@95: T18 = LD(&(xi[WS(is, 114)]), ivs, &(xi[0])); cannam@95: T19 = LD(&(xi[WS(is, 50)]), ivs, &(xi[0])); cannam@95: { cannam@95: V T1d, T1e, T1g, T1h, Tax, T17, Tay, T1a; cannam@95: T1d = LD(&(xi[WS(is, 10)]), ivs, &(xi[0])); cannam@95: Taw = VADD(Tau, Tav); cannam@95: Tem = VSUB(Tau, Tav); cannam@95: T1e = LD(&(xi[WS(is, 74)]), ivs, &(xi[0])); cannam@95: T1g = LD(&(xi[WS(is, 42)]), ivs, &(xi[0])); cannam@95: T1h = LD(&(xi[WS(is, 106)]), ivs, &(xi[0])); cannam@95: Tax = VADD(T15, T16); cannam@95: T17 = VSUB(T15, T16); cannam@95: Tay = VADD(T18, T19); cannam@95: T1a = VSUB(T18, T19); cannam@95: { cannam@95: V T1k, T1f, TaB, T1i, TaC, T1l; cannam@95: T1k = LD(&(xi[WS(is, 122)]), ivs, &(xi[0])); cannam@95: T1f = VSUB(T1d, T1e); cannam@95: TaB = VADD(T1d, T1e); cannam@95: T1i = VSUB(T1g, T1h); cannam@95: TaC = VADD(T1g, T1h); cannam@95: T1l = LD(&(xi[WS(is, 58)]), ivs, &(xi[0])); cannam@95: Taz = VADD(Tax, Tay); cannam@95: Ter = VSUB(Tax, Tay); cannam@95: T1b = VADD(T17, T1a); cannam@95: T1w = VSUB(T17, T1a); cannam@95: T1n = LD(&(xi[WS(is, 26)]), ivs, &(xi[0])); cannam@95: T1o = LD(&(xi[WS(is, 90)]), ivs, &(xi[0])); cannam@95: Ten = VSUB(TaB, TaC); cannam@95: TaD = VADD(TaB, TaC); cannam@95: T1j = VFNMS(LDK(KP414213562), T1i, T1f); cannam@95: T1y = VFMA(LDK(KP414213562), T1f, T1i); cannam@95: T1m = VSUB(T1k, T1l); cannam@95: TaE = VADD(T1k, T1l); cannam@95: } cannam@95: } cannam@95: } cannam@95: TaA = VSUB(Taw, Taz); cannam@95: Tdm = VADD(Taw, Taz); cannam@95: TaF = VADD(T1n, T1o); cannam@95: T1p = VSUB(T1n, T1o); cannam@95: T1c = VFMA(LDK(KP707106781), T1b, T14); cannam@95: T78 = VFNMS(LDK(KP707106781), T1b, T14); cannam@95: T7b = VFNMS(LDK(KP707106781), T1w, T1v); cannam@95: T1x = VFMA(LDK(KP707106781), T1w, T1v); cannam@95: TaG = VADD(TaE, TaF); cannam@95: Teo = VSUB(TaE, TaF); cannam@95: T1z = VFNMS(LDK(KP414213562), T1m, T1p); cannam@95: T1q = VFMA(LDK(KP414213562), T1p, T1m); cannam@95: } cannam@95: { cannam@95: V T1F, T26, T1Q, TaT, TaL, TaO, T27, T1M, T1Y, T1Z, TaU, T1T, TaQ, T1X, T20; cannam@95: V TaR; cannam@95: { cannam@95: V T24, TaJ, T25, T1G, T1H, T1J, T1K, T1D, T1E; cannam@95: T1D = LD(&(xi[WS(is, 126)]), ivs, &(xi[0])); cannam@95: T1E = LD(&(xi[WS(is, 62)]), ivs, &(xi[0])); cannam@95: T24 = LD(&(xi[WS(is, 94)]), ivs, &(xi[0])); cannam@95: { cannam@95: V TaH, Tdn, Tes, Tep; cannam@95: TaH = VSUB(TaD, TaG); cannam@95: Tdn = VADD(TaD, TaG); cannam@95: Tes = VSUB(Ten, Teo); cannam@95: Tep = VADD(Ten, Teo); cannam@95: { cannam@95: V T79, T1A, T7c, T1r; cannam@95: T79 = VSUB(T1y, T1z); cannam@95: T1A = VADD(T1y, T1z); cannam@95: T7c = VSUB(T1j, T1q); cannam@95: T1r = VADD(T1j, T1q); cannam@95: TaJ = VADD(T1D, T1E); cannam@95: T1F = VSUB(T1D, T1E); cannam@95: TaI = VFNMS(LDK(KP414213562), TaH, TaA); cannam@95: Tcf = VFMA(LDK(KP414213562), TaA, TaH); cannam@95: Tdo = VADD(Tdm, Tdn); cannam@95: TdG = VSUB(Tdm, Tdn); cannam@95: Tgi = VFNMS(LDK(KP707106781), Tes, Ter); cannam@95: Tet = VFMA(LDK(KP707106781), Tes, Ter); cannam@95: Tgj = VFNMS(LDK(KP707106781), Tep, Tem); cannam@95: Teq = VFMA(LDK(KP707106781), Tep, Tem); cannam@95: T8X = VFNMS(LDK(KP923879532), T79, T78); cannam@95: T7a = VFMA(LDK(KP923879532), T79, T78); cannam@95: T5M = VFNMS(LDK(KP923879532), T1A, T1x); cannam@95: T1B = VFMA(LDK(KP923879532), T1A, T1x); cannam@95: T8W = VFMA(LDK(KP923879532), T7c, T7b); cannam@95: T7d = VFNMS(LDK(KP923879532), T7c, T7b); cannam@95: T5N = VFNMS(LDK(KP923879532), T1r, T1c); cannam@95: T1s = VFMA(LDK(KP923879532), T1r, T1c); cannam@95: T25 = LD(&(xi[WS(is, 30)]), ivs, &(xi[0])); cannam@95: } cannam@95: } cannam@95: T1G = LD(&(xi[WS(is, 14)]), ivs, &(xi[0])); cannam@95: T1H = LD(&(xi[WS(is, 78)]), ivs, &(xi[0])); cannam@95: T1J = LD(&(xi[WS(is, 110)]), ivs, &(xi[0])); cannam@95: T1K = LD(&(xi[WS(is, 46)]), ivs, &(xi[0])); cannam@95: { cannam@95: V T1R, T1I, TaM, T1L, TaN, T1S, T1O, T1P, TaK, T1V, T1W; cannam@95: T1O = LD(&(xi[WS(is, 6)]), ivs, &(xi[0])); cannam@95: T1P = LD(&(xi[WS(is, 70)]), ivs, &(xi[0])); cannam@95: T26 = VSUB(T24, T25); cannam@95: TaK = VADD(T25, T24); cannam@95: T1R = LD(&(xi[WS(is, 102)]), ivs, &(xi[0])); cannam@95: T1I = VSUB(T1G, T1H); cannam@95: TaM = VADD(T1G, T1H); cannam@95: T1L = VSUB(T1J, T1K); cannam@95: TaN = VADD(T1J, T1K); cannam@95: T1Q = VSUB(T1O, T1P); cannam@95: TaT = VADD(T1O, T1P); cannam@95: Tev = VSUB(TaJ, TaK); cannam@95: TaL = VADD(TaJ, TaK); cannam@95: T1S = LD(&(xi[WS(is, 38)]), ivs, &(xi[0])); cannam@95: T1V = LD(&(xi[WS(is, 118)]), ivs, &(xi[0])); cannam@95: T1W = LD(&(xi[WS(is, 54)]), ivs, &(xi[0])); cannam@95: TeA = VSUB(TaN, TaM); cannam@95: TaO = VADD(TaM, TaN); cannam@95: T27 = VSUB(T1L, T1I); cannam@95: T1M = VADD(T1I, T1L); cannam@95: T1Y = LD(&(xi[WS(is, 86)]), ivs, &(xi[0])); cannam@95: T1Z = LD(&(xi[WS(is, 22)]), ivs, &(xi[0])); cannam@95: TaU = VADD(T1S, T1R); cannam@95: T1T = VSUB(T1R, T1S); cannam@95: TaQ = VADD(T1V, T1W); cannam@95: T1X = VSUB(T1V, T1W); cannam@95: } cannam@95: } cannam@95: Tdp = VADD(TaL, TaO); cannam@95: TaP = VSUB(TaL, TaO); cannam@95: T20 = VSUB(T1Y, T1Z); cannam@95: TaR = VADD(T1Z, T1Y); cannam@95: Tew = VSUB(TaT, TaU); cannam@95: TaV = VADD(TaT, TaU); cannam@95: T1U = VFMA(LDK(KP414213562), T1T, T1Q); cannam@95: T29 = VFNMS(LDK(KP414213562), T1Q, T1T); cannam@95: T7f = VFNMS(LDK(KP707106781), T1M, T1F); cannam@95: T1N = VFMA(LDK(KP707106781), T1M, T1F); cannam@95: T28 = VFMA(LDK(KP707106781), T27, T26); cannam@95: T7i = VFNMS(LDK(KP707106781), T27, T26); cannam@95: Tex = VSUB(TaQ, TaR); cannam@95: TaS = VADD(TaQ, TaR); cannam@95: T21 = VFNMS(LDK(KP414213562), T20, T1X); cannam@95: T2a = VFMA(LDK(KP414213562), T1X, T20); cannam@95: } cannam@95: } cannam@95: { cannam@95: V T2J, T2U, T30, T3b, TeL, Tb9, TeO, Tbg, T2M, Tba, T2P, Tbb, T34, Tbh, T33; cannam@95: V T35; cannam@95: { cannam@95: V T2H, T2I, T2S, T2T, T2Y, T2Z, T39, T3a; cannam@95: T2H = LD(&(xi[WS(is, 5)]), ivs, &(xi[WS(is, 1)])); cannam@95: { cannam@95: V Tdq, TaW, Tey, TeB; cannam@95: Tdq = VADD(TaV, TaS); cannam@95: TaW = VSUB(TaS, TaV); cannam@95: Tey = VADD(Tew, Tex); cannam@95: TeB = VSUB(Tex, Tew); cannam@95: { cannam@95: V T2b, T7g, T22, T7j; cannam@95: T2b = VADD(T29, T2a); cannam@95: T7g = VSUB(T2a, T29); cannam@95: T22 = VADD(T1U, T21); cannam@95: T7j = VSUB(T21, T1U); cannam@95: TaX = VFNMS(LDK(KP414213562), TaW, TaP); cannam@95: Tcg = VFMA(LDK(KP414213562), TaP, TaW); cannam@95: Tdr = VADD(Tdp, Tdq); cannam@95: TdH = VSUB(Tdp, Tdq); cannam@95: Tgl = VFNMS(LDK(KP707106781), TeB, TeA); cannam@95: TeC = VFMA(LDK(KP707106781), TeB, TeA); cannam@95: Tgm = VFNMS(LDK(KP707106781), Tey, Tev); cannam@95: Tez = VFMA(LDK(KP707106781), Tey, Tev); cannam@95: T90 = VFNMS(LDK(KP923879532), T7g, T7f); cannam@95: T7h = VFMA(LDK(KP923879532), T7g, T7f); cannam@95: T5P = VFNMS(LDK(KP923879532), T2b, T28); cannam@95: T2c = VFMA(LDK(KP923879532), T2b, T28); cannam@95: T8Z = VFMA(LDK(KP923879532), T7j, T7i); cannam@95: T7k = VFNMS(LDK(KP923879532), T7j, T7i); cannam@95: T5Q = VFNMS(LDK(KP923879532), T22, T1N); cannam@95: T23 = VFMA(LDK(KP923879532), T22, T1N); cannam@95: T2I = LD(&(xi[WS(is, 69)]), ivs, &(xi[WS(is, 1)])); cannam@95: } cannam@95: } cannam@95: T2S = LD(&(xi[WS(is, 37)]), ivs, &(xi[WS(is, 1)])); cannam@95: T2T = LD(&(xi[WS(is, 101)]), ivs, &(xi[WS(is, 1)])); cannam@95: T2Y = LD(&(xi[WS(is, 125)]), ivs, &(xi[WS(is, 1)])); cannam@95: T2Z = LD(&(xi[WS(is, 61)]), ivs, &(xi[WS(is, 1)])); cannam@95: T39 = LD(&(xi[WS(is, 29)]), ivs, &(xi[WS(is, 1)])); cannam@95: T3a = LD(&(xi[WS(is, 93)]), ivs, &(xi[WS(is, 1)])); cannam@95: { cannam@95: V T2K, Tbe, Tbf, T2L, T2N, T2O, Tb7, Tb8, T31, T32; cannam@95: T2K = LD(&(xi[WS(is, 21)]), ivs, &(xi[WS(is, 1)])); cannam@95: T2J = VSUB(T2H, T2I); cannam@95: Tb7 = VADD(T2H, T2I); cannam@95: T2U = VSUB(T2S, T2T); cannam@95: Tb8 = VADD(T2S, T2T); cannam@95: T30 = VSUB(T2Y, T2Z); cannam@95: Tbe = VADD(T2Y, T2Z); cannam@95: T3b = VSUB(T39, T3a); cannam@95: Tbf = VADD(T39, T3a); cannam@95: T2L = LD(&(xi[WS(is, 85)]), ivs, &(xi[WS(is, 1)])); cannam@95: T2N = LD(&(xi[WS(is, 117)]), ivs, &(xi[WS(is, 1)])); cannam@95: T2O = LD(&(xi[WS(is, 53)]), ivs, &(xi[WS(is, 1)])); cannam@95: TeL = VSUB(Tb7, Tb8); cannam@95: Tb9 = VADD(Tb7, Tb8); cannam@95: T31 = LD(&(xi[WS(is, 13)]), ivs, &(xi[WS(is, 1)])); cannam@95: T32 = LD(&(xi[WS(is, 77)]), ivs, &(xi[WS(is, 1)])); cannam@95: TeO = VSUB(Tbe, Tbf); cannam@95: Tbg = VADD(Tbe, Tbf); cannam@95: T2M = VSUB(T2K, T2L); cannam@95: Tba = VADD(T2K, T2L); cannam@95: T2P = VSUB(T2N, T2O); cannam@95: Tbb = VADD(T2N, T2O); cannam@95: T34 = LD(&(xi[WS(is, 109)]), ivs, &(xi[WS(is, 1)])); cannam@95: Tbh = VADD(T31, T32); cannam@95: T33 = VSUB(T31, T32); cannam@95: T35 = LD(&(xi[WS(is, 45)]), ivs, &(xi[WS(is, 1)])); cannam@95: } cannam@95: } cannam@95: { cannam@95: V T4d, T4e, T4o, T4p; cannam@95: { cannam@95: V T2X, T3q, T7t, T7C, T3r, T3e, T7D, T7w; cannam@95: { cannam@95: V T47, TbE, Tbd, Td9, TeW, TeN, T7s, T2W, T7r, T2R, TeP, Tbj, T37, T3c, T48; cannam@95: { cannam@95: V T3W, T3X, TeM, Tbc, T2Q, T2V, Tbi, T36; cannam@95: T3W = LD(&(xi[WS(is, 3)]), ivs, &(xi[WS(is, 1)])); cannam@95: T3X = LD(&(xi[WS(is, 67)]), ivs, &(xi[WS(is, 1)])); cannam@95: TeM = VSUB(Tba, Tbb); cannam@95: Tbc = VADD(Tba, Tbb); cannam@95: T2Q = VADD(T2M, T2P); cannam@95: T2V = VSUB(T2M, T2P); cannam@95: T47 = LD(&(xi[WS(is, 99)]), ivs, &(xi[WS(is, 1)])); cannam@95: Tbi = VADD(T34, T35); cannam@95: T36 = VSUB(T34, T35); cannam@95: TbE = VADD(T3W, T3X); cannam@95: T3Y = VSUB(T3W, T3X); cannam@95: Tbd = VSUB(Tb9, Tbc); cannam@95: Td9 = VADD(Tb9, Tbc); cannam@95: TeW = VFMA(LDK(KP414213562), TeL, TeM); cannam@95: TeN = VFNMS(LDK(KP414213562), TeM, TeL); cannam@95: T7s = VFNMS(LDK(KP707106781), T2V, T2U); cannam@95: T2W = VFMA(LDK(KP707106781), T2V, T2U); cannam@95: T7r = VFNMS(LDK(KP707106781), T2Q, T2J); cannam@95: T2R = VFMA(LDK(KP707106781), T2Q, T2J); cannam@95: TeP = VSUB(Tbh, Tbi); cannam@95: Tbj = VADD(Tbh, Tbi); cannam@95: T37 = VADD(T33, T36); cannam@95: T3c = VSUB(T33, T36); cannam@95: T48 = LD(&(xi[WS(is, 35)]), ivs, &(xi[WS(is, 1)])); cannam@95: } cannam@95: T2X = VFNMS(LDK(KP198912367), T2W, T2R); cannam@95: T3q = VFMA(LDK(KP198912367), T2R, T2W); cannam@95: T7t = VFMA(LDK(KP668178637), T7s, T7r); cannam@95: T7C = VFNMS(LDK(KP668178637), T7r, T7s); cannam@95: { cannam@95: V Tbk, Tda, TeX, TeQ; cannam@95: Tbk = VSUB(Tbg, Tbj); cannam@95: Tda = VADD(Tbg, Tbj); cannam@95: TeX = VFNMS(LDK(KP414213562), TeO, TeP); cannam@95: TeQ = VFMA(LDK(KP414213562), TeP, TeO); cannam@95: { cannam@95: V T7v, T3d, T7u, T38, TbF; cannam@95: T7v = VFNMS(LDK(KP707106781), T3c, T3b); cannam@95: T3d = VFMA(LDK(KP707106781), T3c, T3b); cannam@95: T7u = VFNMS(LDK(KP707106781), T37, T30); cannam@95: T38 = VFMA(LDK(KP707106781), T37, T30); cannam@95: T49 = VSUB(T47, T48); cannam@95: TbF = VADD(T48, T47); cannam@95: TdL = VSUB(Td9, Tda); cannam@95: Tdb = VADD(Td9, Tda); cannam@95: Tbu = VSUB(Tbd, Tbk); cannam@95: Tbl = VADD(Tbd, Tbk); cannam@95: Tgu = VSUB(TeN, TeQ); cannam@95: TeR = VADD(TeN, TeQ); cannam@95: Tgr = VSUB(TeW, TeX); cannam@95: TeY = VADD(TeW, TeX); cannam@95: T3r = VFNMS(LDK(KP198912367), T38, T3d); cannam@95: T3e = VFMA(LDK(KP198912367), T3d, T38); cannam@95: T7D = VFMA(LDK(KP668178637), T7u, T7v); cannam@95: T7w = VFNMS(LDK(KP668178637), T7v, T7u); cannam@95: Tf6 = VSUB(TbE, TbF); cannam@95: TbG = VADD(TbE, TbF); cannam@95: } cannam@95: } cannam@95: } cannam@95: T4d = LD(&(xi[WS(is, 123)]), ivs, &(xi[WS(is, 1)])); cannam@95: T5V = VSUB(T3q, T3r); cannam@95: T3s = VADD(T3q, T3r); cannam@95: T5Y = VSUB(T2X, T3e); cannam@95: T3f = VADD(T2X, T3e); cannam@95: T95 = VSUB(T7D, T7C); cannam@95: T7E = VADD(T7C, T7D); cannam@95: T98 = VSUB(T7t, T7w); cannam@95: T7x = VADD(T7t, T7w); cannam@95: T4e = LD(&(xi[WS(is, 59)]), ivs, &(xi[WS(is, 1)])); cannam@95: T4o = LD(&(xi[WS(is, 91)]), ivs, &(xi[WS(is, 1)])); cannam@95: T4p = LD(&(xi[WS(is, 27)]), ivs, &(xi[WS(is, 1)])); cannam@95: } cannam@95: { cannam@95: V T3Z, T40, T42, T43, TbL, TbM; cannam@95: T3Z = LD(&(xi[WS(is, 19)]), ivs, &(xi[WS(is, 1)])); cannam@95: T40 = LD(&(xi[WS(is, 83)]), ivs, &(xi[WS(is, 1)])); cannam@95: T42 = LD(&(xi[WS(is, 115)]), ivs, &(xi[WS(is, 1)])); cannam@95: T43 = LD(&(xi[WS(is, 51)]), ivs, &(xi[WS(is, 1)])); cannam@95: T4g = LD(&(xi[WS(is, 11)]), ivs, &(xi[WS(is, 1)])); cannam@95: T4f = VSUB(T4d, T4e); cannam@95: TbL = VADD(T4d, T4e); cannam@95: T4q = VSUB(T4o, T4p); cannam@95: TbM = VADD(T4p, T4o); cannam@95: TbH = VADD(T3Z, T40); cannam@95: T41 = VSUB(T3Z, T40); cannam@95: TbI = VADD(T42, T43); cannam@95: T44 = VSUB(T42, T43); cannam@95: T4h = LD(&(xi[WS(is, 75)]), ivs, &(xi[WS(is, 1)])); cannam@95: T4j = LD(&(xi[WS(is, 107)]), ivs, &(xi[WS(is, 1)])); cannam@95: T4k = LD(&(xi[WS(is, 43)]), ivs, &(xi[WS(is, 1)])); cannam@95: Tf9 = VSUB(TbL, TbM); cannam@95: TbN = VADD(TbL, TbM); cannam@95: } cannam@95: } cannam@95: } cannam@95: } cannam@95: } cannam@95: { cannam@95: V TgB, Tgy, T62, T4H, T65, T4u, T9c, T7X, T9f, T7Q, Tg0, Tga, TfF, TeF, TfT; cannam@95: V TfU, TfP, Tg7, TfI, Tfy, Tfz, Tf0, TfA, Tfl, Tg1, TfS; cannam@95: { cannam@95: V Tc1, TbS, Tfc, Tfj, TdX, Te5, TdZ, TdR, Te7, Te3, TdU, Te4; cannam@95: { cannam@95: V TdF, TdS, Tdx, Td5, TdO, TdE, TdC, Tdt, Tdk; cannam@95: { cannam@95: V Tdc, TdA, T4F, T4c, T7V, T7M, T4G, T4t, T7W, T7P, TdB, Tdj; cannam@95: { cannam@95: V Td1, Tdg, TbK, Tf8, Tfh, T4b, T7L, T46, T7K, TbQ, Tfa, T4r, T4m, Td4; cannam@95: TdF = VSUB(TcZ, Td0); cannam@95: Td1 = VADD(TcZ, Td0); cannam@95: { cannam@95: V TbJ, Tf7, T4a, T45; cannam@95: TbJ = VADD(TbH, TbI); cannam@95: Tf7 = VSUB(TbI, TbH); cannam@95: T4a = VSUB(T44, T41); cannam@95: T45 = VADD(T41, T44); cannam@95: { cannam@95: V TbO, T4i, TbP, T4l; cannam@95: TbO = VADD(T4g, T4h); cannam@95: T4i = VSUB(T4g, T4h); cannam@95: TbP = VADD(T4j, T4k); cannam@95: T4l = VSUB(T4j, T4k); cannam@95: Tdg = VADD(TbG, TbJ); cannam@95: TbK = VSUB(TbG, TbJ); cannam@95: Tf8 = VFMA(LDK(KP414213562), Tf7, Tf6); cannam@95: Tfh = VFNMS(LDK(KP414213562), Tf6, Tf7); cannam@95: T4b = VFMA(LDK(KP707106781), T4a, T49); cannam@95: T7L = VFNMS(LDK(KP707106781), T4a, T49); cannam@95: T46 = VFMA(LDK(KP707106781), T45, T3Y); cannam@95: T7K = VFNMS(LDK(KP707106781), T45, T3Y); cannam@95: TbQ = VADD(TbO, TbP); cannam@95: Tfa = VSUB(TbP, TbO); cannam@95: T4r = VSUB(T4l, T4i); cannam@95: T4m = VADD(T4i, T4l); cannam@95: Td4 = VADD(Td2, Td3); cannam@95: TdS = VSUB(Td2, Td3); cannam@95: } cannam@95: } cannam@95: Tdc = VSUB(Td8, Tdb); cannam@95: TdA = VADD(Td8, Tdb); cannam@95: T4F = VFNMS(LDK(KP198912367), T46, T4b); cannam@95: T4c = VFMA(LDK(KP198912367), T4b, T46); cannam@95: T7V = VFMA(LDK(KP668178637), T7K, T7L); cannam@95: T7M = VFNMS(LDK(KP668178637), T7L, T7K); cannam@95: { cannam@95: V Tdh, TbR, Tfb, Tfi; cannam@95: Tdh = VADD(TbN, TbQ); cannam@95: TbR = VSUB(TbN, TbQ); cannam@95: Tfb = VFNMS(LDK(KP414213562), Tfa, Tf9); cannam@95: Tfi = VFMA(LDK(KP414213562), Tf9, Tfa); cannam@95: { cannam@95: V T4s, T7O, T4n, T7N, Tdi; cannam@95: T4s = VFMA(LDK(KP707106781), T4r, T4q); cannam@95: T7O = VFNMS(LDK(KP707106781), T4r, T4q); cannam@95: T4n = VFMA(LDK(KP707106781), T4m, T4f); cannam@95: T7N = VFNMS(LDK(KP707106781), T4m, T4f); cannam@95: Tdx = VADD(Td1, Td4); cannam@95: Td5 = VSUB(Td1, Td4); cannam@95: TdO = VSUB(Tdh, Tdg); cannam@95: Tdi = VADD(Tdg, Tdh); cannam@95: Tc1 = VSUB(TbR, TbK); cannam@95: TbS = VADD(TbK, TbR); cannam@95: TgB = VSUB(Tfb, Tf8); cannam@95: Tfc = VADD(Tf8, Tfb); cannam@95: Tgy = VSUB(Tfi, Tfh); cannam@95: Tfj = VADD(Tfh, Tfi); cannam@95: T4G = VFMA(LDK(KP198912367), T4n, T4s); cannam@95: T4t = VFNMS(LDK(KP198912367), T4s, T4n); cannam@95: T7W = VFNMS(LDK(KP668178637), T7N, T7O); cannam@95: T7P = VFMA(LDK(KP668178637), T7O, T7N); cannam@95: TdB = VADD(Tdf, Tdi); cannam@95: Tdj = VSUB(Tdf, Tdi); cannam@95: } cannam@95: } cannam@95: } cannam@95: T62 = VSUB(T4G, T4F); cannam@95: T4H = VADD(T4F, T4G); cannam@95: T65 = VSUB(T4t, T4c); cannam@95: T4u = VADD(T4c, T4t); cannam@95: T9c = VSUB(T7V, T7W); cannam@95: T7X = VADD(T7V, T7W); cannam@95: T9f = VSUB(T7P, T7M); cannam@95: T7Q = VADD(T7M, T7P); cannam@95: TdE = VADD(TdA, TdB); cannam@95: TdC = VSUB(TdA, TdB); cannam@95: Tdt = VSUB(Tdc, Tdj); cannam@95: Tdk = VADD(Tdc, Tdj); cannam@95: } cannam@95: { cannam@95: V TdT, Tdl, Tdv, TdJ, Te1, Te2, TdQ, Tdz, TdD, Tdu, Tdw; cannam@95: { cannam@95: V TdI, TdM, TdV, TdW, TdP, Tds, Tdy; cannam@95: TdI = VADD(TdG, TdH); cannam@95: TdT = VSUB(TdG, TdH); cannam@95: TdM = VFNMS(LDK(KP414213562), TdL, TdK); cannam@95: TdV = VFMA(LDK(KP414213562), TdK, TdL); cannam@95: TdW = VFMA(LDK(KP414213562), TdN, TdO); cannam@95: TdP = VFNMS(LDK(KP414213562), TdO, TdN); cannam@95: Tdl = VFNMS(LDK(KP707106781), Tdk, Td5); cannam@95: Tdv = VFMA(LDK(KP707106781), Tdk, Td5); cannam@95: Tds = VSUB(Tdo, Tdr); cannam@95: Tdy = VADD(Tdo, Tdr); cannam@95: TdJ = VFMA(LDK(KP707106781), TdI, TdF); cannam@95: Te1 = VFNMS(LDK(KP707106781), TdI, TdF); cannam@95: TdX = VSUB(TdV, TdW); cannam@95: Te2 = VADD(TdV, TdW); cannam@95: Te5 = VSUB(TdM, TdP); cannam@95: TdQ = VADD(TdM, TdP); cannam@95: Tdz = VSUB(Tdx, Tdy); cannam@95: TdD = VADD(Tdx, Tdy); cannam@95: Tdu = VFNMS(LDK(KP707106781), Tdt, Tds); cannam@95: Tdw = VFMA(LDK(KP707106781), Tdt, Tds); cannam@95: } cannam@95: TdZ = VFMA(LDK(KP923879532), TdQ, TdJ); cannam@95: TdR = VFNMS(LDK(KP923879532), TdQ, TdJ); cannam@95: Te7 = VFMA(LDK(KP923879532), Te2, Te1); cannam@95: Te3 = VFNMS(LDK(KP923879532), Te2, Te1); cannam@95: ST(&(xo[0]), VADD(TdD, TdE), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 64)]), VSUB(TdD, TdE), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 32)]), VFMAI(TdC, Tdz), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 96)]), VFNMSI(TdC, Tdz), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 112)]), VFNMSI(Tdw, Tdv), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 16)]), VFMAI(Tdw, Tdv), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 80)]), VFMAI(Tdu, Tdl), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 48)]), VFNMSI(Tdu, Tdl), ovs, &(xo[0])); cannam@95: TdU = VFMA(LDK(KP707106781), TdT, TdS); cannam@95: Te4 = VFNMS(LDK(KP707106781), TdT, TdS); cannam@95: } cannam@95: } cannam@95: { cannam@95: V Tcx, TcJ, TcI, Tcy, TcA, Tbm, Tcp, TaZ, Tcs, Tci, Tbv, TcB, TcD, TbT, Tc2; cannam@95: V TcE, Tat, TaY; cannam@95: Tcx = VFNMS(LDK(KP707106781), Tas, Tad); cannam@95: Tat = VFMA(LDK(KP707106781), Tas, Tad); cannam@95: TaY = VADD(TaI, TaX); cannam@95: TcJ = VSUB(TaI, TaX); cannam@95: { cannam@95: V Tce, Tch, Te8, Te6, TdY, Te0; cannam@95: TcI = VFNMS(LDK(KP707106781), Tcd, Tcc); cannam@95: Tce = VFMA(LDK(KP707106781), Tcd, Tcc); cannam@95: Tch = VSUB(Tcf, Tcg); cannam@95: Tcy = VADD(Tcf, Tcg); cannam@95: Te8 = VFNMS(LDK(KP923879532), Te5, Te4); cannam@95: Te6 = VFMA(LDK(KP923879532), Te5, Te4); cannam@95: TdY = VFNMS(LDK(KP923879532), TdX, TdU); cannam@95: Te0 = VFMA(LDK(KP923879532), TdX, TdU); cannam@95: TcA = VFNMS(LDK(KP707106781), Tbl, Tb6); cannam@95: Tbm = VFMA(LDK(KP707106781), Tbl, Tb6); cannam@95: Tcp = VFNMS(LDK(KP923879532), TaY, Tat); cannam@95: TaZ = VFMA(LDK(KP923879532), TaY, Tat); cannam@95: Tcs = VFNMS(LDK(KP923879532), Tch, Tce); cannam@95: Tci = VFMA(LDK(KP923879532), Tch, Tce); cannam@95: ST(&(xo[WS(os, 88)]), VFNMSI(Te6, Te3), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 40)]), VFMAI(Te6, Te3), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 104)]), VFMAI(Te8, Te7), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 24)]), VFNMSI(Te8, Te7), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 8)]), VFMAI(Te0, TdZ), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 120)]), VFNMSI(Te0, TdZ), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 72)]), VFMAI(TdY, TdR), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 56)]), VFNMSI(TdY, TdR), ovs, &(xo[0])); cannam@95: Tbv = VFMA(LDK(KP707106781), Tbu, Tbt); cannam@95: TcB = VFNMS(LDK(KP707106781), Tbu, Tbt); cannam@95: TcD = VFNMS(LDK(KP707106781), TbS, TbD); cannam@95: TbT = VFMA(LDK(KP707106781), TbS, TbD); cannam@95: Tc2 = VFMA(LDK(KP707106781), Tc1, Tc0); cannam@95: TcE = VFNMS(LDK(KP707106781), Tc1, Tc0); cannam@95: } cannam@95: { cannam@95: V TcR, Tcz, TcU, TcK, Tcq, Tcl, Tct, Tc4; cannam@95: { cannam@95: V Tcj, Tbw, Tck, Tc3; cannam@95: Tcj = VFMA(LDK(KP198912367), Tbm, Tbv); cannam@95: Tbw = VFNMS(LDK(KP198912367), Tbv, Tbm); cannam@95: Tck = VFMA(LDK(KP198912367), TbT, Tc2); cannam@95: Tc3 = VFNMS(LDK(KP198912367), Tc2, TbT); cannam@95: TcR = VFNMS(LDK(KP923879532), Tcy, Tcx); cannam@95: Tcz = VFMA(LDK(KP923879532), Tcy, Tcx); cannam@95: TcU = VFMA(LDK(KP923879532), TcJ, TcI); cannam@95: TcK = VFNMS(LDK(KP923879532), TcJ, TcI); cannam@95: Tcq = VADD(Tcj, Tck); cannam@95: Tcl = VSUB(Tcj, Tck); cannam@95: Tct = VSUB(Tbw, Tc3); cannam@95: Tc4 = VADD(Tbw, Tc3); cannam@95: } cannam@95: { cannam@95: V TfN, Tel, TfY, Tfu, Tfv, Tfw, TcT, TcX, TcQ, TcO, TcW, TcY, TcP, TcH, TfZ; cannam@95: V TeE; cannam@95: { cannam@95: V Teu, TcS, TcN, TcV, TcG, TeD; cannam@95: TfN = VFNMS(LDK(KP923879532), Tek, Ted); cannam@95: Tel = VFMA(LDK(KP923879532), Tek, Ted); cannam@95: { cannam@95: V TcL, TcC, Tcr, Tcv; cannam@95: TcL = VFNMS(LDK(KP668178637), TcA, TcB); cannam@95: TcC = VFMA(LDK(KP668178637), TcB, TcA); cannam@95: Tcr = VFNMS(LDK(KP980785280), Tcq, Tcp); cannam@95: Tcv = VFMA(LDK(KP980785280), Tcq, Tcp); cannam@95: { cannam@95: V Tco, Tcm, Tcu, Tcw; cannam@95: Tco = VFMA(LDK(KP980785280), Tcl, Tci); cannam@95: Tcm = VFNMS(LDK(KP980785280), Tcl, Tci); cannam@95: Tcu = VFMA(LDK(KP980785280), Tct, Tcs); cannam@95: Tcw = VFNMS(LDK(KP980785280), Tct, Tcs); cannam@95: { cannam@95: V Tcn, Tc5, TcM, TcF; cannam@95: Tcn = VFMA(LDK(KP980785280), Tc4, TaZ); cannam@95: Tc5 = VFNMS(LDK(KP980785280), Tc4, TaZ); cannam@95: TcM = VFNMS(LDK(KP668178637), TcD, TcE); cannam@95: TcF = VFMA(LDK(KP668178637), TcE, TcD); cannam@95: TfY = VFNMS(LDK(KP923879532), Tft, Tfq); cannam@95: Tfu = VFMA(LDK(KP923879532), Tft, Tfq); cannam@95: Tfv = VFMA(LDK(KP198912367), Teq, Tet); cannam@95: Teu = VFNMS(LDK(KP198912367), Tet, Teq); cannam@95: ST(&(xo[WS(os, 92)]), VFNMSI(Tcu, Tcr), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 36)]), VFMAI(Tcu, Tcr), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 100)]), VFMAI(Tcw, Tcv), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 28)]), VFNMSI(Tcw, Tcv), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 4)]), VFMAI(Tco, Tcn), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 124)]), VFNMSI(Tco, Tcn), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 68)]), VFMAI(Tcm, Tc5), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 60)]), VFNMSI(Tcm, Tc5), ovs, &(xo[0])); cannam@95: TcS = VADD(TcL, TcM); cannam@95: TcN = VSUB(TcL, TcM); cannam@95: TcV = VSUB(TcC, TcF); cannam@95: TcG = VADD(TcC, TcF); cannam@95: TeD = VFNMS(LDK(KP198912367), TeC, Tez); cannam@95: Tfw = VFMA(LDK(KP198912367), Tez, TeC); cannam@95: } cannam@95: } cannam@95: } cannam@95: TcT = VFMA(LDK(KP831469612), TcS, TcR); cannam@95: TcX = VFNMS(LDK(KP831469612), TcS, TcR); cannam@95: TcQ = VFMA(LDK(KP831469612), TcN, TcK); cannam@95: TcO = VFNMS(LDK(KP831469612), TcN, TcK); cannam@95: TcW = VFNMS(LDK(KP831469612), TcV, TcU); cannam@95: TcY = VFMA(LDK(KP831469612), TcV, TcU); cannam@95: TcP = VFMA(LDK(KP831469612), TcG, Tcz); cannam@95: TcH = VFNMS(LDK(KP831469612), TcG, Tcz); cannam@95: TfZ = VSUB(Teu, TeD); cannam@95: TeE = VADD(Teu, TeD); cannam@95: } cannam@95: { cannam@95: V TfQ, TeS, TfO, Tfx, TeZ, TfR, Tfd, Tfk; cannam@95: TfQ = VFNMS(LDK(KP923879532), TeR, TeK); cannam@95: TeS = VFMA(LDK(KP923879532), TeR, TeK); cannam@95: ST(&(xo[WS(os, 84)]), VFMAI(TcW, TcT), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 44)]), VFNMSI(TcW, TcT), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 108)]), VFNMSI(TcY, TcX), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 20)]), VFMAI(TcY, TcX), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 116)]), VFMAI(TcQ, TcP), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 12)]), VFNMSI(TcQ, TcP), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 52)]), VFMAI(TcO, TcH), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 76)]), VFNMSI(TcO, TcH), ovs, &(xo[0])); cannam@95: Tg0 = VFNMS(LDK(KP980785280), TfZ, TfY); cannam@95: Tga = VFMA(LDK(KP980785280), TfZ, TfY); cannam@95: TfF = VFNMS(LDK(KP980785280), TeE, Tel); cannam@95: TeF = VFMA(LDK(KP980785280), TeE, Tel); cannam@95: TfO = VADD(Tfv, Tfw); cannam@95: Tfx = VSUB(Tfv, Tfw); cannam@95: TeZ = VFMA(LDK(KP923879532), TeY, TeV); cannam@95: TfR = VFNMS(LDK(KP923879532), TeY, TeV); cannam@95: TfT = VFNMS(LDK(KP923879532), Tfc, Tf5); cannam@95: Tfd = VFMA(LDK(KP923879532), Tfc, Tf5); cannam@95: Tfk = VFMA(LDK(KP923879532), Tfj, Tfg); cannam@95: TfU = VFNMS(LDK(KP923879532), Tfj, Tfg); cannam@95: TfP = VFMA(LDK(KP980785280), TfO, TfN); cannam@95: Tg7 = VFNMS(LDK(KP980785280), TfO, TfN); cannam@95: TfI = VFNMS(LDK(KP980785280), Tfx, Tfu); cannam@95: Tfy = VFMA(LDK(KP980785280), Tfx, Tfu); cannam@95: Tfz = VFMA(LDK(KP098491403), TeS, TeZ); cannam@95: Tf0 = VFNMS(LDK(KP098491403), TeZ, TeS); cannam@95: TfA = VFMA(LDK(KP098491403), Tfd, Tfk); cannam@95: Tfl = VFNMS(LDK(KP098491403), Tfk, Tfd); cannam@95: Tg1 = VFNMS(LDK(KP820678790), TfQ, TfR); cannam@95: TfS = VFMA(LDK(KP820678790), TfR, TfQ); cannam@95: } cannam@95: } cannam@95: } cannam@95: } cannam@95: } cannam@95: { cannam@95: V T8x, T8y, T8F, T8w, T8k, T8f, T8n, T80, T9l, T76, T87, T8U, T89, T7e, T7l; cannam@95: V T8a; cannam@95: { cannam@95: V The, Tho, TgT, Tgp, Th7, Th8, Thf, Th6, Th3, Thl, TgW, TgM, TgU, TgP, TgX; cannam@95: V TgE; cannam@95: { cannam@95: V Th1, TgI, TgJ, TgK; cannam@95: { cannam@95: V Tgh, Thc, Tgk, TfG, TfB, TfJ, Tfm, Tg2, TfV, Tgn, TfL, TfH; cannam@95: Th1 = VFMA(LDK(KP923879532), Tgg, Tgf); cannam@95: Tgh = VFNMS(LDK(KP923879532), Tgg, Tgf); cannam@95: Thc = VFNMS(LDK(KP923879532), TgH, TgG); cannam@95: TgI = VFMA(LDK(KP923879532), TgH, TgG); cannam@95: TgJ = VFMA(LDK(KP668178637), Tgi, Tgj); cannam@95: Tgk = VFNMS(LDK(KP668178637), Tgj, Tgi); cannam@95: TfG = VADD(Tfz, TfA); cannam@95: TfB = VSUB(Tfz, TfA); cannam@95: TfJ = VSUB(Tf0, Tfl); cannam@95: Tfm = VADD(Tf0, Tfl); cannam@95: Tg2 = VFNMS(LDK(KP820678790), TfT, TfU); cannam@95: TfV = VFMA(LDK(KP820678790), TfU, TfT); cannam@95: Tgn = VFNMS(LDK(KP668178637), Tgm, Tgl); cannam@95: TgK = VFMA(LDK(KP668178637), Tgl, Tgm); cannam@95: TfL = VFMA(LDK(KP995184726), TfG, TfF); cannam@95: TfH = VFNMS(LDK(KP995184726), TfG, TfF); cannam@95: { cannam@95: V TfE, TfC, TfM, TfK; cannam@95: TfE = VFMA(LDK(KP995184726), TfB, Tfy); cannam@95: TfC = VFNMS(LDK(KP995184726), TfB, Tfy); cannam@95: TfM = VFNMS(LDK(KP995184726), TfJ, TfI); cannam@95: TfK = VFMA(LDK(KP995184726), TfJ, TfI); cannam@95: { cannam@95: V TfD, Tfn, Tg8, Tg3; cannam@95: TfD = VFMA(LDK(KP995184726), Tfm, TeF); cannam@95: Tfn = VFNMS(LDK(KP995184726), Tfm, TeF); cannam@95: Tg8 = VADD(Tg1, Tg2); cannam@95: Tg3 = VSUB(Tg1, Tg2); cannam@95: { cannam@95: V Tgb, TfW, Thd, Tgo; cannam@95: Tgb = VSUB(TfS, TfV); cannam@95: TfW = VADD(TfS, TfV); cannam@95: Thd = VSUB(Tgk, Tgn); cannam@95: Tgo = VADD(Tgk, Tgn); cannam@95: ST(&(xo[WS(os, 98)]), VFMAI(TfM, TfL), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 30)]), VFNMSI(TfM, TfL), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 94)]), VFNMSI(TfK, TfH), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 34)]), VFMAI(TfK, TfH), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 2)]), VFMAI(TfE, TfD), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 126)]), VFNMSI(TfE, TfD), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 66)]), VFMAI(TfC, Tfn), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 62)]), VFNMSI(TfC, Tfn), ovs, &(xo[0])); cannam@95: { cannam@95: V Tgd, Tg9, Tg6, Tg4; cannam@95: Tgd = VFNMS(LDK(KP773010453), Tg8, Tg7); cannam@95: Tg9 = VFMA(LDK(KP773010453), Tg8, Tg7); cannam@95: Tg6 = VFMA(LDK(KP773010453), Tg3, Tg0); cannam@95: Tg4 = VFNMS(LDK(KP773010453), Tg3, Tg0); cannam@95: { cannam@95: V Tge, Tgc, Tg5, TfX; cannam@95: Tge = VFMA(LDK(KP773010453), Tgb, Tga); cannam@95: Tgc = VFNMS(LDK(KP773010453), Tgb, Tga); cannam@95: Tg5 = VFMA(LDK(KP773010453), TfW, TfP); cannam@95: TfX = VFNMS(LDK(KP773010453), TfW, TfP); cannam@95: The = VFMA(LDK(KP831469612), Thd, Thc); cannam@95: Tho = VFNMS(LDK(KP831469612), Thd, Thc); cannam@95: TgT = VFMA(LDK(KP831469612), Tgo, Tgh); cannam@95: Tgp = VFNMS(LDK(KP831469612), Tgo, Tgh); cannam@95: ST(&(xo[WS(os, 110)]), VFNMSI(Tge, Tgd), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 18)]), VFMAI(Tge, Tgd), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 82)]), VFMAI(Tgc, Tg9), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 46)]), VFNMSI(Tgc, Tg9), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 114)]), VFMAI(Tg6, Tg5), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 14)]), VFNMSI(Tg6, Tg5), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 50)]), VFMAI(Tg4, TfX), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 78)]), VFNMSI(Tg4, TfX), ovs, &(xo[0])); cannam@95: } cannam@95: } cannam@95: } cannam@95: } cannam@95: } cannam@95: } cannam@95: { cannam@95: V Th4, Tgs, Tgv, Th5, Tgz, TgC, Th2, TgL; cannam@95: Th4 = VFMA(LDK(KP923879532), Tgr, Tgq); cannam@95: Tgs = VFNMS(LDK(KP923879532), Tgr, Tgq); cannam@95: Tgv = VFMA(LDK(KP923879532), Tgu, Tgt); cannam@95: Th5 = VFNMS(LDK(KP923879532), Tgu, Tgt); cannam@95: Th7 = VFMA(LDK(KP923879532), Tgy, Tgx); cannam@95: Tgz = VFNMS(LDK(KP923879532), Tgy, Tgx); cannam@95: TgC = VFMA(LDK(KP923879532), TgB, TgA); cannam@95: Th8 = VFNMS(LDK(KP923879532), TgB, TgA); cannam@95: Th2 = VADD(TgJ, TgK); cannam@95: TgL = VSUB(TgJ, TgK); cannam@95: { cannam@95: V TgN, Tgw, TgO, TgD; cannam@95: TgN = VFMA(LDK(KP534511135), Tgs, Tgv); cannam@95: Tgw = VFNMS(LDK(KP534511135), Tgv, Tgs); cannam@95: TgO = VFMA(LDK(KP534511135), Tgz, TgC); cannam@95: TgD = VFNMS(LDK(KP534511135), TgC, Tgz); cannam@95: Thf = VFNMS(LDK(KP303346683), Th4, Th5); cannam@95: Th6 = VFMA(LDK(KP303346683), Th5, Th4); cannam@95: Th3 = VFMA(LDK(KP831469612), Th2, Th1); cannam@95: Thl = VFNMS(LDK(KP831469612), Th2, Th1); cannam@95: TgW = VFNMS(LDK(KP831469612), TgL, TgI); cannam@95: TgM = VFMA(LDK(KP831469612), TgL, TgI); cannam@95: TgU = VADD(TgN, TgO); cannam@95: TgP = VSUB(TgN, TgO); cannam@95: TgX = VSUB(Tgw, TgD); cannam@95: TgE = VADD(Tgw, TgD); cannam@95: } cannam@95: } cannam@95: } cannam@95: { cannam@95: V T8u, T8v, T7R, T8d, T7G, Thm, Thh, Thp, Tha, T7Y, Thr, Thn; cannam@95: { cannam@95: V T7y, T7F, TgZ, TgV; cannam@95: T8u = VFNMS(LDK(KP831469612), T7x, T7q); cannam@95: T7y = VFMA(LDK(KP831469612), T7x, T7q); cannam@95: T7F = VFMA(LDK(KP831469612), T7E, T7B); cannam@95: T8v = VFNMS(LDK(KP831469612), T7E, T7B); cannam@95: T8x = VFNMS(LDK(KP831469612), T7Q, T7J); cannam@95: T7R = VFMA(LDK(KP831469612), T7Q, T7J); cannam@95: TgZ = VFMA(LDK(KP881921264), TgU, TgT); cannam@95: TgV = VFNMS(LDK(KP881921264), TgU, TgT); cannam@95: { cannam@95: V TgS, TgQ, Th0, TgY; cannam@95: TgS = VFMA(LDK(KP881921264), TgP, TgM); cannam@95: TgQ = VFNMS(LDK(KP881921264), TgP, TgM); cannam@95: Th0 = VFNMS(LDK(KP881921264), TgX, TgW); cannam@95: TgY = VFMA(LDK(KP881921264), TgX, TgW); cannam@95: { cannam@95: V TgR, TgF, Thg, Th9; cannam@95: TgR = VFMA(LDK(KP881921264), TgE, Tgp); cannam@95: TgF = VFNMS(LDK(KP881921264), TgE, Tgp); cannam@95: Thg = VFNMS(LDK(KP303346683), Th7, Th8); cannam@95: Th9 = VFMA(LDK(KP303346683), Th8, Th7); cannam@95: T8d = VFNMS(LDK(KP148335987), T7y, T7F); cannam@95: T7G = VFMA(LDK(KP148335987), T7F, T7y); cannam@95: ST(&(xo[WS(os, 106)]), VFMAI(Th0, TgZ), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 22)]), VFNMSI(Th0, TgZ), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 86)]), VFNMSI(TgY, TgV), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 42)]), VFMAI(TgY, TgV), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 10)]), VFMAI(TgS, TgR), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 118)]), VFNMSI(TgS, TgR), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 74)]), VFMAI(TgQ, TgF), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 54)]), VFNMSI(TgQ, TgF), ovs, &(xo[0])); cannam@95: Thm = VADD(Thf, Thg); cannam@95: Thh = VSUB(Thf, Thg); cannam@95: Thp = VSUB(Th6, Th9); cannam@95: Tha = VADD(Th6, Th9); cannam@95: T7Y = VFMA(LDK(KP831469612), T7X, T7U); cannam@95: T8y = VFNMS(LDK(KP831469612), T7X, T7U); cannam@95: } cannam@95: } cannam@95: } cannam@95: Thr = VFNMS(LDK(KP956940335), Thm, Thl); cannam@95: Thn = VFMA(LDK(KP956940335), Thm, Thl); cannam@95: { cannam@95: V Thk, Thi, Ths, Thq; cannam@95: Thk = VFMA(LDK(KP956940335), Thh, The); cannam@95: Thi = VFNMS(LDK(KP956940335), Thh, The); cannam@95: Ths = VFMA(LDK(KP956940335), Thp, Tho); cannam@95: Thq = VFNMS(LDK(KP956940335), Thp, Tho); cannam@95: { cannam@95: V Thj, Thb, T8e, T7Z; cannam@95: Thj = VFMA(LDK(KP956940335), Tha, Th3); cannam@95: Thb = VFNMS(LDK(KP956940335), Tha, Th3); cannam@95: T8e = VFNMS(LDK(KP148335987), T7R, T7Y); cannam@95: T7Z = VFMA(LDK(KP148335987), T7Y, T7R); cannam@95: T8F = VFMA(LDK(KP741650546), T8u, T8v); cannam@95: T8w = VFNMS(LDK(KP741650546), T8v, T8u); cannam@95: ST(&(xo[WS(os, 102)]), VFNMSI(Ths, Thr), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 26)]), VFMAI(Ths, Thr), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 90)]), VFMAI(Thq, Thn), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 38)]), VFNMSI(Thq, Thn), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 122)]), VFMAI(Thk, Thj), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 6)]), VFNMSI(Thk, Thj), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 58)]), VFMAI(Thi, Thb), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 70)]), VFNMSI(Thi, Thb), ovs, &(xo[0])); cannam@95: T8k = VADD(T8d, T8e); cannam@95: T8f = VSUB(T8d, T8e); cannam@95: T8n = VSUB(T7G, T7Z); cannam@95: T80 = VADD(T7G, T7Z); cannam@95: } cannam@95: } cannam@95: T9l = VSUB(T72, T75); cannam@95: T76 = VADD(T72, T75); cannam@95: T87 = VSUB(T85, T86); cannam@95: T8U = VADD(T85, T86); cannam@95: T89 = VFNMS(LDK(KP303346683), T7a, T7d); cannam@95: T7e = VFMA(LDK(KP303346683), T7d, T7a); cannam@95: T7l = VFMA(LDK(KP303346683), T7k, T7h); cannam@95: T8a = VFNMS(LDK(KP303346683), T7h, T7k); cannam@95: } cannam@95: } cannam@95: { cannam@95: V T11, T5h, T5a, T55, T5d, T4K, T5C, T5x, T5F, T5q, T4X, T4Z, T1C, T2d, T50; cannam@95: { cannam@95: V T5k, T3g, T3t, T5l, T5n, T4v, T4I, T5o, T8G, T8z; cannam@95: T5k = VFNMS(LDK(KP980785280), T3f, T2G); cannam@95: T3g = VFMA(LDK(KP980785280), T3f, T2G); cannam@95: T8G = VFMA(LDK(KP741650546), T8x, T8y); cannam@95: T8z = VFNMS(LDK(KP741650546), T8y, T8x); cannam@95: { cannam@95: V T8r, T77, T8C, T88; cannam@95: T8r = VFNMS(LDK(KP831469612), T76, T6Z); cannam@95: T77 = VFMA(LDK(KP831469612), T76, T6Z); cannam@95: T8C = VFNMS(LDK(KP831469612), T87, T84); cannam@95: T88 = VFMA(LDK(KP831469612), T87, T84); cannam@95: { cannam@95: V T8D, T7m, T8s, T8b; cannam@95: T8D = VSUB(T7e, T7l); cannam@95: T7m = VADD(T7e, T7l); cannam@95: T8s = VADD(T89, T8a); cannam@95: T8b = VSUB(T89, T8a); cannam@95: { cannam@95: V T8M, T8H, T8P, T8A; cannam@95: T8M = VADD(T8F, T8G); cannam@95: T8H = VSUB(T8F, T8G); cannam@95: T8P = VSUB(T8w, T8z); cannam@95: T8A = VADD(T8w, T8z); cannam@95: { cannam@95: V T8E, T8O, T8j, T7n; cannam@95: T8E = VFMA(LDK(KP956940335), T8D, T8C); cannam@95: T8O = VFNMS(LDK(KP956940335), T8D, T8C); cannam@95: T8j = VFNMS(LDK(KP956940335), T7m, T77); cannam@95: T7n = VFMA(LDK(KP956940335), T7m, T77); cannam@95: { cannam@95: V T8t, T8L, T8m, T8c; cannam@95: T8t = VFNMS(LDK(KP956940335), T8s, T8r); cannam@95: T8L = VFMA(LDK(KP956940335), T8s, T8r); cannam@95: T8m = VFNMS(LDK(KP956940335), T8b, T88); cannam@95: T8c = VFMA(LDK(KP956940335), T8b, T88); cannam@95: { cannam@95: V T8K, T8I, T8S, T8Q; cannam@95: T8K = VFMA(LDK(KP803207531), T8H, T8E); cannam@95: T8I = VFNMS(LDK(KP803207531), T8H, T8E); cannam@95: T8S = VFNMS(LDK(KP803207531), T8P, T8O); cannam@95: T8Q = VFMA(LDK(KP803207531), T8P, T8O); cannam@95: { cannam@95: V T8p, T8l, T8h, T81; cannam@95: T8p = VFNMS(LDK(KP989176509), T8k, T8j); cannam@95: T8l = VFMA(LDK(KP989176509), T8k, T8j); cannam@95: T8h = VFMA(LDK(KP989176509), T80, T7n); cannam@95: T81 = VFNMS(LDK(KP989176509), T80, T7n); cannam@95: { cannam@95: V T8J, T8B, T8R, T8N; cannam@95: T8J = VFMA(LDK(KP803207531), T8A, T8t); cannam@95: T8B = VFNMS(LDK(KP803207531), T8A, T8t); cannam@95: T8R = VFMA(LDK(KP803207531), T8M, T8L); cannam@95: T8N = VFNMS(LDK(KP803207531), T8M, T8L); cannam@95: { cannam@95: V T8q, T8o, T8i, T8g; cannam@95: T8q = VFMA(LDK(KP989176509), T8n, T8m); cannam@95: T8o = VFNMS(LDK(KP989176509), T8n, T8m); cannam@95: T8i = VFMA(LDK(KP989176509), T8f, T8c); cannam@95: T8g = VFNMS(LDK(KP989176509), T8f, T8c); cannam@95: ST(&(xo[WS(os, 13)]), VFMAI(T8K, T8J), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 115)]), VFNMSI(T8K, T8J), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 77)]), VFMAI(T8I, T8B), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 51)]), VFNMSI(T8I, T8B), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 109)]), VFMAI(T8S, T8R), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 19)]), VFNMSI(T8S, T8R), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 83)]), VFNMSI(T8Q, T8N), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 45)]), VFMAI(T8Q, T8N), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 99)]), VFNMSI(T8q, T8p), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 29)]), VFMAI(T8q, T8p), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 93)]), VFMAI(T8o, T8l), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 35)]), VFNMSI(T8o, T8l), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 125)]), VFMAI(T8i, T8h), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 3)]), VFNMSI(T8i, T8h), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 61)]), VFMAI(T8g, T81), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 67)]), VFNMSI(T8g, T81), ovs, &(xo[WS(os, 1)])); cannam@95: T3t = VFMA(LDK(KP980785280), T3s, T3p); cannam@95: T5l = VFNMS(LDK(KP980785280), T3s, T3p); cannam@95: } cannam@95: } cannam@95: } cannam@95: } cannam@95: } cannam@95: } cannam@95: } cannam@95: } cannam@95: } cannam@95: T5n = VFNMS(LDK(KP980785280), T4u, T3V); cannam@95: T4v = VFMA(LDK(KP980785280), T4u, T3V); cannam@95: T4I = VFMA(LDK(KP980785280), T4H, T4E); cannam@95: T5o = VFNMS(LDK(KP980785280), T4H, T4E); cannam@95: { cannam@95: V T53, T3u, T54, T4J, T5v, T5m, T5w, T5p, T10; cannam@95: T6b = VSUB(TI, TZ); cannam@95: T10 = VADD(TI, TZ); cannam@95: T53 = VFMA(LDK(KP049126849), T3g, T3t); cannam@95: T3u = VFNMS(LDK(KP049126849), T3t, T3g); cannam@95: T54 = VFMA(LDK(KP049126849), T4v, T4I); cannam@95: T4J = VFNMS(LDK(KP049126849), T4I, T4v); cannam@95: T5v = VFNMS(LDK(KP906347169), T5k, T5l); cannam@95: T5m = VFMA(LDK(KP906347169), T5l, T5k); cannam@95: T5w = VFNMS(LDK(KP906347169), T5n, T5o); cannam@95: T5p = VFMA(LDK(KP906347169), T5o, T5n); cannam@95: T11 = VFMA(LDK(KP980785280), T10, Tr); cannam@95: T5h = VFNMS(LDK(KP980785280), T10, Tr); cannam@95: T5a = VADD(T53, T54); cannam@95: T55 = VSUB(T53, T54); cannam@95: T5d = VSUB(T3u, T4J); cannam@95: T4K = VADD(T3u, T4J); cannam@95: T5C = VADD(T5v, T5w); cannam@95: T5x = VSUB(T5v, T5w); cannam@95: T5F = VSUB(T5m, T5p); cannam@95: T5q = VADD(T5m, T5p); cannam@95: T4X = VSUB(T4V, T4W); cannam@95: T5K = VADD(T4V, T4W); cannam@95: } cannam@95: T4Z = VFMA(LDK(KP098491403), T1s, T1B); cannam@95: T1C = VFNMS(LDK(KP098491403), T1B, T1s); cannam@95: T2d = VFNMS(LDK(KP098491403), T2c, T23); cannam@95: T50 = VFMA(LDK(KP098491403), T23, T2c); cannam@95: } cannam@95: { cannam@95: V T9y, T9t, T9B, T9i, T9n, T9o, T9F, T8V, T9Q, T9m, T9R, T92, Ta0, T9V, Ta3; cannam@95: V T9O; cannam@95: { cannam@95: V T9I, T9J, T9L, T9d, T5s, T4Y, T5t, T2e, T5i, T51, T9r, T9a, T9g, T9M, T96; cannam@95: V T99; cannam@95: T9I = VFMA(LDK(KP831469612), T95, T94); cannam@95: T96 = VFNMS(LDK(KP831469612), T95, T94); cannam@95: T99 = VFNMS(LDK(KP831469612), T98, T97); cannam@95: T9J = VFMA(LDK(KP831469612), T98, T97); cannam@95: T9L = VFMA(LDK(KP831469612), T9c, T9b); cannam@95: T9d = VFNMS(LDK(KP831469612), T9c, T9b); cannam@95: T5s = VFNMS(LDK(KP980785280), T4X, T4U); cannam@95: T4Y = VFMA(LDK(KP980785280), T4X, T4U); cannam@95: T5t = VSUB(T1C, T2d); cannam@95: T2e = VADD(T1C, T2d); cannam@95: T5i = VADD(T4Z, T50); cannam@95: T51 = VSUB(T4Z, T50); cannam@95: T9r = VFNMS(LDK(KP599376933), T96, T99); cannam@95: T9a = VFMA(LDK(KP599376933), T99, T96); cannam@95: T9g = VFNMS(LDK(KP831469612), T9f, T9e); cannam@95: T9M = VFMA(LDK(KP831469612), T9f, T9e); cannam@95: { cannam@95: V T5u, T5E, T8Y, T91; cannam@95: T5u = VFNMS(LDK(KP995184726), T5t, T5s); cannam@95: T5E = VFMA(LDK(KP995184726), T5t, T5s); cannam@95: { cannam@95: V T59, T2f, T5j, T5B; cannam@95: T59 = VFNMS(LDK(KP995184726), T2e, T11); cannam@95: T2f = VFMA(LDK(KP995184726), T2e, T11); cannam@95: T5j = VFMA(LDK(KP995184726), T5i, T5h); cannam@95: T5B = VFNMS(LDK(KP995184726), T5i, T5h); cannam@95: { cannam@95: V T5c, T52, T9s, T9h; cannam@95: T5c = VFNMS(LDK(KP995184726), T51, T4Y); cannam@95: T52 = VFMA(LDK(KP995184726), T51, T4Y); cannam@95: T9s = VFNMS(LDK(KP599376933), T9d, T9g); cannam@95: T9h = VFMA(LDK(KP599376933), T9g, T9d); cannam@95: { cannam@95: V T5A, T5y, T5I, T5G; cannam@95: T5A = VFMA(LDK(KP740951125), T5x, T5u); cannam@95: T5y = VFNMS(LDK(KP740951125), T5x, T5u); cannam@95: T5I = VFMA(LDK(KP740951125), T5F, T5E); cannam@95: T5G = VFNMS(LDK(KP740951125), T5F, T5E); cannam@95: { cannam@95: V T5f, T5b, T57, T4L; cannam@95: T5f = VFMA(LDK(KP998795456), T5a, T59); cannam@95: T5b = VFNMS(LDK(KP998795456), T5a, T59); cannam@95: T57 = VFMA(LDK(KP998795456), T4K, T2f); cannam@95: T4L = VFNMS(LDK(KP998795456), T4K, T2f); cannam@95: { cannam@95: V T5z, T5r, T5H, T5D; cannam@95: T5z = VFMA(LDK(KP740951125), T5q, T5j); cannam@95: T5r = VFNMS(LDK(KP740951125), T5q, T5j); cannam@95: T5H = VFNMS(LDK(KP740951125), T5C, T5B); cannam@95: T5D = VFMA(LDK(KP740951125), T5C, T5B); cannam@95: { cannam@95: V T5g, T5e, T58, T56; cannam@95: T5g = VFNMS(LDK(KP998795456), T5d, T5c); cannam@95: T5e = VFMA(LDK(KP998795456), T5d, T5c); cannam@95: T58 = VFMA(LDK(KP998795456), T55, T52); cannam@95: T56 = VFNMS(LDK(KP998795456), T55, T52); cannam@95: T9y = VADD(T9r, T9s); cannam@95: T9t = VSUB(T9r, T9s); cannam@95: T9B = VSUB(T9a, T9h); cannam@95: T9i = VADD(T9a, T9h); cannam@95: ST(&(xo[WS(os, 113)]), VFMAI(T5A, T5z), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 15)]), VFNMSI(T5A, T5z), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 49)]), VFMAI(T5y, T5r), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 79)]), VFNMSI(T5y, T5r), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 111)]), VFNMSI(T5I, T5H), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 17)]), VFMAI(T5I, T5H), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 81)]), VFMAI(T5G, T5D), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 47)]), VFNMSI(T5G, T5D), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 97)]), VFMAI(T5g, T5f), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 31)]), VFNMSI(T5g, T5f), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 95)]), VFNMSI(T5e, T5b), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 33)]), VFMAI(T5e, T5b), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 1)]), VFMAI(T58, T57), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 127)]), VFNMSI(T58, T57), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 65)]), VFMAI(T56, T4L), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 63)]), VFNMSI(T56, T4L), ovs, &(xo[WS(os, 1)])); cannam@95: } cannam@95: } cannam@95: } cannam@95: } cannam@95: } cannam@95: } cannam@95: T9n = VFNMS(LDK(KP534511135), T8W, T8X); cannam@95: T8Y = VFMA(LDK(KP534511135), T8X, T8W); cannam@95: T91 = VFMA(LDK(KP534511135), T90, T8Z); cannam@95: T9o = VFNMS(LDK(KP534511135), T8Z, T90); cannam@95: { cannam@95: V T9T, T9K, T9U, T9N; cannam@95: T9T = VFMA(LDK(KP250486960), T9I, T9J); cannam@95: T9K = VFNMS(LDK(KP250486960), T9J, T9I); cannam@95: T9U = VFMA(LDK(KP250486960), T9L, T9M); cannam@95: T9N = VFNMS(LDK(KP250486960), T9M, T9L); cannam@95: T9F = VFNMS(LDK(KP831469612), T8U, T8T); cannam@95: T8V = VFMA(LDK(KP831469612), T8U, T8T); cannam@95: T9Q = VFMA(LDK(KP831469612), T9l, T9k); cannam@95: T9m = VFNMS(LDK(KP831469612), T9l, T9k); cannam@95: T9R = VSUB(T8Y, T91); cannam@95: T92 = VADD(T8Y, T91); cannam@95: Ta0 = VADD(T9T, T9U); cannam@95: T9V = VSUB(T9T, T9U); cannam@95: Ta3 = VSUB(T9K, T9N); cannam@95: T9O = VADD(T9K, T9N); cannam@95: } cannam@95: } cannam@95: } cannam@95: { cannam@95: V T6y, T6z, T63, T9Y, T9W, Ta6, Ta4, T9D, T9z, T9v, T9j, T6h, T60, T9H, T9Z; cannam@95: V T9A, T9q, T66, T9X, T9P; cannam@95: { cannam@95: V T5W, T9S, Ta2, T9x, T93, T5Z, T9G, T9p; cannam@95: T6y = VFMA(LDK(KP980785280), T5V, T5U); cannam@95: T5W = VFNMS(LDK(KP980785280), T5V, T5U); cannam@95: T9S = VFMA(LDK(KP881921264), T9R, T9Q); cannam@95: Ta2 = VFNMS(LDK(KP881921264), T9R, T9Q); cannam@95: T9x = VFNMS(LDK(KP881921264), T92, T8V); cannam@95: T93 = VFMA(LDK(KP881921264), T92, T8V); cannam@95: T5Z = VFMA(LDK(KP980785280), T5Y, T5X); cannam@95: T6z = VFNMS(LDK(KP980785280), T5Y, T5X); cannam@95: T6B = VFMA(LDK(KP980785280), T62, T61); cannam@95: T63 = VFNMS(LDK(KP980785280), T62, T61); cannam@95: T9G = VADD(T9n, T9o); cannam@95: T9p = VSUB(T9n, T9o); cannam@95: T9Y = VFMA(LDK(KP970031253), T9V, T9S); cannam@95: T9W = VFNMS(LDK(KP970031253), T9V, T9S); cannam@95: Ta6 = VFNMS(LDK(KP970031253), Ta3, Ta2); cannam@95: Ta4 = VFMA(LDK(KP970031253), Ta3, Ta2); cannam@95: T9D = VFNMS(LDK(KP857728610), T9y, T9x); cannam@95: T9z = VFMA(LDK(KP857728610), T9y, T9x); cannam@95: T9v = VFMA(LDK(KP857728610), T9i, T93); cannam@95: T9j = VFNMS(LDK(KP857728610), T9i, T93); cannam@95: T6h = VFMA(LDK(KP472964775), T5W, T5Z); cannam@95: T60 = VFNMS(LDK(KP472964775), T5Z, T5W); cannam@95: T9H = VFMA(LDK(KP881921264), T9G, T9F); cannam@95: T9Z = VFNMS(LDK(KP881921264), T9G, T9F); cannam@95: T9A = VFMA(LDK(KP881921264), T9p, T9m); cannam@95: T9q = VFNMS(LDK(KP881921264), T9p, T9m); cannam@95: T66 = VFMA(LDK(KP980785280), T65, T64); cannam@95: T6C = VFNMS(LDK(KP980785280), T65, T64); cannam@95: } cannam@95: T9X = VFMA(LDK(KP970031253), T9O, T9H); cannam@95: T9P = VFNMS(LDK(KP970031253), T9O, T9H); cannam@95: { cannam@95: V Ta5, Ta1, T9E, T9C; cannam@95: Ta5 = VFMA(LDK(KP970031253), Ta0, T9Z); cannam@95: Ta1 = VFNMS(LDK(KP970031253), Ta0, T9Z); cannam@95: T9E = VFMA(LDK(KP857728610), T9B, T9A); cannam@95: T9C = VFNMS(LDK(KP857728610), T9B, T9A); cannam@95: { cannam@95: V T9w, T9u, T6i, T67; cannam@95: T9w = VFMA(LDK(KP857728610), T9t, T9q); cannam@95: T9u = VFNMS(LDK(KP857728610), T9t, T9q); cannam@95: T6i = VFMA(LDK(KP472964775), T63, T66); cannam@95: T67 = VFNMS(LDK(KP472964775), T66, T63); cannam@95: T6J = VFNMS(LDK(KP357805721), T6y, T6z); cannam@95: T6A = VFMA(LDK(KP357805721), T6z, T6y); cannam@95: ST(&(xo[WS(os, 5)]), VFMAI(T9Y, T9X), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 123)]), VFNMSI(T9Y, T9X), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 69)]), VFMAI(T9W, T9P), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 59)]), VFNMSI(T9W, T9P), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 101)]), VFMAI(Ta6, Ta5), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 27)]), VFNMSI(Ta6, Ta5), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 91)]), VFNMSI(Ta4, Ta1), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 37)]), VFMAI(Ta4, Ta1), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 107)]), VFNMSI(T9E, T9D), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 21)]), VFMAI(T9E, T9D), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 85)]), VFMAI(T9C, T9z), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 43)]), VFNMSI(T9C, T9z), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 117)]), VFMAI(T9w, T9v), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 11)]), VFNMSI(T9w, T9v), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 53)]), VFMAI(T9u, T9j), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 75)]), VFNMSI(T9u, T9j), ovs, &(xo[WS(os, 1)])); cannam@95: T6o = VADD(T6h, T6i); cannam@95: T6j = VSUB(T6h, T6i); cannam@95: T6r = VSUB(T60, T67); cannam@95: T68 = VADD(T60, T67); cannam@95: } cannam@95: } cannam@95: T6d = VFMA(LDK(KP820678790), T5M, T5N); cannam@95: T5O = VFNMS(LDK(KP820678790), T5N, T5M); cannam@95: T5R = VFNMS(LDK(KP820678790), T5Q, T5P); cannam@95: T6e = VFMA(LDK(KP820678790), T5P, T5Q); cannam@95: } cannam@95: } cannam@95: } cannam@95: } cannam@95: } cannam@95: } cannam@95: T6D = VFMA(LDK(KP357805721), T6C, T6B); cannam@95: T6K = VFNMS(LDK(KP357805721), T6B, T6C); cannam@95: { cannam@95: V T5L, T6v, T6c, T6G; cannam@95: T5L = VFNMS(LDK(KP980785280), T5K, T5J); cannam@95: T6v = VFMA(LDK(KP980785280), T5K, T5J); cannam@95: T6c = VFMA(LDK(KP980785280), T6b, T6a); cannam@95: T6G = VFNMS(LDK(KP980785280), T6b, T6a); cannam@95: { cannam@95: V T5S, T6H, T6f, T6w; cannam@95: T5S = VADD(T5O, T5R); cannam@95: T6H = VSUB(T5O, T5R); cannam@95: T6f = VSUB(T6d, T6e); cannam@95: T6w = VADD(T6d, T6e); cannam@95: { cannam@95: V T6L, T6Q, T6E, T6T; cannam@95: T6L = VSUB(T6J, T6K); cannam@95: T6Q = VADD(T6J, T6K); cannam@95: T6E = VADD(T6A, T6D); cannam@95: T6T = VSUB(T6A, T6D); cannam@95: { cannam@95: V T6S, T6I, T5T, T6n; cannam@95: T6S = VFNMS(LDK(KP773010453), T6H, T6G); cannam@95: T6I = VFMA(LDK(KP773010453), T6H, T6G); cannam@95: T5T = VFNMS(LDK(KP773010453), T5S, T5L); cannam@95: T6n = VFMA(LDK(KP773010453), T5S, T5L); cannam@95: { cannam@95: V T6P, T6x, T6g, T6q; cannam@95: T6P = VFNMS(LDK(KP773010453), T6w, T6v); cannam@95: T6x = VFMA(LDK(KP773010453), T6w, T6v); cannam@95: T6g = VFMA(LDK(KP773010453), T6f, T6c); cannam@95: T6q = VFNMS(LDK(KP773010453), T6f, T6c); cannam@95: { cannam@95: V T6M, T6O, T6U, T6W; cannam@95: T6M = VFNMS(LDK(KP941544065), T6L, T6I); cannam@95: T6O = VFMA(LDK(KP941544065), T6L, T6I); cannam@95: T6U = VFNMS(LDK(KP941544065), T6T, T6S); cannam@95: T6W = VFMA(LDK(KP941544065), T6T, T6S); cannam@95: { cannam@95: V T6p, T6t, T69, T6l; cannam@95: T6p = VFNMS(LDK(KP903989293), T6o, T6n); cannam@95: T6t = VFMA(LDK(KP903989293), T6o, T6n); cannam@95: T69 = VFNMS(LDK(KP903989293), T68, T5T); cannam@95: T6l = VFMA(LDK(KP903989293), T68, T5T); cannam@95: { cannam@95: V T6F, T6N, T6R, T6V; cannam@95: T6F = VFNMS(LDK(KP941544065), T6E, T6x); cannam@95: T6N = VFMA(LDK(KP941544065), T6E, T6x); cannam@95: T6R = VFMA(LDK(KP941544065), T6Q, T6P); cannam@95: T6V = VFNMS(LDK(KP941544065), T6Q, T6P); cannam@95: { cannam@95: V T6s, T6u, T6k, T6m; cannam@95: T6s = VFMA(LDK(KP903989293), T6r, T6q); cannam@95: T6u = VFNMS(LDK(KP903989293), T6r, T6q); cannam@95: T6k = VFNMS(LDK(KP903989293), T6j, T6g); cannam@95: T6m = VFMA(LDK(KP903989293), T6j, T6g); cannam@95: ST(&(xo[WS(os, 121)]), VFMAI(T6O, T6N), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 7)]), VFNMSI(T6O, T6N), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 57)]), VFMAI(T6M, T6F), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 71)]), VFNMSI(T6M, T6F), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 103)]), VFNMSI(T6W, T6V), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 25)]), VFMAI(T6W, T6V), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 89)]), VFMAI(T6U, T6R), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 39)]), VFNMSI(T6U, T6R), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 105)]), VFMAI(T6u, T6t), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 23)]), VFNMSI(T6u, T6t), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 87)]), VFNMSI(T6s, T6p), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 41)]), VFMAI(T6s, T6p), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 9)]), VFMAI(T6m, T6l), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 119)]), VFNMSI(T6m, T6l), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 73)]), VFMAI(T6k, T69), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 55)]), VFNMSI(T6k, T69), ovs, &(xo[WS(os, 1)])); cannam@95: } cannam@95: } cannam@95: } cannam@95: } cannam@95: } cannam@95: } cannam@95: } cannam@95: } cannam@95: } cannam@95: } cannam@95: } cannam@95: VLEAVE(); cannam@95: } cannam@95: cannam@95: static const kdft_desc desc = { 128, XSIMD_STRING("n1bv_128"), {440, 0, 642, 0}, &GENUS, 0, 0, 0, 0 }; cannam@95: cannam@95: void XSIMD(codelet_n1bv_128) (planner *p) { cannam@95: X(kdft_register) (p, n1bv_128, &desc); cannam@95: } cannam@95: cannam@95: #else /* HAVE_FMA */ cannam@95: cannam@95: /* Generated by: ../../../genfft/gen_notw_c.native -simd -compact -variables 4 -pipeline-latency 8 -sign 1 -n 128 -name n1bv_128 -include n1b.h */ cannam@95: cannam@95: /* cannam@95: * This function contains 1082 FP additions, 330 FP multiplications, cannam@95: * (or, 938 additions, 186 multiplications, 144 fused multiply/add), cannam@95: * 194 stack variables, 31 constants, and 256 memory accesses cannam@95: */ cannam@95: #include "n1b.h" cannam@95: cannam@95: static void n1bv_128(const R *ri, const R *ii, R *ro, R *io, stride is, stride os, INT v, INT ivs, INT ovs) cannam@95: { cannam@95: DVK(KP146730474, +0.146730474455361751658850129646717819706215317); cannam@95: DVK(KP989176509, +0.989176509964780973451673738016243063983689533); cannam@95: DVK(KP595699304, +0.595699304492433343467036528829969889511926338); cannam@95: DVK(KP803207531, +0.803207531480644909806676512963141923879569427); cannam@95: DVK(KP049067674, +0.049067674327418014254954976942682658314745363); cannam@95: DVK(KP998795456, +0.998795456205172392714771604759100694443203615); cannam@95: DVK(KP671558954, +0.671558954847018400625376850427421803228750632); cannam@95: DVK(KP740951125, +0.740951125354959091175616897495162729728955309); cannam@95: DVK(KP514102744, +0.514102744193221726593693838968815772608049120); cannam@95: DVK(KP857728610, +0.857728610000272069902269984284770137042490799); cannam@95: DVK(KP242980179, +0.242980179903263889948274162077471118320990783); cannam@95: DVK(KP970031253, +0.970031253194543992603984207286100251456865962); cannam@95: DVK(KP427555093, +0.427555093430282094320966856888798534304578629); cannam@95: DVK(KP903989293, +0.903989293123443331586200297230537048710132025); cannam@95: DVK(KP336889853, +0.336889853392220050689253212619147570477766780); cannam@95: DVK(KP941544065, +0.941544065183020778412509402599502357185589796); cannam@95: DVK(KP634393284, +0.634393284163645498215171613225493370675687095); cannam@95: DVK(KP773010453, +0.773010453362736960810906609758469800971041293); cannam@95: DVK(KP098017140, +0.098017140329560601994195563888641845861136673); cannam@95: DVK(KP995184726, +0.995184726672196886244836953109479921575474869); cannam@95: DVK(KP290284677, +0.290284677254462367636192375817395274691476278); cannam@95: DVK(KP956940335, +0.956940335732208864935797886980269969482849206); cannam@95: DVK(KP471396736, +0.471396736825997648556387625905254377657460319); cannam@95: DVK(KP881921264, +0.881921264348355029712756863660388349508442621); cannam@95: DVK(KP980785280, +0.980785280403230449126182236134239036973933731); cannam@95: DVK(KP195090322, +0.195090322016128267848284868477022240927691618); cannam@95: DVK(KP555570233, +0.555570233019602224742830813948532874374937191); cannam@95: DVK(KP831469612, +0.831469612302545237078788377617905756738560812); cannam@95: DVK(KP382683432, +0.382683432365089771728459984030398866761344562); cannam@95: DVK(KP923879532, +0.923879532511286756128183189396788286822416626); cannam@95: DVK(KP707106781, +0.707106781186547524400844362104849039284835938); cannam@95: { cannam@95: INT i; cannam@95: const R *xi; cannam@95: R *xo; cannam@95: xi = ii; cannam@95: xo = io; cannam@95: for (i = v; i > 0; i = i - VL, xi = xi + (VL * ivs), xo = xo + (VL * ovs), MAKE_VOLATILE_STRIDE(256, is), MAKE_VOLATILE_STRIDE(256, os)) { cannam@95: V T49, T6e, Tev, TgK, TfA, TgL, T4U, T5J, T7R, T9o, Tah, TdG, Tcw, TdB, T84; cannam@95: V T8T, Tfk, Tfo, T1G, T64, Tgs, Th6, T2p, T62, T7t, T9c, Tce, Tdm, T7i, T9e; cannam@95: V Tc8, Tdp, TgF, TgG, T4q, T4V, TeC, Tfx, T4H, T4W, T7X, T86, Tcr, TdH, T7U; cannam@95: V T85, Taw, TdC, Tf3, Tf7, Tr, T5X, Tgl, Th3, T1a, T5V, T7a, T95, TbD, Tdf; cannam@95: V T6Z, T97, Tbx, Tdi, Tgy, Tgz, TgA, TaN, Tdv, TeK, Tfu, T2W, T5M, T35, T5N; cannam@95: V T7F, T8X, TaI, Tdu, T7C, T8W, TgB, TgC, TgD, Tb4, Tdy, TeR, Tfv, T3x, T5P; cannam@95: V T3G, T5Q, T7M, T90, TaZ, Tdx, T7J, T8Z, Tbm, Tdg, TbG, Tdj, Tgo, Th4, Tf0; cannam@95: V Tf8, T76, T98, T7d, T94, T10, T5Y, T1d, T5U, TbX, Tdn, Tch, Tdq, Tgv, Th7; cannam@95: V Tfh, Tfp, T7p, T9f, T7w, T9b, T2f, T65, T2s, T61; cannam@95: { cannam@95: V T47, Ta8, T4O, Ta7, T44, Tcu, T4P, Tct, Taa, Tab, T3P, Tac, T4R, Tad, Tae; cannam@95: V T3W, Taf, T4S; cannam@95: { cannam@95: V T45, T46, T4M, T4N; cannam@95: T45 = LD(&(xi[WS(is, 32)]), ivs, &(xi[0])); cannam@95: T46 = LD(&(xi[WS(is, 96)]), ivs, &(xi[0])); cannam@95: T47 = VSUB(T45, T46); cannam@95: Ta8 = VADD(T45, T46); cannam@95: T4M = LD(&(xi[0]), ivs, &(xi[0])); cannam@95: T4N = LD(&(xi[WS(is, 64)]), ivs, &(xi[0])); cannam@95: T4O = VSUB(T4M, T4N); cannam@95: Ta7 = VADD(T4M, T4N); cannam@95: } cannam@95: { cannam@95: V T3Y, T3Z, T40, T41, T42, T43; cannam@95: T3Y = LD(&(xi[WS(is, 16)]), ivs, &(xi[0])); cannam@95: T3Z = LD(&(xi[WS(is, 80)]), ivs, &(xi[0])); cannam@95: T40 = VSUB(T3Y, T3Z); cannam@95: T41 = LD(&(xi[WS(is, 112)]), ivs, &(xi[0])); cannam@95: T42 = LD(&(xi[WS(is, 48)]), ivs, &(xi[0])); cannam@95: T43 = VSUB(T41, T42); cannam@95: T44 = VMUL(LDK(KP707106781), VSUB(T40, T43)); cannam@95: Tcu = VADD(T41, T42); cannam@95: T4P = VMUL(LDK(KP707106781), VADD(T40, T43)); cannam@95: Tct = VADD(T3Y, T3Z); cannam@95: } cannam@95: { cannam@95: V T3L, T3O, T3S, T3V; cannam@95: { cannam@95: V T3J, T3K, T3M, T3N; cannam@95: T3J = LD(&(xi[WS(is, 8)]), ivs, &(xi[0])); cannam@95: T3K = LD(&(xi[WS(is, 72)]), ivs, &(xi[0])); cannam@95: T3L = VSUB(T3J, T3K); cannam@95: Taa = VADD(T3J, T3K); cannam@95: T3M = LD(&(xi[WS(is, 40)]), ivs, &(xi[0])); cannam@95: T3N = LD(&(xi[WS(is, 104)]), ivs, &(xi[0])); cannam@95: T3O = VSUB(T3M, T3N); cannam@95: Tab = VADD(T3M, T3N); cannam@95: } cannam@95: T3P = VFNMS(LDK(KP382683432), T3O, VMUL(LDK(KP923879532), T3L)); cannam@95: Tac = VSUB(Taa, Tab); cannam@95: T4R = VFMA(LDK(KP382683432), T3L, VMUL(LDK(KP923879532), T3O)); cannam@95: { cannam@95: V T3Q, T3R, T3T, T3U; cannam@95: T3Q = LD(&(xi[WS(is, 120)]), ivs, &(xi[0])); cannam@95: T3R = LD(&(xi[WS(is, 56)]), ivs, &(xi[0])); cannam@95: T3S = VSUB(T3Q, T3R); cannam@95: Tad = VADD(T3Q, T3R); cannam@95: T3T = LD(&(xi[WS(is, 24)]), ivs, &(xi[0])); cannam@95: T3U = LD(&(xi[WS(is, 88)]), ivs, &(xi[0])); cannam@95: T3V = VSUB(T3T, T3U); cannam@95: Tae = VADD(T3T, T3U); cannam@95: } cannam@95: T3W = VFMA(LDK(KP923879532), T3S, VMUL(LDK(KP382683432), T3V)); cannam@95: Taf = VSUB(Tad, Tae); cannam@95: T4S = VFNMS(LDK(KP382683432), T3S, VMUL(LDK(KP923879532), T3V)); cannam@95: } cannam@95: { cannam@95: V T3X, T48, Tet, Teu; cannam@95: T3X = VSUB(T3P, T3W); cannam@95: T48 = VSUB(T44, T47); cannam@95: T49 = VSUB(T3X, T48); cannam@95: T6e = VADD(T48, T3X); cannam@95: Tet = VADD(Ta7, Ta8); cannam@95: Teu = VADD(Tct, Tcu); cannam@95: Tev = VSUB(Tet, Teu); cannam@95: TgK = VADD(Tet, Teu); cannam@95: } cannam@95: { cannam@95: V Tfy, Tfz, T4Q, T4T; cannam@95: Tfy = VADD(Taa, Tab); cannam@95: Tfz = VADD(Tad, Tae); cannam@95: TfA = VSUB(Tfy, Tfz); cannam@95: TgL = VADD(Tfy, Tfz); cannam@95: T4Q = VSUB(T4O, T4P); cannam@95: T4T = VSUB(T4R, T4S); cannam@95: T4U = VSUB(T4Q, T4T); cannam@95: T5J = VADD(T4Q, T4T); cannam@95: } cannam@95: { cannam@95: V T7P, T7Q, Ta9, Tag; cannam@95: T7P = VADD(T4R, T4S); cannam@95: T7Q = VADD(T47, T44); cannam@95: T7R = VSUB(T7P, T7Q); cannam@95: T9o = VADD(T7Q, T7P); cannam@95: Ta9 = VSUB(Ta7, Ta8); cannam@95: Tag = VMUL(LDK(KP707106781), VADD(Tac, Taf)); cannam@95: Tah = VSUB(Ta9, Tag); cannam@95: TdG = VADD(Ta9, Tag); cannam@95: } cannam@95: { cannam@95: V Tcs, Tcv, T82, T83; cannam@95: Tcs = VMUL(LDK(KP707106781), VSUB(Tac, Taf)); cannam@95: Tcv = VSUB(Tct, Tcu); cannam@95: Tcw = VSUB(Tcs, Tcv); cannam@95: TdB = VADD(Tcv, Tcs); cannam@95: T82 = VADD(T4O, T4P); cannam@95: T83 = VADD(T3P, T3W); cannam@95: T84 = VSUB(T82, T83); cannam@95: T8T = VADD(T82, T83); cannam@95: } cannam@95: } cannam@95: { cannam@95: V Tca, Tcb, T1i, Tfm, T2n, Tc5, Tc6, T1p, Tfn, T2k, T1x, Tfi, T2h, Tc0, T1E; cannam@95: V Tfj, T2i, Tc3, T1l, T1o, Tcc, Tcd; cannam@95: { cannam@95: V T1g, T1h, T2l, T2m; cannam@95: T1g = LD(&(xi[WS(is, 127)]), ivs, &(xi[WS(is, 1)])); cannam@95: T1h = LD(&(xi[WS(is, 63)]), ivs, &(xi[WS(is, 1)])); cannam@95: Tca = VADD(T1g, T1h); cannam@95: T2l = LD(&(xi[WS(is, 31)]), ivs, &(xi[WS(is, 1)])); cannam@95: T2m = LD(&(xi[WS(is, 95)]), ivs, &(xi[WS(is, 1)])); cannam@95: Tcb = VADD(T2l, T2m); cannam@95: T1i = VSUB(T1g, T1h); cannam@95: Tfm = VADD(Tca, Tcb); cannam@95: T2n = VSUB(T2l, T2m); cannam@95: } cannam@95: { cannam@95: V T1j, T1k, T1m, T1n; cannam@95: T1j = LD(&(xi[WS(is, 15)]), ivs, &(xi[WS(is, 1)])); cannam@95: T1k = LD(&(xi[WS(is, 79)]), ivs, &(xi[WS(is, 1)])); cannam@95: T1l = VSUB(T1j, T1k); cannam@95: Tc5 = VADD(T1j, T1k); cannam@95: T1m = LD(&(xi[WS(is, 111)]), ivs, &(xi[WS(is, 1)])); cannam@95: T1n = LD(&(xi[WS(is, 47)]), ivs, &(xi[WS(is, 1)])); cannam@95: T1o = VSUB(T1m, T1n); cannam@95: Tc6 = VADD(T1m, T1n); cannam@95: } cannam@95: T1p = VMUL(LDK(KP707106781), VADD(T1l, T1o)); cannam@95: Tfn = VADD(Tc5, Tc6); cannam@95: T2k = VMUL(LDK(KP707106781), VSUB(T1l, T1o)); cannam@95: { cannam@95: V T1t, TbY, T1w, TbZ; cannam@95: { cannam@95: V T1r, T1s, T1u, T1v; cannam@95: T1r = LD(&(xi[WS(is, 7)]), ivs, &(xi[WS(is, 1)])); cannam@95: T1s = LD(&(xi[WS(is, 71)]), ivs, &(xi[WS(is, 1)])); cannam@95: T1t = VSUB(T1r, T1s); cannam@95: TbY = VADD(T1r, T1s); cannam@95: T1u = LD(&(xi[WS(is, 39)]), ivs, &(xi[WS(is, 1)])); cannam@95: T1v = LD(&(xi[WS(is, 103)]), ivs, &(xi[WS(is, 1)])); cannam@95: T1w = VSUB(T1u, T1v); cannam@95: TbZ = VADD(T1u, T1v); cannam@95: } cannam@95: T1x = VFMA(LDK(KP382683432), T1t, VMUL(LDK(KP923879532), T1w)); cannam@95: Tfi = VADD(TbY, TbZ); cannam@95: T2h = VFNMS(LDK(KP382683432), T1w, VMUL(LDK(KP923879532), T1t)); cannam@95: Tc0 = VSUB(TbY, TbZ); cannam@95: } cannam@95: { cannam@95: V T1A, Tc2, T1D, Tc1; cannam@95: { cannam@95: V T1y, T1z, T1B, T1C; cannam@95: T1y = LD(&(xi[WS(is, 23)]), ivs, &(xi[WS(is, 1)])); cannam@95: T1z = LD(&(xi[WS(is, 87)]), ivs, &(xi[WS(is, 1)])); cannam@95: T1A = VSUB(T1y, T1z); cannam@95: Tc2 = VADD(T1y, T1z); cannam@95: T1B = LD(&(xi[WS(is, 119)]), ivs, &(xi[WS(is, 1)])); cannam@95: T1C = LD(&(xi[WS(is, 55)]), ivs, &(xi[WS(is, 1)])); cannam@95: T1D = VSUB(T1B, T1C); cannam@95: Tc1 = VADD(T1B, T1C); cannam@95: } cannam@95: T1E = VFNMS(LDK(KP382683432), T1D, VMUL(LDK(KP923879532), T1A)); cannam@95: Tfj = VADD(Tc1, Tc2); cannam@95: T2i = VFMA(LDK(KP923879532), T1D, VMUL(LDK(KP382683432), T1A)); cannam@95: Tc3 = VSUB(Tc1, Tc2); cannam@95: } cannam@95: Tfk = VSUB(Tfi, Tfj); cannam@95: Tfo = VSUB(Tfm, Tfn); cannam@95: { cannam@95: V T1q, T1F, Tgq, Tgr; cannam@95: T1q = VSUB(T1i, T1p); cannam@95: T1F = VSUB(T1x, T1E); cannam@95: T1G = VSUB(T1q, T1F); cannam@95: T64 = VADD(T1q, T1F); cannam@95: Tgq = VADD(Tfm, Tfn); cannam@95: Tgr = VADD(Tfi, Tfj); cannam@95: Tgs = VSUB(Tgq, Tgr); cannam@95: Th6 = VADD(Tgq, Tgr); cannam@95: } cannam@95: { cannam@95: V T2j, T2o, T7r, T7s; cannam@95: T2j = VSUB(T2h, T2i); cannam@95: T2o = VSUB(T2k, T2n); cannam@95: T2p = VSUB(T2j, T2o); cannam@95: T62 = VADD(T2o, T2j); cannam@95: T7r = VADD(T1x, T1E); cannam@95: T7s = VADD(T2n, T2k); cannam@95: T7t = VSUB(T7r, T7s); cannam@95: T9c = VADD(T7s, T7r); cannam@95: } cannam@95: Tcc = VSUB(Tca, Tcb); cannam@95: Tcd = VMUL(LDK(KP707106781), VADD(Tc0, Tc3)); cannam@95: Tce = VSUB(Tcc, Tcd); cannam@95: Tdm = VADD(Tcc, Tcd); cannam@95: { cannam@95: V T7g, T7h, Tc4, Tc7; cannam@95: T7g = VADD(T1i, T1p); cannam@95: T7h = VADD(T2h, T2i); cannam@95: T7i = VSUB(T7g, T7h); cannam@95: T9e = VADD(T7g, T7h); cannam@95: Tc4 = VMUL(LDK(KP707106781), VSUB(Tc0, Tc3)); cannam@95: Tc7 = VSUB(Tc5, Tc6); cannam@95: Tc8 = VSUB(Tc4, Tc7); cannam@95: Tdp = VADD(Tc7, Tc4); cannam@95: } cannam@95: } cannam@95: { cannam@95: V T4c, Tew, T4o, Tak, T4A, Tez, T4E, Tau, T4j, Tex, T4l, Tan, T4x, TeA, T4F; cannam@95: V Tar, Tcp, Tcq; cannam@95: { cannam@95: V T4a, T4b, Tai, T4m, T4n, Taj; cannam@95: T4a = LD(&(xi[WS(is, 4)]), ivs, &(xi[0])); cannam@95: T4b = LD(&(xi[WS(is, 68)]), ivs, &(xi[0])); cannam@95: Tai = VADD(T4a, T4b); cannam@95: T4m = LD(&(xi[WS(is, 36)]), ivs, &(xi[0])); cannam@95: T4n = LD(&(xi[WS(is, 100)]), ivs, &(xi[0])); cannam@95: Taj = VADD(T4m, T4n); cannam@95: T4c = VSUB(T4a, T4b); cannam@95: Tew = VADD(Tai, Taj); cannam@95: T4o = VSUB(T4m, T4n); cannam@95: Tak = VSUB(Tai, Taj); cannam@95: } cannam@95: { cannam@95: V T4y, T4z, Tat, T4C, T4D, Tas; cannam@95: T4y = LD(&(xi[WS(is, 28)]), ivs, &(xi[0])); cannam@95: T4z = LD(&(xi[WS(is, 92)]), ivs, &(xi[0])); cannam@95: Tat = VADD(T4y, T4z); cannam@95: T4C = LD(&(xi[WS(is, 124)]), ivs, &(xi[0])); cannam@95: T4D = LD(&(xi[WS(is, 60)]), ivs, &(xi[0])); cannam@95: Tas = VADD(T4C, T4D); cannam@95: T4A = VSUB(T4y, T4z); cannam@95: Tez = VADD(Tas, Tat); cannam@95: T4E = VSUB(T4C, T4D); cannam@95: Tau = VSUB(Tas, Tat); cannam@95: } cannam@95: { cannam@95: V T4f, Tal, T4i, Tam; cannam@95: { cannam@95: V T4d, T4e, T4g, T4h; cannam@95: T4d = LD(&(xi[WS(is, 20)]), ivs, &(xi[0])); cannam@95: T4e = LD(&(xi[WS(is, 84)]), ivs, &(xi[0])); cannam@95: T4f = VSUB(T4d, T4e); cannam@95: Tal = VADD(T4d, T4e); cannam@95: T4g = LD(&(xi[WS(is, 116)]), ivs, &(xi[0])); cannam@95: T4h = LD(&(xi[WS(is, 52)]), ivs, &(xi[0])); cannam@95: T4i = VSUB(T4g, T4h); cannam@95: Tam = VADD(T4g, T4h); cannam@95: } cannam@95: T4j = VMUL(LDK(KP707106781), VADD(T4f, T4i)); cannam@95: Tex = VADD(Tal, Tam); cannam@95: T4l = VMUL(LDK(KP707106781), VSUB(T4f, T4i)); cannam@95: Tan = VSUB(Tal, Tam); cannam@95: } cannam@95: { cannam@95: V T4t, Tap, T4w, Taq; cannam@95: { cannam@95: V T4r, T4s, T4u, T4v; cannam@95: T4r = LD(&(xi[WS(is, 12)]), ivs, &(xi[0])); cannam@95: T4s = LD(&(xi[WS(is, 76)]), ivs, &(xi[0])); cannam@95: T4t = VSUB(T4r, T4s); cannam@95: Tap = VADD(T4r, T4s); cannam@95: T4u = LD(&(xi[WS(is, 108)]), ivs, &(xi[0])); cannam@95: T4v = LD(&(xi[WS(is, 44)]), ivs, &(xi[0])); cannam@95: T4w = VSUB(T4u, T4v); cannam@95: Taq = VADD(T4u, T4v); cannam@95: } cannam@95: T4x = VMUL(LDK(KP707106781), VSUB(T4t, T4w)); cannam@95: TeA = VADD(Tap, Taq); cannam@95: T4F = VMUL(LDK(KP707106781), VADD(T4t, T4w)); cannam@95: Tar = VSUB(Tap, Taq); cannam@95: } cannam@95: TgF = VADD(Tew, Tex); cannam@95: TgG = VADD(Tez, TeA); cannam@95: { cannam@95: V T4k, T4p, Tey, TeB; cannam@95: T4k = VSUB(T4c, T4j); cannam@95: T4p = VSUB(T4l, T4o); cannam@95: T4q = VFNMS(LDK(KP555570233), T4p, VMUL(LDK(KP831469612), T4k)); cannam@95: T4V = VFMA(LDK(KP831469612), T4p, VMUL(LDK(KP555570233), T4k)); cannam@95: Tey = VSUB(Tew, Tex); cannam@95: TeB = VSUB(Tez, TeA); cannam@95: TeC = VMUL(LDK(KP707106781), VADD(Tey, TeB)); cannam@95: Tfx = VMUL(LDK(KP707106781), VSUB(Tey, TeB)); cannam@95: } cannam@95: { cannam@95: V T4B, T4G, T7V, T7W; cannam@95: T4B = VSUB(T4x, T4A); cannam@95: T4G = VSUB(T4E, T4F); cannam@95: T4H = VFMA(LDK(KP555570233), T4B, VMUL(LDK(KP831469612), T4G)); cannam@95: T4W = VFNMS(LDK(KP555570233), T4G, VMUL(LDK(KP831469612), T4B)); cannam@95: T7V = VADD(T4A, T4x); cannam@95: T7W = VADD(T4E, T4F); cannam@95: T7X = VFMA(LDK(KP195090322), T7V, VMUL(LDK(KP980785280), T7W)); cannam@95: T86 = VFNMS(LDK(KP195090322), T7W, VMUL(LDK(KP980785280), T7V)); cannam@95: } cannam@95: Tcp = VFNMS(LDK(KP382683432), Tan, VMUL(LDK(KP923879532), Tak)); cannam@95: Tcq = VFMA(LDK(KP923879532), Tau, VMUL(LDK(KP382683432), Tar)); cannam@95: Tcr = VSUB(Tcp, Tcq); cannam@95: TdH = VADD(Tcp, Tcq); cannam@95: { cannam@95: V T7S, T7T, Tao, Tav; cannam@95: T7S = VADD(T4c, T4j); cannam@95: T7T = VADD(T4o, T4l); cannam@95: T7U = VFNMS(LDK(KP195090322), T7T, VMUL(LDK(KP980785280), T7S)); cannam@95: T85 = VFMA(LDK(KP980785280), T7T, VMUL(LDK(KP195090322), T7S)); cannam@95: Tao = VFMA(LDK(KP382683432), Tak, VMUL(LDK(KP923879532), Tan)); cannam@95: Tav = VFNMS(LDK(KP382683432), Tau, VMUL(LDK(KP923879532), Tar)); cannam@95: Taw = VSUB(Tao, Tav); cannam@95: TdC = VADD(Tao, Tav); cannam@95: } cannam@95: } cannam@95: { cannam@95: V Tbz, TbA, T3, Tf5, T18, Tbu, Tbv, Ta, Tf6, T15, Ti, Tf1, T12, Tbp, Tp; cannam@95: V Tf2, T13, Tbs, T6, T9, TbB, TbC; cannam@95: { cannam@95: V T1, T2, T16, T17; cannam@95: T1 = LD(&(xi[WS(is, 1)]), ivs, &(xi[WS(is, 1)])); cannam@95: T2 = LD(&(xi[WS(is, 65)]), ivs, &(xi[WS(is, 1)])); cannam@95: Tbz = VADD(T1, T2); cannam@95: T16 = LD(&(xi[WS(is, 33)]), ivs, &(xi[WS(is, 1)])); cannam@95: T17 = LD(&(xi[WS(is, 97)]), ivs, &(xi[WS(is, 1)])); cannam@95: TbA = VADD(T16, T17); cannam@95: T3 = VSUB(T1, T2); cannam@95: Tf5 = VADD(Tbz, TbA); cannam@95: T18 = VSUB(T16, T17); cannam@95: } cannam@95: { cannam@95: V T4, T5, T7, T8; cannam@95: T4 = LD(&(xi[WS(is, 17)]), ivs, &(xi[WS(is, 1)])); cannam@95: T5 = LD(&(xi[WS(is, 81)]), ivs, &(xi[WS(is, 1)])); cannam@95: T6 = VSUB(T4, T5); cannam@95: Tbu = VADD(T4, T5); cannam@95: T7 = LD(&(xi[WS(is, 113)]), ivs, &(xi[WS(is, 1)])); cannam@95: T8 = LD(&(xi[WS(is, 49)]), ivs, &(xi[WS(is, 1)])); cannam@95: T9 = VSUB(T7, T8); cannam@95: Tbv = VADD(T7, T8); cannam@95: } cannam@95: Ta = VMUL(LDK(KP707106781), VADD(T6, T9)); cannam@95: Tf6 = VADD(Tbu, Tbv); cannam@95: T15 = VMUL(LDK(KP707106781), VSUB(T6, T9)); cannam@95: { cannam@95: V Te, Tbn, Th, Tbo; cannam@95: { cannam@95: V Tc, Td, Tf, Tg; cannam@95: Tc = LD(&(xi[WS(is, 9)]), ivs, &(xi[WS(is, 1)])); cannam@95: Td = LD(&(xi[WS(is, 73)]), ivs, &(xi[WS(is, 1)])); cannam@95: Te = VSUB(Tc, Td); cannam@95: Tbn = VADD(Tc, Td); cannam@95: Tf = LD(&(xi[WS(is, 41)]), ivs, &(xi[WS(is, 1)])); cannam@95: Tg = LD(&(xi[WS(is, 105)]), ivs, &(xi[WS(is, 1)])); cannam@95: Th = VSUB(Tf, Tg); cannam@95: Tbo = VADD(Tf, Tg); cannam@95: } cannam@95: Ti = VFMA(LDK(KP382683432), Te, VMUL(LDK(KP923879532), Th)); cannam@95: Tf1 = VADD(Tbn, Tbo); cannam@95: T12 = VFNMS(LDK(KP382683432), Th, VMUL(LDK(KP923879532), Te)); cannam@95: Tbp = VSUB(Tbn, Tbo); cannam@95: } cannam@95: { cannam@95: V Tl, Tbr, To, Tbq; cannam@95: { cannam@95: V Tj, Tk, Tm, Tn; cannam@95: Tj = LD(&(xi[WS(is, 25)]), ivs, &(xi[WS(is, 1)])); cannam@95: Tk = LD(&(xi[WS(is, 89)]), ivs, &(xi[WS(is, 1)])); cannam@95: Tl = VSUB(Tj, Tk); cannam@95: Tbr = VADD(Tj, Tk); cannam@95: Tm = LD(&(xi[WS(is, 121)]), ivs, &(xi[WS(is, 1)])); cannam@95: Tn = LD(&(xi[WS(is, 57)]), ivs, &(xi[WS(is, 1)])); cannam@95: To = VSUB(Tm, Tn); cannam@95: Tbq = VADD(Tm, Tn); cannam@95: } cannam@95: Tp = VFNMS(LDK(KP382683432), To, VMUL(LDK(KP923879532), Tl)); cannam@95: Tf2 = VADD(Tbq, Tbr); cannam@95: T13 = VFMA(LDK(KP923879532), To, VMUL(LDK(KP382683432), Tl)); cannam@95: Tbs = VSUB(Tbq, Tbr); cannam@95: } cannam@95: Tf3 = VSUB(Tf1, Tf2); cannam@95: Tf7 = VSUB(Tf5, Tf6); cannam@95: { cannam@95: V Tb, Tq, Tgj, Tgk; cannam@95: Tb = VSUB(T3, Ta); cannam@95: Tq = VSUB(Ti, Tp); cannam@95: Tr = VSUB(Tb, Tq); cannam@95: T5X = VADD(Tb, Tq); cannam@95: Tgj = VADD(Tf5, Tf6); cannam@95: Tgk = VADD(Tf1, Tf2); cannam@95: Tgl = VSUB(Tgj, Tgk); cannam@95: Th3 = VADD(Tgj, Tgk); cannam@95: } cannam@95: { cannam@95: V T14, T19, T78, T79; cannam@95: T14 = VSUB(T12, T13); cannam@95: T19 = VSUB(T15, T18); cannam@95: T1a = VSUB(T14, T19); cannam@95: T5V = VADD(T19, T14); cannam@95: T78 = VADD(Ti, Tp); cannam@95: T79 = VADD(T18, T15); cannam@95: T7a = VSUB(T78, T79); cannam@95: T95 = VADD(T79, T78); cannam@95: } cannam@95: TbB = VSUB(Tbz, TbA); cannam@95: TbC = VMUL(LDK(KP707106781), VADD(Tbp, Tbs)); cannam@95: TbD = VSUB(TbB, TbC); cannam@95: Tdf = VADD(TbB, TbC); cannam@95: { cannam@95: V T6X, T6Y, Tbt, Tbw; cannam@95: T6X = VADD(T3, Ta); cannam@95: T6Y = VADD(T12, T13); cannam@95: T6Z = VSUB(T6X, T6Y); cannam@95: T97 = VADD(T6X, T6Y); cannam@95: Tbt = VMUL(LDK(KP707106781), VSUB(Tbp, Tbs)); cannam@95: Tbw = VSUB(Tbu, Tbv); cannam@95: Tbx = VSUB(Tbt, Tbw); cannam@95: Tdi = VADD(Tbw, Tbt); cannam@95: } cannam@95: } cannam@95: { cannam@95: V TaK, TaJ, T2U, TeE, T2Z, TaF, TaG, T2R, TeF, T30, T2C, TeH, T32, TaA, T2J; cannam@95: V TeI, T33, TaD, T2N, T2Q, TaL, TaM; cannam@95: { cannam@95: V T2S, T2T, T2X, T2Y; cannam@95: T2S = LD(&(xi[WS(is, 34)]), ivs, &(xi[0])); cannam@95: T2T = LD(&(xi[WS(is, 98)]), ivs, &(xi[0])); cannam@95: TaK = VADD(T2S, T2T); cannam@95: T2X = LD(&(xi[WS(is, 2)]), ivs, &(xi[0])); cannam@95: T2Y = LD(&(xi[WS(is, 66)]), ivs, &(xi[0])); cannam@95: TaJ = VADD(T2X, T2Y); cannam@95: T2U = VSUB(T2S, T2T); cannam@95: TeE = VADD(TaJ, TaK); cannam@95: T2Z = VSUB(T2X, T2Y); cannam@95: } cannam@95: { cannam@95: V T2L, T2M, T2O, T2P; cannam@95: T2L = LD(&(xi[WS(is, 18)]), ivs, &(xi[0])); cannam@95: T2M = LD(&(xi[WS(is, 82)]), ivs, &(xi[0])); cannam@95: T2N = VSUB(T2L, T2M); cannam@95: TaF = VADD(T2L, T2M); cannam@95: T2O = LD(&(xi[WS(is, 114)]), ivs, &(xi[0])); cannam@95: T2P = LD(&(xi[WS(is, 50)]), ivs, &(xi[0])); cannam@95: T2Q = VSUB(T2O, T2P); cannam@95: TaG = VADD(T2O, T2P); cannam@95: } cannam@95: T2R = VMUL(LDK(KP707106781), VSUB(T2N, T2Q)); cannam@95: TeF = VADD(TaF, TaG); cannam@95: T30 = VMUL(LDK(KP707106781), VADD(T2N, T2Q)); cannam@95: { cannam@95: V T2y, Tay, T2B, Taz; cannam@95: { cannam@95: V T2w, T2x, T2z, T2A; cannam@95: T2w = LD(&(xi[WS(is, 10)]), ivs, &(xi[0])); cannam@95: T2x = LD(&(xi[WS(is, 74)]), ivs, &(xi[0])); cannam@95: T2y = VSUB(T2w, T2x); cannam@95: Tay = VADD(T2w, T2x); cannam@95: T2z = LD(&(xi[WS(is, 42)]), ivs, &(xi[0])); cannam@95: T2A = LD(&(xi[WS(is, 106)]), ivs, &(xi[0])); cannam@95: T2B = VSUB(T2z, T2A); cannam@95: Taz = VADD(T2z, T2A); cannam@95: } cannam@95: T2C = VFNMS(LDK(KP382683432), T2B, VMUL(LDK(KP923879532), T2y)); cannam@95: TeH = VADD(Tay, Taz); cannam@95: T32 = VFMA(LDK(KP382683432), T2y, VMUL(LDK(KP923879532), T2B)); cannam@95: TaA = VSUB(Tay, Taz); cannam@95: } cannam@95: { cannam@95: V T2F, TaB, T2I, TaC; cannam@95: { cannam@95: V T2D, T2E, T2G, T2H; cannam@95: T2D = LD(&(xi[WS(is, 122)]), ivs, &(xi[0])); cannam@95: T2E = LD(&(xi[WS(is, 58)]), ivs, &(xi[0])); cannam@95: T2F = VSUB(T2D, T2E); cannam@95: TaB = VADD(T2D, T2E); cannam@95: T2G = LD(&(xi[WS(is, 26)]), ivs, &(xi[0])); cannam@95: T2H = LD(&(xi[WS(is, 90)]), ivs, &(xi[0])); cannam@95: T2I = VSUB(T2G, T2H); cannam@95: TaC = VADD(T2G, T2H); cannam@95: } cannam@95: T2J = VFMA(LDK(KP923879532), T2F, VMUL(LDK(KP382683432), T2I)); cannam@95: TeI = VADD(TaB, TaC); cannam@95: T33 = VFNMS(LDK(KP382683432), T2F, VMUL(LDK(KP923879532), T2I)); cannam@95: TaD = VSUB(TaB, TaC); cannam@95: } cannam@95: Tgy = VADD(TeE, TeF); cannam@95: Tgz = VADD(TeH, TeI); cannam@95: TgA = VSUB(Tgy, Tgz); cannam@95: TaL = VSUB(TaJ, TaK); cannam@95: TaM = VMUL(LDK(KP707106781), VADD(TaA, TaD)); cannam@95: TaN = VSUB(TaL, TaM); cannam@95: Tdv = VADD(TaL, TaM); cannam@95: { cannam@95: V TeG, TeJ, T2K, T2V; cannam@95: TeG = VSUB(TeE, TeF); cannam@95: TeJ = VSUB(TeH, TeI); cannam@95: TeK = VFMA(LDK(KP382683432), TeG, VMUL(LDK(KP923879532), TeJ)); cannam@95: Tfu = VFNMS(LDK(KP382683432), TeJ, VMUL(LDK(KP923879532), TeG)); cannam@95: T2K = VSUB(T2C, T2J); cannam@95: T2V = VSUB(T2R, T2U); cannam@95: T2W = VSUB(T2K, T2V); cannam@95: T5M = VADD(T2V, T2K); cannam@95: } cannam@95: { cannam@95: V T31, T34, T7D, T7E; cannam@95: T31 = VSUB(T2Z, T30); cannam@95: T34 = VSUB(T32, T33); cannam@95: T35 = VSUB(T31, T34); cannam@95: T5N = VADD(T31, T34); cannam@95: T7D = VADD(T32, T33); cannam@95: T7E = VADD(T2U, T2R); cannam@95: T7F = VSUB(T7D, T7E); cannam@95: T8X = VADD(T7E, T7D); cannam@95: } cannam@95: { cannam@95: V TaE, TaH, T7A, T7B; cannam@95: TaE = VMUL(LDK(KP707106781), VSUB(TaA, TaD)); cannam@95: TaH = VSUB(TaF, TaG); cannam@95: TaI = VSUB(TaE, TaH); cannam@95: Tdu = VADD(TaH, TaE); cannam@95: T7A = VADD(T2Z, T30); cannam@95: T7B = VADD(T2C, T2J); cannam@95: T7C = VSUB(T7A, T7B); cannam@95: T8W = VADD(T7A, T7B); cannam@95: } cannam@95: } cannam@95: { cannam@95: V Tb1, Tb0, T3v, TeO, T3A, TaW, TaX, T3s, TeP, T3B, T3d, TeL, T3D, TaR, T3k; cannam@95: V TeM, T3E, TaU, T3o, T3r, Tb2, Tb3; cannam@95: { cannam@95: V T3t, T3u, T3y, T3z; cannam@95: T3t = LD(&(xi[WS(is, 30)]), ivs, &(xi[0])); cannam@95: T3u = LD(&(xi[WS(is, 94)]), ivs, &(xi[0])); cannam@95: Tb1 = VADD(T3t, T3u); cannam@95: T3y = LD(&(xi[WS(is, 126)]), ivs, &(xi[0])); cannam@95: T3z = LD(&(xi[WS(is, 62)]), ivs, &(xi[0])); cannam@95: Tb0 = VADD(T3y, T3z); cannam@95: T3v = VSUB(T3t, T3u); cannam@95: TeO = VADD(Tb0, Tb1); cannam@95: T3A = VSUB(T3y, T3z); cannam@95: } cannam@95: { cannam@95: V T3m, T3n, T3p, T3q; cannam@95: T3m = LD(&(xi[WS(is, 14)]), ivs, &(xi[0])); cannam@95: T3n = LD(&(xi[WS(is, 78)]), ivs, &(xi[0])); cannam@95: T3o = VSUB(T3m, T3n); cannam@95: TaW = VADD(T3m, T3n); cannam@95: T3p = LD(&(xi[WS(is, 110)]), ivs, &(xi[0])); cannam@95: T3q = LD(&(xi[WS(is, 46)]), ivs, &(xi[0])); cannam@95: T3r = VSUB(T3p, T3q); cannam@95: TaX = VADD(T3p, T3q); cannam@95: } cannam@95: T3s = VMUL(LDK(KP707106781), VSUB(T3o, T3r)); cannam@95: TeP = VADD(TaW, TaX); cannam@95: T3B = VMUL(LDK(KP707106781), VADD(T3o, T3r)); cannam@95: { cannam@95: V T39, TaP, T3c, TaQ; cannam@95: { cannam@95: V T37, T38, T3a, T3b; cannam@95: T37 = LD(&(xi[WS(is, 6)]), ivs, &(xi[0])); cannam@95: T38 = LD(&(xi[WS(is, 70)]), ivs, &(xi[0])); cannam@95: T39 = VSUB(T37, T38); cannam@95: TaP = VADD(T37, T38); cannam@95: T3a = LD(&(xi[WS(is, 38)]), ivs, &(xi[0])); cannam@95: T3b = LD(&(xi[WS(is, 102)]), ivs, &(xi[0])); cannam@95: T3c = VSUB(T3a, T3b); cannam@95: TaQ = VADD(T3a, T3b); cannam@95: } cannam@95: T3d = VFNMS(LDK(KP382683432), T3c, VMUL(LDK(KP923879532), T39)); cannam@95: TeL = VADD(TaP, TaQ); cannam@95: T3D = VFMA(LDK(KP382683432), T39, VMUL(LDK(KP923879532), T3c)); cannam@95: TaR = VSUB(TaP, TaQ); cannam@95: } cannam@95: { cannam@95: V T3g, TaS, T3j, TaT; cannam@95: { cannam@95: V T3e, T3f, T3h, T3i; cannam@95: T3e = LD(&(xi[WS(is, 118)]), ivs, &(xi[0])); cannam@95: T3f = LD(&(xi[WS(is, 54)]), ivs, &(xi[0])); cannam@95: T3g = VSUB(T3e, T3f); cannam@95: TaS = VADD(T3e, T3f); cannam@95: T3h = LD(&(xi[WS(is, 22)]), ivs, &(xi[0])); cannam@95: T3i = LD(&(xi[WS(is, 86)]), ivs, &(xi[0])); cannam@95: T3j = VSUB(T3h, T3i); cannam@95: TaT = VADD(T3h, T3i); cannam@95: } cannam@95: T3k = VFMA(LDK(KP923879532), T3g, VMUL(LDK(KP382683432), T3j)); cannam@95: TeM = VADD(TaS, TaT); cannam@95: T3E = VFNMS(LDK(KP382683432), T3g, VMUL(LDK(KP923879532), T3j)); cannam@95: TaU = VSUB(TaS, TaT); cannam@95: } cannam@95: TgB = VADD(TeO, TeP); cannam@95: TgC = VADD(TeL, TeM); cannam@95: TgD = VSUB(TgB, TgC); cannam@95: Tb2 = VSUB(Tb0, Tb1); cannam@95: Tb3 = VMUL(LDK(KP707106781), VADD(TaR, TaU)); cannam@95: Tb4 = VSUB(Tb2, Tb3); cannam@95: Tdy = VADD(Tb2, Tb3); cannam@95: { cannam@95: V TeN, TeQ, T3l, T3w; cannam@95: TeN = VSUB(TeL, TeM); cannam@95: TeQ = VSUB(TeO, TeP); cannam@95: TeR = VFNMS(LDK(KP382683432), TeQ, VMUL(LDK(KP923879532), TeN)); cannam@95: Tfv = VFMA(LDK(KP923879532), TeQ, VMUL(LDK(KP382683432), TeN)); cannam@95: T3l = VSUB(T3d, T3k); cannam@95: T3w = VSUB(T3s, T3v); cannam@95: T3x = VSUB(T3l, T3w); cannam@95: T5P = VADD(T3w, T3l); cannam@95: } cannam@95: { cannam@95: V T3C, T3F, T7K, T7L; cannam@95: T3C = VSUB(T3A, T3B); cannam@95: T3F = VSUB(T3D, T3E); cannam@95: T3G = VSUB(T3C, T3F); cannam@95: T5Q = VADD(T3C, T3F); cannam@95: T7K = VADD(T3A, T3B); cannam@95: T7L = VADD(T3d, T3k); cannam@95: T7M = VSUB(T7K, T7L); cannam@95: T90 = VADD(T7K, T7L); cannam@95: } cannam@95: { cannam@95: V TaV, TaY, T7H, T7I; cannam@95: TaV = VMUL(LDK(KP707106781), VSUB(TaR, TaU)); cannam@95: TaY = VSUB(TaW, TaX); cannam@95: TaZ = VSUB(TaV, TaY); cannam@95: Tdx = VADD(TaY, TaV); cannam@95: T7H = VADD(T3D, T3E); cannam@95: T7I = VADD(T3v, T3s); cannam@95: T7J = VSUB(T7H, T7I); cannam@95: T8Z = VADD(T7I, T7H); cannam@95: } cannam@95: } cannam@95: { cannam@95: V TB, TeU, TF, Tba, TS, TeX, TW, Tbh, Ty, TeV, TG, Tbd, TP, TeY, TX; cannam@95: V Tbk; cannam@95: { cannam@95: V Tz, TA, Tb9, TD, TE, Tb8; cannam@95: Tz = LD(&(xi[WS(is, 37)]), ivs, &(xi[WS(is, 1)])); cannam@95: TA = LD(&(xi[WS(is, 101)]), ivs, &(xi[WS(is, 1)])); cannam@95: Tb9 = VADD(Tz, TA); cannam@95: TD = LD(&(xi[WS(is, 5)]), ivs, &(xi[WS(is, 1)])); cannam@95: TE = LD(&(xi[WS(is, 69)]), ivs, &(xi[WS(is, 1)])); cannam@95: Tb8 = VADD(TD, TE); cannam@95: TB = VSUB(Tz, TA); cannam@95: TeU = VADD(Tb8, Tb9); cannam@95: TF = VSUB(TD, TE); cannam@95: Tba = VSUB(Tb8, Tb9); cannam@95: } cannam@95: { cannam@95: V TQ, TR, Tbg, TU, TV, Tbf; cannam@95: TQ = LD(&(xi[WS(is, 29)]), ivs, &(xi[WS(is, 1)])); cannam@95: TR = LD(&(xi[WS(is, 93)]), ivs, &(xi[WS(is, 1)])); cannam@95: Tbg = VADD(TQ, TR); cannam@95: TU = LD(&(xi[WS(is, 125)]), ivs, &(xi[WS(is, 1)])); cannam@95: TV = LD(&(xi[WS(is, 61)]), ivs, &(xi[WS(is, 1)])); cannam@95: Tbf = VADD(TU, TV); cannam@95: TS = VSUB(TQ, TR); cannam@95: TeX = VADD(Tbf, Tbg); cannam@95: TW = VSUB(TU, TV); cannam@95: Tbh = VSUB(Tbf, Tbg); cannam@95: } cannam@95: { cannam@95: V Tu, Tbb, Tx, Tbc; cannam@95: { cannam@95: V Ts, Tt, Tv, Tw; cannam@95: Ts = LD(&(xi[WS(is, 21)]), ivs, &(xi[WS(is, 1)])); cannam@95: Tt = LD(&(xi[WS(is, 85)]), ivs, &(xi[WS(is, 1)])); cannam@95: Tu = VSUB(Ts, Tt); cannam@95: Tbb = VADD(Ts, Tt); cannam@95: Tv = LD(&(xi[WS(is, 117)]), ivs, &(xi[WS(is, 1)])); cannam@95: Tw = LD(&(xi[WS(is, 53)]), ivs, &(xi[WS(is, 1)])); cannam@95: Tx = VSUB(Tv, Tw); cannam@95: Tbc = VADD(Tv, Tw); cannam@95: } cannam@95: Ty = VMUL(LDK(KP707106781), VSUB(Tu, Tx)); cannam@95: TeV = VADD(Tbb, Tbc); cannam@95: TG = VMUL(LDK(KP707106781), VADD(Tu, Tx)); cannam@95: Tbd = VSUB(Tbb, Tbc); cannam@95: } cannam@95: { cannam@95: V TL, Tbi, TO, Tbj; cannam@95: { cannam@95: V TJ, TK, TM, TN; cannam@95: TJ = LD(&(xi[WS(is, 13)]), ivs, &(xi[WS(is, 1)])); cannam@95: TK = LD(&(xi[WS(is, 77)]), ivs, &(xi[WS(is, 1)])); cannam@95: TL = VSUB(TJ, TK); cannam@95: Tbi = VADD(TJ, TK); cannam@95: TM = LD(&(xi[WS(is, 109)]), ivs, &(xi[WS(is, 1)])); cannam@95: TN = LD(&(xi[WS(is, 45)]), ivs, &(xi[WS(is, 1)])); cannam@95: TO = VSUB(TM, TN); cannam@95: Tbj = VADD(TM, TN); cannam@95: } cannam@95: TP = VMUL(LDK(KP707106781), VSUB(TL, TO)); cannam@95: TeY = VADD(Tbi, Tbj); cannam@95: TX = VMUL(LDK(KP707106781), VADD(TL, TO)); cannam@95: Tbk = VSUB(Tbi, Tbj); cannam@95: } cannam@95: { cannam@95: V Tbe, Tbl, TeW, TeZ; cannam@95: Tbe = VFNMS(LDK(KP382683432), Tbd, VMUL(LDK(KP923879532), Tba)); cannam@95: Tbl = VFMA(LDK(KP923879532), Tbh, VMUL(LDK(KP382683432), Tbk)); cannam@95: Tbm = VSUB(Tbe, Tbl); cannam@95: Tdg = VADD(Tbe, Tbl); cannam@95: { cannam@95: V TbE, TbF, Tgm, Tgn; cannam@95: TbE = VFMA(LDK(KP382683432), Tba, VMUL(LDK(KP923879532), Tbd)); cannam@95: TbF = VFNMS(LDK(KP382683432), Tbh, VMUL(LDK(KP923879532), Tbk)); cannam@95: TbG = VSUB(TbE, TbF); cannam@95: Tdj = VADD(TbE, TbF); cannam@95: Tgm = VADD(TeU, TeV); cannam@95: Tgn = VADD(TeX, TeY); cannam@95: Tgo = VSUB(Tgm, Tgn); cannam@95: Th4 = VADD(Tgm, Tgn); cannam@95: } cannam@95: TeW = VSUB(TeU, TeV); cannam@95: TeZ = VSUB(TeX, TeY); cannam@95: Tf0 = VMUL(LDK(KP707106781), VSUB(TeW, TeZ)); cannam@95: Tf8 = VMUL(LDK(KP707106781), VADD(TeW, TeZ)); cannam@95: { cannam@95: V T72, T7b, T75, T7c; cannam@95: { cannam@95: V T70, T71, T73, T74; cannam@95: T70 = VADD(TB, Ty); cannam@95: T71 = VADD(TF, TG); cannam@95: T72 = VFMA(LDK(KP980785280), T70, VMUL(LDK(KP195090322), T71)); cannam@95: T7b = VFNMS(LDK(KP195090322), T70, VMUL(LDK(KP980785280), T71)); cannam@95: T73 = VADD(TS, TP); cannam@95: T74 = VADD(TW, TX); cannam@95: T75 = VFNMS(LDK(KP195090322), T74, VMUL(LDK(KP980785280), T73)); cannam@95: T7c = VFMA(LDK(KP195090322), T73, VMUL(LDK(KP980785280), T74)); cannam@95: } cannam@95: T76 = VSUB(T72, T75); cannam@95: T98 = VADD(T7b, T7c); cannam@95: T7d = VSUB(T7b, T7c); cannam@95: T94 = VADD(T72, T75); cannam@95: } cannam@95: { cannam@95: V TI, T1b, TZ, T1c; cannam@95: { cannam@95: V TC, TH, TT, TY; cannam@95: TC = VSUB(Ty, TB); cannam@95: TH = VSUB(TF, TG); cannam@95: TI = VFMA(LDK(KP831469612), TC, VMUL(LDK(KP555570233), TH)); cannam@95: T1b = VFNMS(LDK(KP555570233), TC, VMUL(LDK(KP831469612), TH)); cannam@95: TT = VSUB(TP, TS); cannam@95: TY = VSUB(TW, TX); cannam@95: TZ = VFNMS(LDK(KP555570233), TY, VMUL(LDK(KP831469612), TT)); cannam@95: T1c = VFMA(LDK(KP555570233), TT, VMUL(LDK(KP831469612), TY)); cannam@95: } cannam@95: T10 = VSUB(TI, TZ); cannam@95: T5Y = VADD(T1b, T1c); cannam@95: T1d = VSUB(T1b, T1c); cannam@95: T5U = VADD(TI, TZ); cannam@95: } cannam@95: } cannam@95: } cannam@95: { cannam@95: V T1Q, Tfb, T1U, TbL, T27, Tfe, T2b, TbS, T1N, Tfc, T1V, TbO, T24, Tff, T2c; cannam@95: V TbV; cannam@95: { cannam@95: V T1O, T1P, TbK, T1S, T1T, TbJ; cannam@95: T1O = LD(&(xi[WS(is, 35)]), ivs, &(xi[WS(is, 1)])); cannam@95: T1P = LD(&(xi[WS(is, 99)]), ivs, &(xi[WS(is, 1)])); cannam@95: TbK = VADD(T1O, T1P); cannam@95: T1S = LD(&(xi[WS(is, 3)]), ivs, &(xi[WS(is, 1)])); cannam@95: T1T = LD(&(xi[WS(is, 67)]), ivs, &(xi[WS(is, 1)])); cannam@95: TbJ = VADD(T1S, T1T); cannam@95: T1Q = VSUB(T1O, T1P); cannam@95: Tfb = VADD(TbJ, TbK); cannam@95: T1U = VSUB(T1S, T1T); cannam@95: TbL = VSUB(TbJ, TbK); cannam@95: } cannam@95: { cannam@95: V T25, T26, TbR, T29, T2a, TbQ; cannam@95: T25 = LD(&(xi[WS(is, 27)]), ivs, &(xi[WS(is, 1)])); cannam@95: T26 = LD(&(xi[WS(is, 91)]), ivs, &(xi[WS(is, 1)])); cannam@95: TbR = VADD(T25, T26); cannam@95: T29 = LD(&(xi[WS(is, 123)]), ivs, &(xi[WS(is, 1)])); cannam@95: T2a = LD(&(xi[WS(is, 59)]), ivs, &(xi[WS(is, 1)])); cannam@95: TbQ = VADD(T29, T2a); cannam@95: T27 = VSUB(T25, T26); cannam@95: Tfe = VADD(TbQ, TbR); cannam@95: T2b = VSUB(T29, T2a); cannam@95: TbS = VSUB(TbQ, TbR); cannam@95: } cannam@95: { cannam@95: V T1J, TbM, T1M, TbN; cannam@95: { cannam@95: V T1H, T1I, T1K, T1L; cannam@95: T1H = LD(&(xi[WS(is, 19)]), ivs, &(xi[WS(is, 1)])); cannam@95: T1I = LD(&(xi[WS(is, 83)]), ivs, &(xi[WS(is, 1)])); cannam@95: T1J = VSUB(T1H, T1I); cannam@95: TbM = VADD(T1H, T1I); cannam@95: T1K = LD(&(xi[WS(is, 115)]), ivs, &(xi[WS(is, 1)])); cannam@95: T1L = LD(&(xi[WS(is, 51)]), ivs, &(xi[WS(is, 1)])); cannam@95: T1M = VSUB(T1K, T1L); cannam@95: TbN = VADD(T1K, T1L); cannam@95: } cannam@95: T1N = VMUL(LDK(KP707106781), VSUB(T1J, T1M)); cannam@95: Tfc = VADD(TbM, TbN); cannam@95: T1V = VMUL(LDK(KP707106781), VADD(T1J, T1M)); cannam@95: TbO = VSUB(TbM, TbN); cannam@95: } cannam@95: { cannam@95: V T20, TbT, T23, TbU; cannam@95: { cannam@95: V T1Y, T1Z, T21, T22; cannam@95: T1Y = LD(&(xi[WS(is, 11)]), ivs, &(xi[WS(is, 1)])); cannam@95: T1Z = LD(&(xi[WS(is, 75)]), ivs, &(xi[WS(is, 1)])); cannam@95: T20 = VSUB(T1Y, T1Z); cannam@95: TbT = VADD(T1Y, T1Z); cannam@95: T21 = LD(&(xi[WS(is, 107)]), ivs, &(xi[WS(is, 1)])); cannam@95: T22 = LD(&(xi[WS(is, 43)]), ivs, &(xi[WS(is, 1)])); cannam@95: T23 = VSUB(T21, T22); cannam@95: TbU = VADD(T21, T22); cannam@95: } cannam@95: T24 = VMUL(LDK(KP707106781), VSUB(T20, T23)); cannam@95: Tff = VADD(TbT, TbU); cannam@95: T2c = VMUL(LDK(KP707106781), VADD(T20, T23)); cannam@95: TbV = VSUB(TbT, TbU); cannam@95: } cannam@95: { cannam@95: V TbP, TbW, Tfd, Tfg; cannam@95: TbP = VFNMS(LDK(KP382683432), TbO, VMUL(LDK(KP923879532), TbL)); cannam@95: TbW = VFMA(LDK(KP923879532), TbS, VMUL(LDK(KP382683432), TbV)); cannam@95: TbX = VSUB(TbP, TbW); cannam@95: Tdn = VADD(TbP, TbW); cannam@95: { cannam@95: V Tcf, Tcg, Tgt, Tgu; cannam@95: Tcf = VFMA(LDK(KP382683432), TbL, VMUL(LDK(KP923879532), TbO)); cannam@95: Tcg = VFNMS(LDK(KP382683432), TbS, VMUL(LDK(KP923879532), TbV)); cannam@95: Tch = VSUB(Tcf, Tcg); cannam@95: Tdq = VADD(Tcf, Tcg); cannam@95: Tgt = VADD(Tfb, Tfc); cannam@95: Tgu = VADD(Tfe, Tff); cannam@95: Tgv = VSUB(Tgt, Tgu); cannam@95: Th7 = VADD(Tgt, Tgu); cannam@95: } cannam@95: Tfd = VSUB(Tfb, Tfc); cannam@95: Tfg = VSUB(Tfe, Tff); cannam@95: Tfh = VMUL(LDK(KP707106781), VSUB(Tfd, Tfg)); cannam@95: Tfp = VMUL(LDK(KP707106781), VADD(Tfd, Tfg)); cannam@95: { cannam@95: V T7l, T7u, T7o, T7v; cannam@95: { cannam@95: V T7j, T7k, T7m, T7n; cannam@95: T7j = VADD(T1Q, T1N); cannam@95: T7k = VADD(T1U, T1V); cannam@95: T7l = VFMA(LDK(KP980785280), T7j, VMUL(LDK(KP195090322), T7k)); cannam@95: T7u = VFNMS(LDK(KP195090322), T7j, VMUL(LDK(KP980785280), T7k)); cannam@95: T7m = VADD(T27, T24); cannam@95: T7n = VADD(T2b, T2c); cannam@95: T7o = VFNMS(LDK(KP195090322), T7n, VMUL(LDK(KP980785280), T7m)); cannam@95: T7v = VFMA(LDK(KP195090322), T7m, VMUL(LDK(KP980785280), T7n)); cannam@95: } cannam@95: T7p = VSUB(T7l, T7o); cannam@95: T9f = VADD(T7u, T7v); cannam@95: T7w = VSUB(T7u, T7v); cannam@95: T9b = VADD(T7l, T7o); cannam@95: } cannam@95: { cannam@95: V T1X, T2q, T2e, T2r; cannam@95: { cannam@95: V T1R, T1W, T28, T2d; cannam@95: T1R = VSUB(T1N, T1Q); cannam@95: T1W = VSUB(T1U, T1V); cannam@95: T1X = VFMA(LDK(KP831469612), T1R, VMUL(LDK(KP555570233), T1W)); cannam@95: T2q = VFNMS(LDK(KP555570233), T1R, VMUL(LDK(KP831469612), T1W)); cannam@95: T28 = VSUB(T24, T27); cannam@95: T2d = VSUB(T2b, T2c); cannam@95: T2e = VFNMS(LDK(KP555570233), T2d, VMUL(LDK(KP831469612), T28)); cannam@95: T2r = VFMA(LDK(KP555570233), T28, VMUL(LDK(KP831469612), T2d)); cannam@95: } cannam@95: T2f = VSUB(T1X, T2e); cannam@95: T65 = VADD(T2q, T2r); cannam@95: T2s = VSUB(T2q, T2r); cannam@95: T61 = VADD(T1X, T2e); cannam@95: } cannam@95: } cannam@95: } cannam@95: { cannam@95: V Tgx, TgW, TgR, TgZ, TgI, TgY, TgO, TgV; cannam@95: { cannam@95: V Tgp, Tgw, TgP, TgQ; cannam@95: Tgp = VFNMS(LDK(KP382683432), Tgo, VMUL(LDK(KP923879532), Tgl)); cannam@95: Tgw = VFMA(LDK(KP923879532), Tgs, VMUL(LDK(KP382683432), Tgv)); cannam@95: Tgx = VSUB(Tgp, Tgw); cannam@95: TgW = VADD(Tgp, Tgw); cannam@95: TgP = VFMA(LDK(KP382683432), Tgl, VMUL(LDK(KP923879532), Tgo)); cannam@95: TgQ = VFNMS(LDK(KP382683432), Tgs, VMUL(LDK(KP923879532), Tgv)); cannam@95: TgR = VSUB(TgP, TgQ); cannam@95: TgZ = VADD(TgP, TgQ); cannam@95: } cannam@95: { cannam@95: V TgE, TgH, TgM, TgN; cannam@95: TgE = VMUL(LDK(KP707106781), VSUB(TgA, TgD)); cannam@95: TgH = VSUB(TgF, TgG); cannam@95: TgI = VSUB(TgE, TgH); cannam@95: TgY = VADD(TgH, TgE); cannam@95: TgM = VSUB(TgK, TgL); cannam@95: TgN = VMUL(LDK(KP707106781), VADD(TgA, TgD)); cannam@95: TgO = VSUB(TgM, TgN); cannam@95: TgV = VADD(TgM, TgN); cannam@95: } cannam@95: { cannam@95: V TgJ, TgS, Th1, Th2; cannam@95: TgJ = VBYI(VSUB(Tgx, TgI)); cannam@95: TgS = VSUB(TgO, TgR); cannam@95: ST(&(xo[WS(os, 40)]), VADD(TgJ, TgS), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 88)]), VSUB(TgS, TgJ), ovs, &(xo[0])); cannam@95: Th1 = VSUB(TgV, TgW); cannam@95: Th2 = VBYI(VSUB(TgZ, TgY)); cannam@95: ST(&(xo[WS(os, 72)]), VSUB(Th1, Th2), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 56)]), VADD(Th1, Th2), ovs, &(xo[0])); cannam@95: } cannam@95: { cannam@95: V TgT, TgU, TgX, Th0; cannam@95: TgT = VBYI(VADD(TgI, Tgx)); cannam@95: TgU = VADD(TgO, TgR); cannam@95: ST(&(xo[WS(os, 24)]), VADD(TgT, TgU), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 104)]), VSUB(TgU, TgT), ovs, &(xo[0])); cannam@95: TgX = VADD(TgV, TgW); cannam@95: Th0 = VBYI(VADD(TgY, TgZ)); cannam@95: ST(&(xo[WS(os, 120)]), VSUB(TgX, Th0), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 8)]), VADD(TgX, Th0), ovs, &(xo[0])); cannam@95: } cannam@95: } cannam@95: { cannam@95: V Th9, Thh, Thq, Ths, Thc, Thm, Thg, Thl, Thn, Thr; cannam@95: { cannam@95: V Th5, Th8, Tho, Thp; cannam@95: Th5 = VSUB(Th3, Th4); cannam@95: Th8 = VSUB(Th6, Th7); cannam@95: Th9 = VMUL(LDK(KP707106781), VSUB(Th5, Th8)); cannam@95: Thh = VMUL(LDK(KP707106781), VADD(Th5, Th8)); cannam@95: Tho = VADD(Th3, Th4); cannam@95: Thp = VADD(Th6, Th7); cannam@95: Thq = VBYI(VSUB(Tho, Thp)); cannam@95: Ths = VADD(Tho, Thp); cannam@95: } cannam@95: { cannam@95: V Tha, Thb, The, Thf; cannam@95: Tha = VADD(Tgy, Tgz); cannam@95: Thb = VADD(TgB, TgC); cannam@95: Thc = VSUB(Tha, Thb); cannam@95: Thm = VADD(Tha, Thb); cannam@95: The = VADD(TgK, TgL); cannam@95: Thf = VADD(TgF, TgG); cannam@95: Thg = VSUB(The, Thf); cannam@95: Thl = VADD(The, Thf); cannam@95: } cannam@95: Thn = VSUB(Thl, Thm); cannam@95: ST(&(xo[WS(os, 96)]), VSUB(Thn, Thq), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 32)]), VADD(Thn, Thq), ovs, &(xo[0])); cannam@95: Thr = VADD(Thl, Thm); cannam@95: ST(&(xo[WS(os, 64)]), VSUB(Thr, Ths), ovs, &(xo[0])); cannam@95: ST(&(xo[0]), VADD(Thr, Ths), ovs, &(xo[0])); cannam@95: { cannam@95: V Thd, Thi, Thj, Thk; cannam@95: Thd = VBYI(VSUB(Th9, Thc)); cannam@95: Thi = VSUB(Thg, Thh); cannam@95: ST(&(xo[WS(os, 48)]), VADD(Thd, Thi), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 80)]), VSUB(Thi, Thd), ovs, &(xo[0])); cannam@95: Thj = VBYI(VADD(Thc, Th9)); cannam@95: Thk = VADD(Thg, Thh); cannam@95: ST(&(xo[WS(os, 16)]), VADD(Thj, Thk), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 112)]), VSUB(Thk, Thj), ovs, &(xo[0])); cannam@95: } cannam@95: } cannam@95: { cannam@95: V TeT, TfM, TfC, TfK, Tfs, TfN, TfF, TfJ; cannam@95: { cannam@95: V TeD, TeS, Tfw, TfB; cannam@95: TeD = VSUB(Tev, TeC); cannam@95: TeS = VSUB(TeK, TeR); cannam@95: TeT = VSUB(TeD, TeS); cannam@95: TfM = VADD(TeD, TeS); cannam@95: Tfw = VSUB(Tfu, Tfv); cannam@95: TfB = VSUB(Tfx, TfA); cannam@95: TfC = VSUB(Tfw, TfB); cannam@95: TfK = VADD(TfB, Tfw); cannam@95: { cannam@95: V Tfa, TfD, Tfr, TfE; cannam@95: { cannam@95: V Tf4, Tf9, Tfl, Tfq; cannam@95: Tf4 = VSUB(Tf0, Tf3); cannam@95: Tf9 = VSUB(Tf7, Tf8); cannam@95: Tfa = VFMA(LDK(KP831469612), Tf4, VMUL(LDK(KP555570233), Tf9)); cannam@95: TfD = VFNMS(LDK(KP555570233), Tf4, VMUL(LDK(KP831469612), Tf9)); cannam@95: Tfl = VSUB(Tfh, Tfk); cannam@95: Tfq = VSUB(Tfo, Tfp); cannam@95: Tfr = VFNMS(LDK(KP555570233), Tfq, VMUL(LDK(KP831469612), Tfl)); cannam@95: TfE = VFMA(LDK(KP555570233), Tfl, VMUL(LDK(KP831469612), Tfq)); cannam@95: } cannam@95: Tfs = VSUB(Tfa, Tfr); cannam@95: TfN = VADD(TfD, TfE); cannam@95: TfF = VSUB(TfD, TfE); cannam@95: TfJ = VADD(Tfa, Tfr); cannam@95: } cannam@95: } cannam@95: { cannam@95: V Tft, TfG, TfP, TfQ; cannam@95: Tft = VADD(TeT, Tfs); cannam@95: TfG = VBYI(VADD(TfC, TfF)); cannam@95: ST(&(xo[WS(os, 108)]), VSUB(Tft, TfG), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 20)]), VADD(Tft, TfG), ovs, &(xo[0])); cannam@95: TfP = VBYI(VADD(TfK, TfJ)); cannam@95: TfQ = VADD(TfM, TfN); cannam@95: ST(&(xo[WS(os, 12)]), VADD(TfP, TfQ), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 116)]), VSUB(TfQ, TfP), ovs, &(xo[0])); cannam@95: } cannam@95: { cannam@95: V TfH, TfI, TfL, TfO; cannam@95: TfH = VSUB(TeT, Tfs); cannam@95: TfI = VBYI(VSUB(TfF, TfC)); cannam@95: ST(&(xo[WS(os, 84)]), VSUB(TfH, TfI), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 44)]), VADD(TfH, TfI), ovs, &(xo[0])); cannam@95: TfL = VBYI(VSUB(TfJ, TfK)); cannam@95: TfO = VSUB(TfM, TfN); cannam@95: ST(&(xo[WS(os, 52)]), VADD(TfL, TfO), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 76)]), VSUB(TfO, TfL), ovs, &(xo[0])); cannam@95: } cannam@95: } cannam@95: { cannam@95: V TfT, Tge, Tg4, Tgc, Tg0, Tgf, Tg7, Tgb; cannam@95: { cannam@95: V TfR, TfS, Tg2, Tg3; cannam@95: TfR = VADD(Tev, TeC); cannam@95: TfS = VADD(Tfu, Tfv); cannam@95: TfT = VSUB(TfR, TfS); cannam@95: Tge = VADD(TfR, TfS); cannam@95: Tg2 = VADD(TeK, TeR); cannam@95: Tg3 = VADD(TfA, Tfx); cannam@95: Tg4 = VSUB(Tg2, Tg3); cannam@95: Tgc = VADD(Tg3, Tg2); cannam@95: { cannam@95: V TfW, Tg5, TfZ, Tg6; cannam@95: { cannam@95: V TfU, TfV, TfX, TfY; cannam@95: TfU = VADD(Tf3, Tf0); cannam@95: TfV = VADD(Tf7, Tf8); cannam@95: TfW = VFMA(LDK(KP980785280), TfU, VMUL(LDK(KP195090322), TfV)); cannam@95: Tg5 = VFNMS(LDK(KP195090322), TfU, VMUL(LDK(KP980785280), TfV)); cannam@95: TfX = VADD(Tfk, Tfh); cannam@95: TfY = VADD(Tfo, Tfp); cannam@95: TfZ = VFNMS(LDK(KP195090322), TfY, VMUL(LDK(KP980785280), TfX)); cannam@95: Tg6 = VFMA(LDK(KP195090322), TfX, VMUL(LDK(KP980785280), TfY)); cannam@95: } cannam@95: Tg0 = VSUB(TfW, TfZ); cannam@95: Tgf = VADD(Tg5, Tg6); cannam@95: Tg7 = VSUB(Tg5, Tg6); cannam@95: Tgb = VADD(TfW, TfZ); cannam@95: } cannam@95: } cannam@95: { cannam@95: V Tg1, Tg8, Tgh, Tgi; cannam@95: Tg1 = VADD(TfT, Tg0); cannam@95: Tg8 = VBYI(VADD(Tg4, Tg7)); cannam@95: ST(&(xo[WS(os, 100)]), VSUB(Tg1, Tg8), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 28)]), VADD(Tg1, Tg8), ovs, &(xo[0])); cannam@95: Tgh = VBYI(VADD(Tgc, Tgb)); cannam@95: Tgi = VADD(Tge, Tgf); cannam@95: ST(&(xo[WS(os, 4)]), VADD(Tgh, Tgi), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 124)]), VSUB(Tgi, Tgh), ovs, &(xo[0])); cannam@95: } cannam@95: { cannam@95: V Tg9, Tga, Tgd, Tgg; cannam@95: Tg9 = VSUB(TfT, Tg0); cannam@95: Tga = VBYI(VSUB(Tg7, Tg4)); cannam@95: ST(&(xo[WS(os, 92)]), VSUB(Tg9, Tga), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 36)]), VADD(Tg9, Tga), ovs, &(xo[0])); cannam@95: Tgd = VBYI(VSUB(Tgb, Tgc)); cannam@95: Tgg = VSUB(Tge, Tgf); cannam@95: ST(&(xo[WS(os, 60)]), VADD(Tgd, Tgg), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 68)]), VSUB(Tgg, Tgd), ovs, &(xo[0])); cannam@95: } cannam@95: } cannam@95: { cannam@95: V Tb7, Td8, TcI, Td0, Tcy, Tda, TcG, TcP, Tck, TcJ, TcB, TcF, TcW, Tdb, Td3; cannam@95: V Td7; cannam@95: { cannam@95: V Tax, TcZ, Tb6, TcY, TaO, Tb5; cannam@95: Tax = VSUB(Tah, Taw); cannam@95: TcZ = VADD(Tcw, Tcr); cannam@95: TaO = VFMA(LDK(KP831469612), TaI, VMUL(LDK(KP555570233), TaN)); cannam@95: Tb5 = VFNMS(LDK(KP555570233), Tb4, VMUL(LDK(KP831469612), TaZ)); cannam@95: Tb6 = VSUB(TaO, Tb5); cannam@95: TcY = VADD(TaO, Tb5); cannam@95: Tb7 = VSUB(Tax, Tb6); cannam@95: Td8 = VADD(TcZ, TcY); cannam@95: TcI = VADD(Tax, Tb6); cannam@95: Td0 = VSUB(TcY, TcZ); cannam@95: } cannam@95: { cannam@95: V Tcx, TcN, Tco, TcO, Tcm, Tcn; cannam@95: Tcx = VSUB(Tcr, Tcw); cannam@95: TcN = VADD(Tah, Taw); cannam@95: Tcm = VFNMS(LDK(KP555570233), TaI, VMUL(LDK(KP831469612), TaN)); cannam@95: Tcn = VFMA(LDK(KP555570233), TaZ, VMUL(LDK(KP831469612), Tb4)); cannam@95: Tco = VSUB(Tcm, Tcn); cannam@95: TcO = VADD(Tcm, Tcn); cannam@95: Tcy = VSUB(Tco, Tcx); cannam@95: Tda = VADD(TcN, TcO); cannam@95: TcG = VADD(Tcx, Tco); cannam@95: TcP = VSUB(TcN, TcO); cannam@95: } cannam@95: { cannam@95: V TbI, Tcz, Tcj, TcA; cannam@95: { cannam@95: V Tby, TbH, Tc9, Tci; cannam@95: Tby = VSUB(Tbm, Tbx); cannam@95: TbH = VSUB(TbD, TbG); cannam@95: TbI = VFMA(LDK(KP881921264), Tby, VMUL(LDK(KP471396736), TbH)); cannam@95: Tcz = VFNMS(LDK(KP471396736), Tby, VMUL(LDK(KP881921264), TbH)); cannam@95: Tc9 = VSUB(TbX, Tc8); cannam@95: Tci = VSUB(Tce, Tch); cannam@95: Tcj = VFNMS(LDK(KP471396736), Tci, VMUL(LDK(KP881921264), Tc9)); cannam@95: TcA = VFMA(LDK(KP471396736), Tc9, VMUL(LDK(KP881921264), Tci)); cannam@95: } cannam@95: Tck = VSUB(TbI, Tcj); cannam@95: TcJ = VADD(Tcz, TcA); cannam@95: TcB = VSUB(Tcz, TcA); cannam@95: TcF = VADD(TbI, Tcj); cannam@95: } cannam@95: { cannam@95: V TcS, Td1, TcV, Td2; cannam@95: { cannam@95: V TcQ, TcR, TcT, TcU; cannam@95: TcQ = VADD(Tbx, Tbm); cannam@95: TcR = VADD(TbD, TbG); cannam@95: TcS = VFMA(LDK(KP956940335), TcQ, VMUL(LDK(KP290284677), TcR)); cannam@95: Td1 = VFNMS(LDK(KP290284677), TcQ, VMUL(LDK(KP956940335), TcR)); cannam@95: TcT = VADD(Tc8, TbX); cannam@95: TcU = VADD(Tce, Tch); cannam@95: TcV = VFNMS(LDK(KP290284677), TcU, VMUL(LDK(KP956940335), TcT)); cannam@95: Td2 = VFMA(LDK(KP290284677), TcT, VMUL(LDK(KP956940335), TcU)); cannam@95: } cannam@95: TcW = VSUB(TcS, TcV); cannam@95: Tdb = VADD(Td1, Td2); cannam@95: Td3 = VSUB(Td1, Td2); cannam@95: Td7 = VADD(TcS, TcV); cannam@95: } cannam@95: { cannam@95: V Tcl, TcC, Td9, Tdc; cannam@95: Tcl = VADD(Tb7, Tck); cannam@95: TcC = VBYI(VADD(Tcy, TcB)); cannam@95: ST(&(xo[WS(os, 106)]), VSUB(Tcl, TcC), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 22)]), VADD(Tcl, TcC), ovs, &(xo[0])); cannam@95: Td9 = VBYI(VSUB(Td7, Td8)); cannam@95: Tdc = VSUB(Tda, Tdb); cannam@95: ST(&(xo[WS(os, 58)]), VADD(Td9, Tdc), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 70)]), VSUB(Tdc, Td9), ovs, &(xo[0])); cannam@95: } cannam@95: { cannam@95: V Tdd, Tde, TcD, TcE; cannam@95: Tdd = VBYI(VADD(Td8, Td7)); cannam@95: Tde = VADD(Tda, Tdb); cannam@95: ST(&(xo[WS(os, 6)]), VADD(Tdd, Tde), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 122)]), VSUB(Tde, Tdd), ovs, &(xo[0])); cannam@95: TcD = VSUB(Tb7, Tck); cannam@95: TcE = VBYI(VSUB(TcB, Tcy)); cannam@95: ST(&(xo[WS(os, 86)]), VSUB(TcD, TcE), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 42)]), VADD(TcD, TcE), ovs, &(xo[0])); cannam@95: } cannam@95: { cannam@95: V TcH, TcK, TcX, Td4; cannam@95: TcH = VBYI(VSUB(TcF, TcG)); cannam@95: TcK = VSUB(TcI, TcJ); cannam@95: ST(&(xo[WS(os, 54)]), VADD(TcH, TcK), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 74)]), VSUB(TcK, TcH), ovs, &(xo[0])); cannam@95: TcX = VADD(TcP, TcW); cannam@95: Td4 = VBYI(VADD(Td0, Td3)); cannam@95: ST(&(xo[WS(os, 102)]), VSUB(TcX, Td4), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 26)]), VADD(TcX, Td4), ovs, &(xo[0])); cannam@95: } cannam@95: { cannam@95: V Td5, Td6, TcL, TcM; cannam@95: Td5 = VSUB(TcP, TcW); cannam@95: Td6 = VBYI(VSUB(Td3, Td0)); cannam@95: ST(&(xo[WS(os, 90)]), VSUB(Td5, Td6), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 38)]), VADD(Td5, Td6), ovs, &(xo[0])); cannam@95: TcL = VBYI(VADD(TcG, TcF)); cannam@95: TcM = VADD(TcI, TcJ); cannam@95: ST(&(xo[WS(os, 10)]), VADD(TcL, TcM), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 118)]), VSUB(TcM, TcL), ovs, &(xo[0])); cannam@95: } cannam@95: } cannam@95: { cannam@95: V TdE, Tel, TdW, Tee, TdM, Teo, TdT, Tea, Tdt, TdX, TdP, TdU, Te7, Tep, Teh; cannam@95: V Tem; cannam@95: { cannam@95: V TdD, Tec, TdA, Ted, Tdw, Tdz; cannam@95: TdD = VADD(TdB, TdC); cannam@95: Tec = VSUB(TdG, TdH); cannam@95: Tdw = VFMA(LDK(KP980785280), Tdu, VMUL(LDK(KP195090322), Tdv)); cannam@95: Tdz = VFNMS(LDK(KP195090322), Tdy, VMUL(LDK(KP980785280), Tdx)); cannam@95: TdA = VADD(Tdw, Tdz); cannam@95: Ted = VSUB(Tdw, Tdz); cannam@95: TdE = VSUB(TdA, TdD); cannam@95: Tel = VADD(Tec, Ted); cannam@95: TdW = VADD(TdD, TdA); cannam@95: Tee = VSUB(Tec, Ted); cannam@95: } cannam@95: { cannam@95: V TdI, Te9, TdL, Te8, TdJ, TdK; cannam@95: TdI = VADD(TdG, TdH); cannam@95: Te9 = VSUB(TdC, TdB); cannam@95: TdJ = VFNMS(LDK(KP195090322), Tdu, VMUL(LDK(KP980785280), Tdv)); cannam@95: TdK = VFMA(LDK(KP195090322), Tdx, VMUL(LDK(KP980785280), Tdy)); cannam@95: TdL = VADD(TdJ, TdK); cannam@95: Te8 = VSUB(TdJ, TdK); cannam@95: TdM = VSUB(TdI, TdL); cannam@95: Teo = VADD(Te9, Te8); cannam@95: TdT = VADD(TdI, TdL); cannam@95: Tea = VSUB(Te8, Te9); cannam@95: } cannam@95: { cannam@95: V Tdl, TdN, Tds, TdO; cannam@95: { cannam@95: V Tdh, Tdk, Tdo, Tdr; cannam@95: Tdh = VADD(Tdf, Tdg); cannam@95: Tdk = VADD(Tdi, Tdj); cannam@95: Tdl = VFNMS(LDK(KP098017140), Tdk, VMUL(LDK(KP995184726), Tdh)); cannam@95: TdN = VFMA(LDK(KP098017140), Tdh, VMUL(LDK(KP995184726), Tdk)); cannam@95: Tdo = VADD(Tdm, Tdn); cannam@95: Tdr = VADD(Tdp, Tdq); cannam@95: Tds = VFMA(LDK(KP995184726), Tdo, VMUL(LDK(KP098017140), Tdr)); cannam@95: TdO = VFNMS(LDK(KP098017140), Tdo, VMUL(LDK(KP995184726), Tdr)); cannam@95: } cannam@95: Tdt = VSUB(Tdl, Tds); cannam@95: TdX = VADD(TdN, TdO); cannam@95: TdP = VSUB(TdN, TdO); cannam@95: TdU = VADD(Tdl, Tds); cannam@95: } cannam@95: { cannam@95: V Te3, Tef, Te6, Teg; cannam@95: { cannam@95: V Te1, Te2, Te4, Te5; cannam@95: Te1 = VSUB(Tdf, Tdg); cannam@95: Te2 = VSUB(Tdj, Tdi); cannam@95: Te3 = VFNMS(LDK(KP634393284), Te2, VMUL(LDK(KP773010453), Te1)); cannam@95: Tef = VFMA(LDK(KP634393284), Te1, VMUL(LDK(KP773010453), Te2)); cannam@95: Te4 = VSUB(Tdm, Tdn); cannam@95: Te5 = VSUB(Tdq, Tdp); cannam@95: Te6 = VFMA(LDK(KP773010453), Te4, VMUL(LDK(KP634393284), Te5)); cannam@95: Teg = VFNMS(LDK(KP634393284), Te4, VMUL(LDK(KP773010453), Te5)); cannam@95: } cannam@95: Te7 = VSUB(Te3, Te6); cannam@95: Tep = VADD(Tef, Teg); cannam@95: Teh = VSUB(Tef, Teg); cannam@95: Tem = VADD(Te3, Te6); cannam@95: } cannam@95: { cannam@95: V TdF, TdQ, Ten, Teq; cannam@95: TdF = VBYI(VSUB(Tdt, TdE)); cannam@95: TdQ = VSUB(TdM, TdP); cannam@95: ST(&(xo[WS(os, 34)]), VADD(TdF, TdQ), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 94)]), VSUB(TdQ, TdF), ovs, &(xo[0])); cannam@95: Ten = VADD(Tel, Tem); cannam@95: Teq = VBYI(VADD(Teo, Tep)); cannam@95: ST(&(xo[WS(os, 114)]), VSUB(Ten, Teq), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 14)]), VADD(Ten, Teq), ovs, &(xo[0])); cannam@95: } cannam@95: { cannam@95: V Ter, Tes, TdR, TdS; cannam@95: Ter = VSUB(Tel, Tem); cannam@95: Tes = VBYI(VSUB(Tep, Teo)); cannam@95: ST(&(xo[WS(os, 78)]), VSUB(Ter, Tes), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 50)]), VADD(Ter, Tes), ovs, &(xo[0])); cannam@95: TdR = VBYI(VADD(TdE, Tdt)); cannam@95: TdS = VADD(TdM, TdP); cannam@95: ST(&(xo[WS(os, 30)]), VADD(TdR, TdS), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 98)]), VSUB(TdS, TdR), ovs, &(xo[0])); cannam@95: } cannam@95: { cannam@95: V TdV, TdY, Teb, Tei; cannam@95: TdV = VADD(TdT, TdU); cannam@95: TdY = VBYI(VADD(TdW, TdX)); cannam@95: ST(&(xo[WS(os, 126)]), VSUB(TdV, TdY), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 2)]), VADD(TdV, TdY), ovs, &(xo[0])); cannam@95: Teb = VBYI(VSUB(Te7, Tea)); cannam@95: Tei = VSUB(Tee, Teh); cannam@95: ST(&(xo[WS(os, 46)]), VADD(Teb, Tei), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 82)]), VSUB(Tei, Teb), ovs, &(xo[0])); cannam@95: } cannam@95: { cannam@95: V Tej, Tek, TdZ, Te0; cannam@95: Tej = VBYI(VADD(Tea, Te7)); cannam@95: Tek = VADD(Tee, Teh); cannam@95: ST(&(xo[WS(os, 18)]), VADD(Tej, Tek), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 110)]), VSUB(Tek, Tej), ovs, &(xo[0])); cannam@95: TdZ = VSUB(TdT, TdU); cannam@95: Te0 = VBYI(VSUB(TdX, TdW)); cannam@95: ST(&(xo[WS(os, 66)]), VSUB(TdZ, Te0), ovs, &(xo[0])); cannam@95: ST(&(xo[WS(os, 62)]), VADD(TdZ, Te0), ovs, &(xo[0])); cannam@95: } cannam@95: } cannam@95: { cannam@95: V T7z, T8n, T8f, T8k, T8x, T8P, T8H, T8M, T80, T8L, T8O, T8c, T8j, T8A, T8E; cannam@95: V T8m; cannam@95: { cannam@95: V T7f, T8d, T7y, T8e; cannam@95: { cannam@95: V T77, T7e, T7q, T7x; cannam@95: T77 = VADD(T6Z, T76); cannam@95: T7e = VADD(T7a, T7d); cannam@95: T7f = VFNMS(LDK(KP336889853), T7e, VMUL(LDK(KP941544065), T77)); cannam@95: T8d = VFMA(LDK(KP336889853), T77, VMUL(LDK(KP941544065), T7e)); cannam@95: T7q = VADD(T7i, T7p); cannam@95: T7x = VADD(T7t, T7w); cannam@95: T7y = VFMA(LDK(KP941544065), T7q, VMUL(LDK(KP336889853), T7x)); cannam@95: T8e = VFNMS(LDK(KP336889853), T7q, VMUL(LDK(KP941544065), T7x)); cannam@95: } cannam@95: T7z = VSUB(T7f, T7y); cannam@95: T8n = VADD(T8d, T8e); cannam@95: T8f = VSUB(T8d, T8e); cannam@95: T8k = VADD(T7f, T7y); cannam@95: } cannam@95: { cannam@95: V T8t, T8F, T8w, T8G; cannam@95: { cannam@95: V T8r, T8s, T8u, T8v; cannam@95: T8r = VSUB(T6Z, T76); cannam@95: T8s = VSUB(T7d, T7a); cannam@95: T8t = VFNMS(LDK(KP427555093), T8s, VMUL(LDK(KP903989293), T8r)); cannam@95: T8F = VFMA(LDK(KP427555093), T8r, VMUL(LDK(KP903989293), T8s)); cannam@95: T8u = VSUB(T7i, T7p); cannam@95: T8v = VSUB(T7w, T7t); cannam@95: T8w = VFMA(LDK(KP903989293), T8u, VMUL(LDK(KP427555093), T8v)); cannam@95: T8G = VFNMS(LDK(KP427555093), T8u, VMUL(LDK(KP903989293), T8v)); cannam@95: } cannam@95: T8x = VSUB(T8t, T8w); cannam@95: T8P = VADD(T8F, T8G); cannam@95: T8H = VSUB(T8F, T8G); cannam@95: T8M = VADD(T8t, T8w); cannam@95: } cannam@95: { cannam@95: V T7Z, T8z, T88, T8C, T7O, T8D, T8b, T8y, T7Y, T87; cannam@95: T7Y = VSUB(T7U, T7X); cannam@95: T7Z = VADD(T7R, T7Y); cannam@95: T8z = VSUB(T7Y, T7R); cannam@95: T87 = VSUB(T85, T86); cannam@95: T88 = VADD(T84, T87); cannam@95: T8C = VSUB(T84, T87); cannam@95: { cannam@95: V T7G, T7N, T89, T8a; cannam@95: T7G = VFMA(LDK(KP634393284), T7C, VMUL(LDK(KP773010453), T7F)); cannam@95: T7N = VFNMS(LDK(KP634393284), T7M, VMUL(LDK(KP773010453), T7J)); cannam@95: T7O = VADD(T7G, T7N); cannam@95: T8D = VSUB(T7G, T7N); cannam@95: T89 = VFNMS(LDK(KP634393284), T7F, VMUL(LDK(KP773010453), T7C)); cannam@95: T8a = VFMA(LDK(KP773010453), T7M, VMUL(LDK(KP634393284), T7J)); cannam@95: T8b = VADD(T89, T8a); cannam@95: T8y = VSUB(T89, T8a); cannam@95: } cannam@95: T80 = VSUB(T7O, T7Z); cannam@95: T8L = VADD(T8C, T8D); cannam@95: T8O = VADD(T8z, T8y); cannam@95: T8c = VSUB(T88, T8b); cannam@95: T8j = VADD(T88, T8b); cannam@95: T8A = VSUB(T8y, T8z); cannam@95: T8E = VSUB(T8C, T8D); cannam@95: T8m = VADD(T7Z, T7O); cannam@95: } cannam@95: { cannam@95: V T81, T8g, T8N, T8Q; cannam@95: T81 = VBYI(VSUB(T7z, T80)); cannam@95: T8g = VSUB(T8c, T8f); cannam@95: ST(&(xo[WS(os, 39)]), VADD(T81, T8g), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 89)]), VSUB(T8g, T81), ovs, &(xo[WS(os, 1)])); cannam@95: T8N = VADD(T8L, T8M); cannam@95: T8Q = VBYI(VADD(T8O, T8P)); cannam@95: ST(&(xo[WS(os, 119)]), VSUB(T8N, T8Q), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 9)]), VADD(T8N, T8Q), ovs, &(xo[WS(os, 1)])); cannam@95: } cannam@95: { cannam@95: V T8R, T8S, T8h, T8i; cannam@95: T8R = VSUB(T8L, T8M); cannam@95: T8S = VBYI(VSUB(T8P, T8O)); cannam@95: ST(&(xo[WS(os, 73)]), VSUB(T8R, T8S), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 55)]), VADD(T8R, T8S), ovs, &(xo[WS(os, 1)])); cannam@95: T8h = VBYI(VADD(T80, T7z)); cannam@95: T8i = VADD(T8c, T8f); cannam@95: ST(&(xo[WS(os, 25)]), VADD(T8h, T8i), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 103)]), VSUB(T8i, T8h), ovs, &(xo[WS(os, 1)])); cannam@95: } cannam@95: { cannam@95: V T8l, T8o, T8B, T8I; cannam@95: T8l = VADD(T8j, T8k); cannam@95: T8o = VBYI(VADD(T8m, T8n)); cannam@95: ST(&(xo[WS(os, 121)]), VSUB(T8l, T8o), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 7)]), VADD(T8l, T8o), ovs, &(xo[WS(os, 1)])); cannam@95: T8B = VBYI(VSUB(T8x, T8A)); cannam@95: T8I = VSUB(T8E, T8H); cannam@95: ST(&(xo[WS(os, 41)]), VADD(T8B, T8I), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 87)]), VSUB(T8I, T8B), ovs, &(xo[WS(os, 1)])); cannam@95: } cannam@95: { cannam@95: V T8J, T8K, T8p, T8q; cannam@95: T8J = VBYI(VADD(T8A, T8x)); cannam@95: T8K = VADD(T8E, T8H); cannam@95: ST(&(xo[WS(os, 23)]), VADD(T8J, T8K), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 105)]), VSUB(T8K, T8J), ovs, &(xo[WS(os, 1)])); cannam@95: T8p = VSUB(T8j, T8k); cannam@95: T8q = VBYI(VSUB(T8n, T8m)); cannam@95: ST(&(xo[WS(os, 71)]), VSUB(T8p, T8q), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 57)]), VADD(T8p, T8q), ovs, &(xo[WS(os, 1)])); cannam@95: } cannam@95: } cannam@95: { cannam@95: V T2v, T5d, T55, T5a, T5n, T5F, T5x, T5C, T4K, T5B, T5E, T52, T59, T5q, T5u; cannam@95: V T5c; cannam@95: { cannam@95: V T1f, T53, T2u, T54; cannam@95: { cannam@95: V T11, T1e, T2g, T2t; cannam@95: T11 = VADD(Tr, T10); cannam@95: T1e = VADD(T1a, T1d); cannam@95: T1f = VFNMS(LDK(KP242980179), T1e, VMUL(LDK(KP970031253), T11)); cannam@95: T53 = VFMA(LDK(KP242980179), T11, VMUL(LDK(KP970031253), T1e)); cannam@95: T2g = VADD(T1G, T2f); cannam@95: T2t = VADD(T2p, T2s); cannam@95: T2u = VFMA(LDK(KP970031253), T2g, VMUL(LDK(KP242980179), T2t)); cannam@95: T54 = VFNMS(LDK(KP242980179), T2g, VMUL(LDK(KP970031253), T2t)); cannam@95: } cannam@95: T2v = VSUB(T1f, T2u); cannam@95: T5d = VADD(T53, T54); cannam@95: T55 = VSUB(T53, T54); cannam@95: T5a = VADD(T1f, T2u); cannam@95: } cannam@95: { cannam@95: V T5j, T5v, T5m, T5w; cannam@95: { cannam@95: V T5h, T5i, T5k, T5l; cannam@95: T5h = VSUB(Tr, T10); cannam@95: T5i = VSUB(T1d, T1a); cannam@95: T5j = VFNMS(LDK(KP514102744), T5i, VMUL(LDK(KP857728610), T5h)); cannam@95: T5v = VFMA(LDK(KP514102744), T5h, VMUL(LDK(KP857728610), T5i)); cannam@95: T5k = VSUB(T1G, T2f); cannam@95: T5l = VSUB(T2s, T2p); cannam@95: T5m = VFMA(LDK(KP857728610), T5k, VMUL(LDK(KP514102744), T5l)); cannam@95: T5w = VFNMS(LDK(KP514102744), T5k, VMUL(LDK(KP857728610), T5l)); cannam@95: } cannam@95: T5n = VSUB(T5j, T5m); cannam@95: T5F = VADD(T5v, T5w); cannam@95: T5x = VSUB(T5v, T5w); cannam@95: T5C = VADD(T5j, T5m); cannam@95: } cannam@95: { cannam@95: V T4J, T5p, T4Y, T5s, T3I, T5t, T51, T5o, T4I, T4X; cannam@95: T4I = VSUB(T4q, T4H); cannam@95: T4J = VADD(T49, T4I); cannam@95: T5p = VSUB(T4I, T49); cannam@95: T4X = VSUB(T4V, T4W); cannam@95: T4Y = VADD(T4U, T4X); cannam@95: T5s = VSUB(T4U, T4X); cannam@95: { cannam@95: V T36, T3H, T4Z, T50; cannam@95: T36 = VFMA(LDK(KP881921264), T2W, VMUL(LDK(KP471396736), T35)); cannam@95: T3H = VFNMS(LDK(KP471396736), T3G, VMUL(LDK(KP881921264), T3x)); cannam@95: T3I = VADD(T36, T3H); cannam@95: T5t = VSUB(T36, T3H); cannam@95: T4Z = VFNMS(LDK(KP471396736), T2W, VMUL(LDK(KP881921264), T35)); cannam@95: T50 = VFMA(LDK(KP471396736), T3x, VMUL(LDK(KP881921264), T3G)); cannam@95: T51 = VADD(T4Z, T50); cannam@95: T5o = VSUB(T4Z, T50); cannam@95: } cannam@95: T4K = VSUB(T3I, T4J); cannam@95: T5B = VADD(T5s, T5t); cannam@95: T5E = VADD(T5p, T5o); cannam@95: T52 = VSUB(T4Y, T51); cannam@95: T59 = VADD(T4Y, T51); cannam@95: T5q = VSUB(T5o, T5p); cannam@95: T5u = VSUB(T5s, T5t); cannam@95: T5c = VADD(T4J, T3I); cannam@95: } cannam@95: { cannam@95: V T4L, T56, T5D, T5G; cannam@95: T4L = VBYI(VSUB(T2v, T4K)); cannam@95: T56 = VSUB(T52, T55); cannam@95: ST(&(xo[WS(os, 37)]), VADD(T4L, T56), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 91)]), VSUB(T56, T4L), ovs, &(xo[WS(os, 1)])); cannam@95: T5D = VADD(T5B, T5C); cannam@95: T5G = VBYI(VADD(T5E, T5F)); cannam@95: ST(&(xo[WS(os, 117)]), VSUB(T5D, T5G), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 11)]), VADD(T5D, T5G), ovs, &(xo[WS(os, 1)])); cannam@95: } cannam@95: { cannam@95: V T5H, T5I, T57, T58; cannam@95: T5H = VSUB(T5B, T5C); cannam@95: T5I = VBYI(VSUB(T5F, T5E)); cannam@95: ST(&(xo[WS(os, 75)]), VSUB(T5H, T5I), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 53)]), VADD(T5H, T5I), ovs, &(xo[WS(os, 1)])); cannam@95: T57 = VBYI(VADD(T4K, T2v)); cannam@95: T58 = VADD(T52, T55); cannam@95: ST(&(xo[WS(os, 27)]), VADD(T57, T58), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 101)]), VSUB(T58, T57), ovs, &(xo[WS(os, 1)])); cannam@95: } cannam@95: { cannam@95: V T5b, T5e, T5r, T5y; cannam@95: T5b = VADD(T59, T5a); cannam@95: T5e = VBYI(VADD(T5c, T5d)); cannam@95: ST(&(xo[WS(os, 123)]), VSUB(T5b, T5e), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 5)]), VADD(T5b, T5e), ovs, &(xo[WS(os, 1)])); cannam@95: T5r = VBYI(VSUB(T5n, T5q)); cannam@95: T5y = VSUB(T5u, T5x); cannam@95: ST(&(xo[WS(os, 43)]), VADD(T5r, T5y), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 85)]), VSUB(T5y, T5r), ovs, &(xo[WS(os, 1)])); cannam@95: } cannam@95: { cannam@95: V T5z, T5A, T5f, T5g; cannam@95: T5z = VBYI(VADD(T5q, T5n)); cannam@95: T5A = VADD(T5u, T5x); cannam@95: ST(&(xo[WS(os, 21)]), VADD(T5z, T5A), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 107)]), VSUB(T5A, T5z), ovs, &(xo[WS(os, 1)])); cannam@95: T5f = VSUB(T59, T5a); cannam@95: T5g = VBYI(VSUB(T5d, T5c)); cannam@95: ST(&(xo[WS(os, 69)]), VSUB(T5f, T5g), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 59)]), VADD(T5f, T5g), ovs, &(xo[WS(os, 1)])); cannam@95: } cannam@95: } cannam@95: { cannam@95: V T9i, T9B, T9t, T9x, T9O, Ta3, T9V, T9Z, T93, Ta0, Ta2, T9q, T9y, T9H, T9S; cannam@95: V T9A; cannam@95: { cannam@95: V T9a, T9r, T9h, T9s; cannam@95: { cannam@95: V T96, T99, T9d, T9g; cannam@95: T96 = VSUB(T94, T95); cannam@95: T99 = VSUB(T97, T98); cannam@95: T9a = VFMA(LDK(KP740951125), T96, VMUL(LDK(KP671558954), T99)); cannam@95: T9r = VFNMS(LDK(KP671558954), T96, VMUL(LDK(KP740951125), T99)); cannam@95: T9d = VSUB(T9b, T9c); cannam@95: T9g = VSUB(T9e, T9f); cannam@95: T9h = VFNMS(LDK(KP671558954), T9g, VMUL(LDK(KP740951125), T9d)); cannam@95: T9s = VFMA(LDK(KP671558954), T9d, VMUL(LDK(KP740951125), T9g)); cannam@95: } cannam@95: T9i = VSUB(T9a, T9h); cannam@95: T9B = VADD(T9r, T9s); cannam@95: T9t = VSUB(T9r, T9s); cannam@95: T9x = VADD(T9a, T9h); cannam@95: } cannam@95: { cannam@95: V T9K, T9T, T9N, T9U; cannam@95: { cannam@95: V T9I, T9J, T9L, T9M; cannam@95: T9I = VADD(T95, T94); cannam@95: T9J = VADD(T97, T98); cannam@95: T9K = VFMA(LDK(KP998795456), T9I, VMUL(LDK(KP049067674), T9J)); cannam@95: T9T = VFNMS(LDK(KP049067674), T9I, VMUL(LDK(KP998795456), T9J)); cannam@95: T9L = VADD(T9c, T9b); cannam@95: T9M = VADD(T9e, T9f); cannam@95: T9N = VFNMS(LDK(KP049067674), T9M, VMUL(LDK(KP998795456), T9L)); cannam@95: T9U = VFMA(LDK(KP049067674), T9L, VMUL(LDK(KP998795456), T9M)); cannam@95: } cannam@95: T9O = VSUB(T9K, T9N); cannam@95: Ta3 = VADD(T9T, T9U); cannam@95: T9V = VSUB(T9T, T9U); cannam@95: T9Z = VADD(T9K, T9N); cannam@95: } cannam@95: { cannam@95: V T8V, T9F, T9p, T9R, T92, T9Q, T9m, T9G, T8U, T9n; cannam@95: T8U = VADD(T7U, T7X); cannam@95: T8V = VSUB(T8T, T8U); cannam@95: T9F = VADD(T8T, T8U); cannam@95: T9n = VADD(T85, T86); cannam@95: T9p = VSUB(T9n, T9o); cannam@95: T9R = VADD(T9o, T9n); cannam@95: { cannam@95: V T8Y, T91, T9k, T9l; cannam@95: T8Y = VFMA(LDK(KP098017140), T8W, VMUL(LDK(KP995184726), T8X)); cannam@95: T91 = VFNMS(LDK(KP098017140), T90, VMUL(LDK(KP995184726), T8Z)); cannam@95: T92 = VSUB(T8Y, T91); cannam@95: T9Q = VADD(T8Y, T91); cannam@95: T9k = VFNMS(LDK(KP098017140), T8X, VMUL(LDK(KP995184726), T8W)); cannam@95: T9l = VFMA(LDK(KP995184726), T90, VMUL(LDK(KP098017140), T8Z)); cannam@95: T9m = VSUB(T9k, T9l); cannam@95: T9G = VADD(T9k, T9l); cannam@95: } cannam@95: T93 = VSUB(T8V, T92); cannam@95: Ta0 = VADD(T9R, T9Q); cannam@95: Ta2 = VADD(T9F, T9G); cannam@95: T9q = VSUB(T9m, T9p); cannam@95: T9y = VADD(T9p, T9m); cannam@95: T9H = VSUB(T9F, T9G); cannam@95: T9S = VSUB(T9Q, T9R); cannam@95: T9A = VADD(T8V, T92); cannam@95: } cannam@95: { cannam@95: V T9j, T9u, Ta1, Ta4; cannam@95: T9j = VADD(T93, T9i); cannam@95: T9u = VBYI(VADD(T9q, T9t)); cannam@95: ST(&(xo[WS(os, 111)]), VSUB(T9j, T9u), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 17)]), VADD(T9j, T9u), ovs, &(xo[WS(os, 1)])); cannam@95: Ta1 = VBYI(VSUB(T9Z, Ta0)); cannam@95: Ta4 = VSUB(Ta2, Ta3); cannam@95: ST(&(xo[WS(os, 63)]), VADD(Ta1, Ta4), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 65)]), VSUB(Ta4, Ta1), ovs, &(xo[WS(os, 1)])); cannam@95: } cannam@95: { cannam@95: V Ta5, Ta6, T9v, T9w; cannam@95: Ta5 = VBYI(VADD(Ta0, T9Z)); cannam@95: Ta6 = VADD(Ta2, Ta3); cannam@95: ST(&(xo[WS(os, 1)]), VADD(Ta5, Ta6), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 127)]), VSUB(Ta6, Ta5), ovs, &(xo[WS(os, 1)])); cannam@95: T9v = VSUB(T93, T9i); cannam@95: T9w = VBYI(VSUB(T9t, T9q)); cannam@95: ST(&(xo[WS(os, 81)]), VSUB(T9v, T9w), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 47)]), VADD(T9v, T9w), ovs, &(xo[WS(os, 1)])); cannam@95: } cannam@95: { cannam@95: V T9z, T9C, T9P, T9W; cannam@95: T9z = VBYI(VSUB(T9x, T9y)); cannam@95: T9C = VSUB(T9A, T9B); cannam@95: ST(&(xo[WS(os, 49)]), VADD(T9z, T9C), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 79)]), VSUB(T9C, T9z), ovs, &(xo[WS(os, 1)])); cannam@95: T9P = VADD(T9H, T9O); cannam@95: T9W = VBYI(VADD(T9S, T9V)); cannam@95: ST(&(xo[WS(os, 97)]), VSUB(T9P, T9W), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 31)]), VADD(T9P, T9W), ovs, &(xo[WS(os, 1)])); cannam@95: } cannam@95: { cannam@95: V T9X, T9Y, T9D, T9E; cannam@95: T9X = VSUB(T9H, T9O); cannam@95: T9Y = VBYI(VSUB(T9V, T9S)); cannam@95: ST(&(xo[WS(os, 95)]), VSUB(T9X, T9Y), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 33)]), VADD(T9X, T9Y), ovs, &(xo[WS(os, 1)])); cannam@95: T9D = VBYI(VADD(T9y, T9x)); cannam@95: T9E = VADD(T9A, T9B); cannam@95: ST(&(xo[WS(os, 15)]), VADD(T9D, T9E), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 113)]), VSUB(T9E, T9D), ovs, &(xo[WS(os, 1)])); cannam@95: } cannam@95: } cannam@95: { cannam@95: V T68, T6r, T6j, T6n, T6E, T6T, T6L, T6P, T5T, T6Q, T6S, T6g, T6o, T6x, T6I; cannam@95: V T6q; cannam@95: { cannam@95: V T60, T6h, T67, T6i; cannam@95: { cannam@95: V T5W, T5Z, T63, T66; cannam@95: T5W = VSUB(T5U, T5V); cannam@95: T5Z = VSUB(T5X, T5Y); cannam@95: T60 = VFMA(LDK(KP803207531), T5W, VMUL(LDK(KP595699304), T5Z)); cannam@95: T6h = VFNMS(LDK(KP595699304), T5W, VMUL(LDK(KP803207531), T5Z)); cannam@95: T63 = VSUB(T61, T62); cannam@95: T66 = VSUB(T64, T65); cannam@95: T67 = VFNMS(LDK(KP595699304), T66, VMUL(LDK(KP803207531), T63)); cannam@95: T6i = VFMA(LDK(KP595699304), T63, VMUL(LDK(KP803207531), T66)); cannam@95: } cannam@95: T68 = VSUB(T60, T67); cannam@95: T6r = VADD(T6h, T6i); cannam@95: T6j = VSUB(T6h, T6i); cannam@95: T6n = VADD(T60, T67); cannam@95: } cannam@95: { cannam@95: V T6A, T6J, T6D, T6K; cannam@95: { cannam@95: V T6y, T6z, T6B, T6C; cannam@95: T6y = VADD(T5V, T5U); cannam@95: T6z = VADD(T5X, T5Y); cannam@95: T6A = VFMA(LDK(KP989176509), T6y, VMUL(LDK(KP146730474), T6z)); cannam@95: T6J = VFNMS(LDK(KP146730474), T6y, VMUL(LDK(KP989176509), T6z)); cannam@95: T6B = VADD(T62, T61); cannam@95: T6C = VADD(T64, T65); cannam@95: T6D = VFNMS(LDK(KP146730474), T6C, VMUL(LDK(KP989176509), T6B)); cannam@95: T6K = VFMA(LDK(KP146730474), T6B, VMUL(LDK(KP989176509), T6C)); cannam@95: } cannam@95: T6E = VSUB(T6A, T6D); cannam@95: T6T = VADD(T6J, T6K); cannam@95: T6L = VSUB(T6J, T6K); cannam@95: T6P = VADD(T6A, T6D); cannam@95: } cannam@95: { cannam@95: V T5L, T6v, T6f, T6H, T5S, T6G, T6c, T6w, T5K, T6d; cannam@95: T5K = VADD(T4q, T4H); cannam@95: T5L = VSUB(T5J, T5K); cannam@95: T6v = VADD(T5J, T5K); cannam@95: T6d = VADD(T4V, T4W); cannam@95: T6f = VSUB(T6d, T6e); cannam@95: T6H = VADD(T6e, T6d); cannam@95: { cannam@95: V T5O, T5R, T6a, T6b; cannam@95: T5O = VFMA(LDK(KP956940335), T5M, VMUL(LDK(KP290284677), T5N)); cannam@95: T5R = VFNMS(LDK(KP290284677), T5Q, VMUL(LDK(KP956940335), T5P)); cannam@95: T5S = VSUB(T5O, T5R); cannam@95: T6G = VADD(T5O, T5R); cannam@95: T6a = VFNMS(LDK(KP290284677), T5M, VMUL(LDK(KP956940335), T5N)); cannam@95: T6b = VFMA(LDK(KP290284677), T5P, VMUL(LDK(KP956940335), T5Q)); cannam@95: T6c = VSUB(T6a, T6b); cannam@95: T6w = VADD(T6a, T6b); cannam@95: } cannam@95: T5T = VSUB(T5L, T5S); cannam@95: T6Q = VADD(T6H, T6G); cannam@95: T6S = VADD(T6v, T6w); cannam@95: T6g = VSUB(T6c, T6f); cannam@95: T6o = VADD(T6f, T6c); cannam@95: T6x = VSUB(T6v, T6w); cannam@95: T6I = VSUB(T6G, T6H); cannam@95: T6q = VADD(T5L, T5S); cannam@95: } cannam@95: { cannam@95: V T69, T6k, T6R, T6U; cannam@95: T69 = VADD(T5T, T68); cannam@95: T6k = VBYI(VADD(T6g, T6j)); cannam@95: ST(&(xo[WS(os, 109)]), VSUB(T69, T6k), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 19)]), VADD(T69, T6k), ovs, &(xo[WS(os, 1)])); cannam@95: T6R = VBYI(VSUB(T6P, T6Q)); cannam@95: T6U = VSUB(T6S, T6T); cannam@95: ST(&(xo[WS(os, 61)]), VADD(T6R, T6U), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 67)]), VSUB(T6U, T6R), ovs, &(xo[WS(os, 1)])); cannam@95: } cannam@95: { cannam@95: V T6V, T6W, T6l, T6m; cannam@95: T6V = VBYI(VADD(T6Q, T6P)); cannam@95: T6W = VADD(T6S, T6T); cannam@95: ST(&(xo[WS(os, 3)]), VADD(T6V, T6W), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 125)]), VSUB(T6W, T6V), ovs, &(xo[WS(os, 1)])); cannam@95: T6l = VSUB(T5T, T68); cannam@95: T6m = VBYI(VSUB(T6j, T6g)); cannam@95: ST(&(xo[WS(os, 83)]), VSUB(T6l, T6m), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 45)]), VADD(T6l, T6m), ovs, &(xo[WS(os, 1)])); cannam@95: } cannam@95: { cannam@95: V T6p, T6s, T6F, T6M; cannam@95: T6p = VBYI(VSUB(T6n, T6o)); cannam@95: T6s = VSUB(T6q, T6r); cannam@95: ST(&(xo[WS(os, 51)]), VADD(T6p, T6s), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 77)]), VSUB(T6s, T6p), ovs, &(xo[WS(os, 1)])); cannam@95: T6F = VADD(T6x, T6E); cannam@95: T6M = VBYI(VADD(T6I, T6L)); cannam@95: ST(&(xo[WS(os, 99)]), VSUB(T6F, T6M), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 29)]), VADD(T6F, T6M), ovs, &(xo[WS(os, 1)])); cannam@95: } cannam@95: { cannam@95: V T6N, T6O, T6t, T6u; cannam@95: T6N = VSUB(T6x, T6E); cannam@95: T6O = VBYI(VSUB(T6L, T6I)); cannam@95: ST(&(xo[WS(os, 93)]), VSUB(T6N, T6O), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 35)]), VADD(T6N, T6O), ovs, &(xo[WS(os, 1)])); cannam@95: T6t = VBYI(VADD(T6o, T6n)); cannam@95: T6u = VADD(T6q, T6r); cannam@95: ST(&(xo[WS(os, 13)]), VADD(T6t, T6u), ovs, &(xo[WS(os, 1)])); cannam@95: ST(&(xo[WS(os, 115)]), VSUB(T6u, T6t), ovs, &(xo[WS(os, 1)])); cannam@95: } cannam@95: } cannam@95: } cannam@95: } cannam@95: VLEAVE(); cannam@95: } cannam@95: cannam@95: static const kdft_desc desc = { 128, XSIMD_STRING("n1bv_128"), {938, 186, 144, 0}, &GENUS, 0, 0, 0, 0 }; cannam@95: cannam@95: void XSIMD(codelet_n1bv_128) (planner *p) { cannam@95: X(kdft_register) (p, n1bv_128, &desc); cannam@95: } cannam@95: cannam@95: #endif /* HAVE_FMA */