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