annotate src/fftw-3.3.3/dft/simd/common/n1fv_128.c @ 95:89f5e221ed7b

Add FFTW3
author Chris Cannam <cannam@all-day-breakfast.com>
date Wed, 20 Mar 2013 15:35:50 +0000
parents
children
rev   line source
cannam@95 1 /*
cannam@95 2 * Copyright (c) 2003, 2007-11 Matteo Frigo
cannam@95 3 * Copyright (c) 2003, 2007-11 Massachusetts Institute of Technology
cannam@95 4 *
cannam@95 5 * This program is free software; you can redistribute it and/or modify
cannam@95 6 * it under the terms of the GNU General Public License as published by
cannam@95 7 * the Free Software Foundation; either version 2 of the License, or
cannam@95 8 * (at your option) any later version.
cannam@95 9 *
cannam@95 10 * This program is distributed in the hope that it will be useful,
cannam@95 11 * but WITHOUT ANY WARRANTY; without even the implied warranty of
cannam@95 12 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
cannam@95 13 * GNU General Public License for more details.
cannam@95 14 *
cannam@95 15 * You should have received a copy of the GNU General Public License
cannam@95 16 * along with this program; if not, write to the Free Software
cannam@95 17 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
cannam@95 18 *
cannam@95 19 */
cannam@95 20
cannam@95 21 /* This file was automatically generated --- DO NOT EDIT */
cannam@95 22 /* Generated on Sun Nov 25 07:36:54 EST 2012 */
cannam@95 23
cannam@95 24 #include "codelet-dft.h"
cannam@95 25
cannam@95 26 #ifdef HAVE_FMA
cannam@95 27
cannam@95 28 /* 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 29
cannam@95 30 /*
cannam@95 31 * This function contains 1082 FP additions, 642 FP multiplications,
cannam@95 32 * (or, 440 additions, 0 multiplications, 642 fused multiply/add),
cannam@95 33 * 295 stack variables, 31 constants, and 256 memory accesses
cannam@95 34 */
cannam@95 35 #include "n1f.h"
cannam@95 36
cannam@95 37 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 38 {
cannam@95 39 DVK(KP903989293, +0.903989293123443331586200297230537048710132025);
cannam@95 40 DVK(KP941544065, +0.941544065183020778412509402599502357185589796);
cannam@95 41 DVK(KP357805721, +0.357805721314524104672487743774474392487532769);
cannam@95 42 DVK(KP472964775, +0.472964775891319928124438237972992463904131113);
cannam@95 43 DVK(KP857728610, +0.857728610000272069902269984284770137042490799);
cannam@95 44 DVK(KP970031253, +0.970031253194543992603984207286100251456865962);
cannam@95 45 DVK(KP250486960, +0.250486960191305461595702160124721208578685568);
cannam@95 46 DVK(KP998795456, +0.998795456205172392714771604759100694443203615);
cannam@95 47 DVK(KP740951125, +0.740951125354959091175616897495162729728955309);
cannam@95 48 DVK(KP599376933, +0.599376933681923766271389869014404232837890546);
cannam@95 49 DVK(KP906347169, +0.906347169019147157946142717268914412664134293);
cannam@95 50 DVK(KP049126849, +0.049126849769467254105343321271313617079695752);
cannam@95 51 DVK(KP989176509, +0.989176509964780973451673738016243063983689533);
cannam@95 52 DVK(KP803207531, +0.803207531480644909806676512963141923879569427);
cannam@95 53 DVK(KP741650546, +0.741650546272035369581266691172079863842265220);
cannam@95 54 DVK(KP956940335, +0.956940335732208864935797886980269969482849206);
cannam@95 55 DVK(KP148335987, +0.148335987538347428753676511486911367000625355);
cannam@95 56 DVK(KP881921264, +0.881921264348355029712756863660388349508442621);
cannam@95 57 DVK(KP303346683, +0.303346683607342391675883946941299872384187453);
cannam@95 58 DVK(KP534511135, +0.534511135950791641089685961295362908582039528);
cannam@95 59 DVK(KP773010453, +0.773010453362736960810906609758469800971041293);
cannam@95 60 DVK(KP995184726, +0.995184726672196886244836953109479921575474869);
cannam@95 61 DVK(KP820678790, +0.820678790828660330972281985331011598767386482);
cannam@95 62 DVK(KP098491403, +0.098491403357164253077197521291327432293052451);
cannam@95 63 DVK(KP831469612, +0.831469612302545237078788377617905756738560812);
cannam@95 64 DVK(KP980785280, +0.980785280403230449126182236134239036973933731);
cannam@95 65 DVK(KP198912367, +0.198912367379658006911597622644676228597850501);
cannam@95 66 DVK(KP668178637, +0.668178637919298919997757686523080761552472251);
cannam@95 67 DVK(KP923879532, +0.923879532511286756128183189396788286822416626);
cannam@95 68 DVK(KP414213562, +0.414213562373095048801688724209698078569671875);
cannam@95 69 DVK(KP707106781, +0.707106781186547524400844362104849039284835938);
cannam@95 70 {
cannam@95 71 INT i;
cannam@95 72 const R *xi;
cannam@95 73 R *xo;
cannam@95 74 xi = ri;
cannam@95 75 xo = ro;
cannam@95 76 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 77 V T6a, T5J, T6b, T5K, T6B, T6C, T6J, T6A, T6o, T6j, T6r, T68, T6e, T5O, T5R;
cannam@95 78 V T6d, T6D, T6K;
cannam@95 79 {
cannam@95 80 V Tad, TcZ, T6Z, T8T, T4U, Tr, Tfq, TgG, Ted, Tgf, Td0, Tcc, T9k, T84, Tb6;
cannam@95 81 V Tbt, Td8, TdK, TeK, Tgq, TeV, Tgt, T7q, T94, T3p, T5X, T7B, T97, T2G, T5U;
cannam@95 82 V TbD, Tc0, Tdf, TdN, Tf5, Tgx, Tfg, TgA, T7J, T9b, T4E, T64, T7U, T9e, T3V;
cannam@95 83 V T61, Td2, Td3, T85, T72, T4V, TI, Tcd, Tas, TgH, Tek, Tgg, Tft, T86, T75;
cannam@95 84 V T4W, TZ, TaI, Tcg, Tdr, TdG, Tgi, Tet, Tgj, Teq, T8X, T7a, T5M, T1B, T8W;
cannam@95 85 V T7d, T5N, T1s, TaX, Tcf, Tdo, TdH, Tgl, TeC, Tgm, Tez, T90, T7h, T5P, T2c;
cannam@95 86 V T8Z, T7k, T5Q, T23, T3Y, T49, TdL, Tdb, Tbu, Tbl, Tgu, TeR, Tgr, TeY, Tf6;
cannam@95 87 V TbG, T5V, T3s, T5Y, T3f, T95, T7E, T98, T7x, T4g, T4f, T4q, TbH, T41, TbI;
cannam@95 88 V T44, T4h, T4j, T4k, Tf9, TbN;
cannam@95 89 {
cannam@95 90 V Tu, TF, Ty, TL, TW, Tah, Tx, Tag, Tee, Tz, TM, TN, Teh, Tan, TP;
cannam@95 91 V TQ;
cannam@95 92 {
cannam@95 93 V TeG, T2A, Tbq, TeT, Tbp, TeH, T3m, T2x, Td6, T7o, T2q, T3l, T7z, Tbr, T2D;
cannam@95 94 V T82, T83;
cannam@95 95 {
cannam@95 96 V Ta7, T3, Ta8, T4O, Taa, Tab, Ta, T4P, Te, Tc9, Th, Tca, Tl, Tc6, Tc7;
cannam@95 97 V To;
cannam@95 98 {
cannam@95 99 V T1, T2, T4M, T4N;
cannam@95 100 T1 = LD(&(xi[0]), ivs, &(xi[0]));
cannam@95 101 T2 = LD(&(xi[WS(is, 64)]), ivs, &(xi[0]));
cannam@95 102 T4M = LD(&(xi[WS(is, 32)]), ivs, &(xi[0]));
cannam@95 103 T4N = LD(&(xi[WS(is, 96)]), ivs, &(xi[0]));
cannam@95 104 {
cannam@95 105 V T4, T5, T7, T8;
cannam@95 106 T4 = LD(&(xi[WS(is, 16)]), ivs, &(xi[0]));
cannam@95 107 T5 = LD(&(xi[WS(is, 80)]), ivs, &(xi[0]));
cannam@95 108 T7 = LD(&(xi[WS(is, 112)]), ivs, &(xi[0]));
cannam@95 109 T8 = LD(&(xi[WS(is, 48)]), ivs, &(xi[0]));
cannam@95 110 {
cannam@95 111 V Tc, T6, T9, Td, Tf, Tg;
cannam@95 112 Tc = LD(&(xi[WS(is, 8)]), ivs, &(xi[0]));
cannam@95 113 Ta7 = VADD(T1, T2);
cannam@95 114 T3 = VSUB(T1, T2);
cannam@95 115 Ta8 = VADD(T4M, T4N);
cannam@95 116 T4O = VSUB(T4M, T4N);
cannam@95 117 Taa = VADD(T4, T5);
cannam@95 118 T6 = VSUB(T4, T5);
cannam@95 119 Tab = VADD(T7, T8);
cannam@95 120 T9 = VSUB(T7, T8);
cannam@95 121 Td = LD(&(xi[WS(is, 72)]), ivs, &(xi[0]));
cannam@95 122 Tf = LD(&(xi[WS(is, 40)]), ivs, &(xi[0]));
cannam@95 123 Tg = LD(&(xi[WS(is, 104)]), ivs, &(xi[0]));
cannam@95 124 {
cannam@95 125 V Tj, Tk, Tm, Tn;
cannam@95 126 Tj = LD(&(xi[WS(is, 120)]), ivs, &(xi[0]));
cannam@95 127 Tk = LD(&(xi[WS(is, 56)]), ivs, &(xi[0]));
cannam@95 128 Tm = LD(&(xi[WS(is, 88)]), ivs, &(xi[0]));
cannam@95 129 Tn = LD(&(xi[WS(is, 24)]), ivs, &(xi[0]));
cannam@95 130 Ta = VADD(T6, T9);
cannam@95 131 T4P = VSUB(T9, T6);
cannam@95 132 Te = VSUB(Tc, Td);
cannam@95 133 Tc9 = VADD(Tc, Td);
cannam@95 134 Th = VSUB(Tf, Tg);
cannam@95 135 Tca = VADD(Tf, Tg);
cannam@95 136 Tl = VSUB(Tj, Tk);
cannam@95 137 Tc6 = VADD(Tj, Tk);
cannam@95 138 Tc7 = VADD(Tn, Tm);
cannam@95 139 To = VSUB(Tm, Tn);
cannam@95 140 }
cannam@95 141 }
cannam@95 142 }
cannam@95 143 }
cannam@95 144 {
cannam@95 145 V T6X, Tb, Te9, Ta9, Tcb, Tea, T4R, Ti, Tfo, Tac, Tp, T4S, Tc8, Teb, T4Q;
cannam@95 146 T6X = VFNMS(LDK(KP707106781), Ta, T3);
cannam@95 147 Tb = VFMA(LDK(KP707106781), Ta, T3);
cannam@95 148 Te9 = VSUB(Ta7, Ta8);
cannam@95 149 Ta9 = VADD(Ta7, Ta8);
cannam@95 150 Tcb = VADD(Tc9, Tca);
cannam@95 151 Tea = VSUB(Tc9, Tca);
cannam@95 152 T4R = VFMA(LDK(KP414213562), Te, Th);
cannam@95 153 Ti = VFNMS(LDK(KP414213562), Th, Te);
cannam@95 154 Tfo = VSUB(Tab, Taa);
cannam@95 155 Tac = VADD(Taa, Tab);
cannam@95 156 Tp = VFNMS(LDK(KP414213562), To, Tl);
cannam@95 157 T4S = VFMA(LDK(KP414213562), Tl, To);
cannam@95 158 Tc8 = VADD(Tc6, Tc7);
cannam@95 159 Teb = VSUB(Tc6, Tc7);
cannam@95 160 T4Q = VFNMS(LDK(KP707106781), T4P, T4O);
cannam@95 161 T82 = VFMA(LDK(KP707106781), T4P, T4O);
cannam@95 162 {
cannam@95 163 V T4T, T6Y, Tq, Tfp, Tec;
cannam@95 164 T4T = VSUB(T4R, T4S);
cannam@95 165 T6Y = VADD(T4R, T4S);
cannam@95 166 T83 = VSUB(Tp, Ti);
cannam@95 167 Tq = VADD(Ti, Tp);
cannam@95 168 Tfp = VSUB(Teb, Tea);
cannam@95 169 Tec = VADD(Tea, Teb);
cannam@95 170 Tad = VSUB(Ta9, Tac);
cannam@95 171 TcZ = VADD(Ta9, Tac);
cannam@95 172 T6Z = VFMA(LDK(KP923879532), T6Y, T6X);
cannam@95 173 T8T = VFNMS(LDK(KP923879532), T6Y, T6X);
cannam@95 174 T4U = VFMA(LDK(KP923879532), T4T, T4Q);
cannam@95 175 T6a = VFNMS(LDK(KP923879532), T4T, T4Q);
cannam@95 176 Tr = VFMA(LDK(KP923879532), Tq, Tb);
cannam@95 177 T5J = VFNMS(LDK(KP923879532), Tq, Tb);
cannam@95 178 Tfq = VFMA(LDK(KP707106781), Tfp, Tfo);
cannam@95 179 TgG = VFNMS(LDK(KP707106781), Tfp, Tfo);
cannam@95 180 Ted = VFMA(LDK(KP707106781), Tec, Te9);
cannam@95 181 Tgf = VFNMS(LDK(KP707106781), Tec, Te9);
cannam@95 182 Td0 = VADD(Tcb, Tc8);
cannam@95 183 Tcc = VSUB(Tc8, Tcb);
cannam@95 184 }
cannam@95 185 }
cannam@95 186 }
cannam@95 187 {
cannam@95 188 V T2i, T3j, Tb2, T2B, Tb5, T3k, T2p, T2C;
cannam@95 189 {
cannam@95 190 V T2m, Tb0, Tb1, Tb3, T2l, T2n;
cannam@95 191 {
cannam@95 192 V T2g, T2h, T3h, T3i, T2j, T2k;
cannam@95 193 T2g = LD(&(xi[WS(is, 1)]), ivs, &(xi[WS(is, 1)]));
cannam@95 194 T2h = LD(&(xi[WS(is, 65)]), ivs, &(xi[WS(is, 1)]));
cannam@95 195 T3h = LD(&(xi[WS(is, 33)]), ivs, &(xi[WS(is, 1)]));
cannam@95 196 T3i = LD(&(xi[WS(is, 97)]), ivs, &(xi[WS(is, 1)]));
cannam@95 197 T2j = LD(&(xi[WS(is, 17)]), ivs, &(xi[WS(is, 1)]));
cannam@95 198 T2k = LD(&(xi[WS(is, 81)]), ivs, &(xi[WS(is, 1)]));
cannam@95 199 T2m = LD(&(xi[WS(is, 113)]), ivs, &(xi[WS(is, 1)]));
cannam@95 200 T9k = VFNMS(LDK(KP923879532), T83, T82);
cannam@95 201 T84 = VFMA(LDK(KP923879532), T83, T82);
cannam@95 202 T2i = VSUB(T2g, T2h);
cannam@95 203 Tb0 = VADD(T2g, T2h);
cannam@95 204 T3j = VSUB(T3h, T3i);
cannam@95 205 Tb1 = VADD(T3h, T3i);
cannam@95 206 Tb3 = VADD(T2j, T2k);
cannam@95 207 T2l = VSUB(T2j, T2k);
cannam@95 208 T2n = LD(&(xi[WS(is, 49)]), ivs, &(xi[WS(is, 1)]));
cannam@95 209 }
cannam@95 210 {
cannam@95 211 V T2r, T2s, T2u, T2v;
cannam@95 212 T2r = LD(&(xi[WS(is, 9)]), ivs, &(xi[WS(is, 1)]));
cannam@95 213 T2s = LD(&(xi[WS(is, 73)]), ivs, &(xi[WS(is, 1)]));
cannam@95 214 T2u = LD(&(xi[WS(is, 41)]), ivs, &(xi[WS(is, 1)]));
cannam@95 215 T2v = LD(&(xi[WS(is, 105)]), ivs, &(xi[WS(is, 1)]));
cannam@95 216 TeG = VSUB(Tb0, Tb1);
cannam@95 217 Tb2 = VADD(Tb0, Tb1);
cannam@95 218 {
cannam@95 219 V T2y, T2z, Tb4, T2o, Tbn, T2t, Tbo, T2w;
cannam@95 220 T2y = LD(&(xi[WS(is, 121)]), ivs, &(xi[WS(is, 1)]));
cannam@95 221 T2z = LD(&(xi[WS(is, 57)]), ivs, &(xi[WS(is, 1)]));
cannam@95 222 Tb4 = VADD(T2m, T2n);
cannam@95 223 T2o = VSUB(T2m, T2n);
cannam@95 224 Tbn = VADD(T2r, T2s);
cannam@95 225 T2t = VSUB(T2r, T2s);
cannam@95 226 Tbo = VADD(T2u, T2v);
cannam@95 227 T2w = VSUB(T2u, T2v);
cannam@95 228 T2B = LD(&(xi[WS(is, 25)]), ivs, &(xi[WS(is, 1)]));
cannam@95 229 T2A = VSUB(T2y, T2z);
cannam@95 230 Tbq = VADD(T2y, T2z);
cannam@95 231 TeT = VSUB(Tb3, Tb4);
cannam@95 232 Tb5 = VADD(Tb3, Tb4);
cannam@95 233 T3k = VSUB(T2l, T2o);
cannam@95 234 T2p = VADD(T2l, T2o);
cannam@95 235 Tbp = VADD(Tbn, Tbo);
cannam@95 236 TeH = VSUB(Tbn, Tbo);
cannam@95 237 T3m = VFMA(LDK(KP414213562), T2t, T2w);
cannam@95 238 T2x = VFNMS(LDK(KP414213562), T2w, T2t);
cannam@95 239 T2C = LD(&(xi[WS(is, 89)]), ivs, &(xi[WS(is, 1)]));
cannam@95 240 }
cannam@95 241 }
cannam@95 242 }
cannam@95 243 Td6 = VADD(Tb2, Tb5);
cannam@95 244 Tb6 = VSUB(Tb2, Tb5);
cannam@95 245 T7o = VFNMS(LDK(KP707106781), T2p, T2i);
cannam@95 246 T2q = VFMA(LDK(KP707106781), T2p, T2i);
cannam@95 247 T3l = VFMA(LDK(KP707106781), T3k, T3j);
cannam@95 248 T7z = VFNMS(LDK(KP707106781), T3k, T3j);
cannam@95 249 Tbr = VADD(T2B, T2C);
cannam@95 250 T2D = VSUB(T2B, T2C);
cannam@95 251 }
cannam@95 252 {
cannam@95 253 V Tf1, Tfe, Tf2, TbZ, T3M, T4B, Tdd, T3F, T7H, T4A, T7S, TbW, Tf3, T4C, T3T;
cannam@95 254 {
cannam@95 255 V T3x, T4y, Tbz, T3Q, TbC, T4z, T3E, T3R, T3P, TbU, TbV, T3S;
cannam@95 256 {
cannam@95 257 V T3y, T3z, T3B, T3C;
cannam@95 258 {
cannam@95 259 V T3v, T3w, T4w, T4x;
cannam@95 260 T3v = LD(&(xi[WS(is, 127)]), ivs, &(xi[WS(is, 1)]));
cannam@95 261 T3w = LD(&(xi[WS(is, 63)]), ivs, &(xi[WS(is, 1)]));
cannam@95 262 T4w = LD(&(xi[WS(is, 95)]), ivs, &(xi[WS(is, 1)]));
cannam@95 263 T4x = LD(&(xi[WS(is, 31)]), ivs, &(xi[WS(is, 1)]));
cannam@95 264 T3y = LD(&(xi[WS(is, 15)]), ivs, &(xi[WS(is, 1)]));
cannam@95 265 {
cannam@95 266 V Tbs, TeI, T3n, T2E, Tbx;
cannam@95 267 Tbs = VADD(Tbq, Tbr);
cannam@95 268 TeI = VSUB(Tbq, Tbr);
cannam@95 269 T3n = VFNMS(LDK(KP414213562), T2A, T2D);
cannam@95 270 T2E = VFMA(LDK(KP414213562), T2D, T2A);
cannam@95 271 T3x = VSUB(T3v, T3w);
cannam@95 272 Tbx = VADD(T3v, T3w);
cannam@95 273 {
cannam@95 274 V Tby, Td7, TeJ, TeU;
cannam@95 275 T4y = VSUB(T4w, T4x);
cannam@95 276 Tby = VADD(T4x, T4w);
cannam@95 277 Td7 = VADD(Tbp, Tbs);
cannam@95 278 Tbt = VSUB(Tbp, Tbs);
cannam@95 279 TeJ = VADD(TeH, TeI);
cannam@95 280 TeU = VSUB(TeH, TeI);
cannam@95 281 {
cannam@95 282 V T7p, T3o, T7A, T2F;
cannam@95 283 T7p = VSUB(T3m, T3n);
cannam@95 284 T3o = VADD(T3m, T3n);
cannam@95 285 T7A = VSUB(T2x, T2E);
cannam@95 286 T2F = VADD(T2x, T2E);
cannam@95 287 Tbz = VADD(Tbx, Tby);
cannam@95 288 Tf1 = VSUB(Tbx, Tby);
cannam@95 289 Td8 = VADD(Td6, Td7);
cannam@95 290 TdK = VSUB(Td6, Td7);
cannam@95 291 TeK = VFMA(LDK(KP707106781), TeJ, TeG);
cannam@95 292 Tgq = VFNMS(LDK(KP707106781), TeJ, TeG);
cannam@95 293 TeV = VFMA(LDK(KP707106781), TeU, TeT);
cannam@95 294 Tgt = VFNMS(LDK(KP707106781), TeU, TeT);
cannam@95 295 T7q = VFMA(LDK(KP923879532), T7p, T7o);
cannam@95 296 T94 = VFNMS(LDK(KP923879532), T7p, T7o);
cannam@95 297 T3p = VFMA(LDK(KP923879532), T3o, T3l);
cannam@95 298 T5X = VFNMS(LDK(KP923879532), T3o, T3l);
cannam@95 299 T7B = VFNMS(LDK(KP923879532), T7A, T7z);
cannam@95 300 T97 = VFMA(LDK(KP923879532), T7A, T7z);
cannam@95 301 T2G = VFMA(LDK(KP923879532), T2F, T2q);
cannam@95 302 T5U = VFNMS(LDK(KP923879532), T2F, T2q);
cannam@95 303 T3z = LD(&(xi[WS(is, 79)]), ivs, &(xi[WS(is, 1)]));
cannam@95 304 }
cannam@95 305 }
cannam@95 306 }
cannam@95 307 T3B = LD(&(xi[WS(is, 111)]), ivs, &(xi[WS(is, 1)]));
cannam@95 308 T3C = LD(&(xi[WS(is, 47)]), ivs, &(xi[WS(is, 1)]));
cannam@95 309 }
cannam@95 310 {
cannam@95 311 V T3G, T3H, T3J, T3K;
cannam@95 312 T3G = LD(&(xi[WS(is, 7)]), ivs, &(xi[WS(is, 1)]));
cannam@95 313 T3H = LD(&(xi[WS(is, 71)]), ivs, &(xi[WS(is, 1)]));
cannam@95 314 T3J = LD(&(xi[WS(is, 103)]), ivs, &(xi[WS(is, 1)]));
cannam@95 315 T3K = LD(&(xi[WS(is, 39)]), ivs, &(xi[WS(is, 1)]));
cannam@95 316 {
cannam@95 317 V T3N, T3A, TbA, T3D, TbB, T3I, TbX, T3L, TbY, T3O;
cannam@95 318 T3N = LD(&(xi[WS(is, 119)]), ivs, &(xi[WS(is, 1)]));
cannam@95 319 T3A = VSUB(T3y, T3z);
cannam@95 320 TbA = VADD(T3y, T3z);
cannam@95 321 T3D = VSUB(T3B, T3C);
cannam@95 322 TbB = VADD(T3B, T3C);
cannam@95 323 T3I = VSUB(T3G, T3H);
cannam@95 324 TbX = VADD(T3G, T3H);
cannam@95 325 T3L = VSUB(T3J, T3K);
cannam@95 326 TbY = VADD(T3K, T3J);
cannam@95 327 T3O = LD(&(xi[WS(is, 55)]), ivs, &(xi[WS(is, 1)]));
cannam@95 328 T3Q = LD(&(xi[WS(is, 87)]), ivs, &(xi[WS(is, 1)]));
cannam@95 329 Tfe = VSUB(TbB, TbA);
cannam@95 330 TbC = VADD(TbA, TbB);
cannam@95 331 T4z = VSUB(T3D, T3A);
cannam@95 332 T3E = VADD(T3A, T3D);
cannam@95 333 T3R = LD(&(xi[WS(is, 23)]), ivs, &(xi[WS(is, 1)]));
cannam@95 334 Tf2 = VSUB(TbX, TbY);
cannam@95 335 TbZ = VADD(TbX, TbY);
cannam@95 336 T3M = VFMA(LDK(KP414213562), T3L, T3I);
cannam@95 337 T4B = VFNMS(LDK(KP414213562), T3I, T3L);
cannam@95 338 T3P = VSUB(T3N, T3O);
cannam@95 339 TbU = VADD(T3N, T3O);
cannam@95 340 }
cannam@95 341 }
cannam@95 342 }
cannam@95 343 Tdd = VADD(Tbz, TbC);
cannam@95 344 TbD = VSUB(Tbz, TbC);
cannam@95 345 TbV = VADD(T3R, T3Q);
cannam@95 346 T3S = VSUB(T3Q, T3R);
cannam@95 347 T3F = VFMA(LDK(KP707106781), T3E, T3x);
cannam@95 348 T7H = VFNMS(LDK(KP707106781), T3E, T3x);
cannam@95 349 T4A = VFMA(LDK(KP707106781), T4z, T4y);
cannam@95 350 T7S = VFNMS(LDK(KP707106781), T4z, T4y);
cannam@95 351 TbW = VADD(TbU, TbV);
cannam@95 352 Tf3 = VSUB(TbU, TbV);
cannam@95 353 T4C = VFMA(LDK(KP414213562), T3P, T3S);
cannam@95 354 T3T = VFNMS(LDK(KP414213562), T3S, T3P);
cannam@95 355 }
cannam@95 356 {
cannam@95 357 V TD, Tae, TE, TJ, TK, TU, TV;
cannam@95 358 {
cannam@95 359 V Ts, Tt, Tde, Tf4, Tff;
cannam@95 360 Ts = LD(&(xi[WS(is, 4)]), ivs, &(xi[0]));
cannam@95 361 Tt = LD(&(xi[WS(is, 68)]), ivs, &(xi[0]));
cannam@95 362 TD = LD(&(xi[WS(is, 36)]), ivs, &(xi[0]));
cannam@95 363 Tde = VADD(TbZ, TbW);
cannam@95 364 Tc0 = VSUB(TbW, TbZ);
cannam@95 365 Tf4 = VADD(Tf2, Tf3);
cannam@95 366 Tff = VSUB(Tf3, Tf2);
cannam@95 367 {
cannam@95 368 V T7I, T4D, T7T, T3U;
cannam@95 369 T7I = VSUB(T4C, T4B);
cannam@95 370 T4D = VADD(T4B, T4C);
cannam@95 371 T7T = VSUB(T3T, T3M);
cannam@95 372 T3U = VADD(T3M, T3T);
cannam@95 373 Tae = VADD(Ts, Tt);
cannam@95 374 Tu = VSUB(Ts, Tt);
cannam@95 375 Tdf = VADD(Tdd, Tde);
cannam@95 376 TdN = VSUB(Tdd, Tde);
cannam@95 377 Tf5 = VFMA(LDK(KP707106781), Tf4, Tf1);
cannam@95 378 Tgx = VFNMS(LDK(KP707106781), Tf4, Tf1);
cannam@95 379 Tfg = VFMA(LDK(KP707106781), Tff, Tfe);
cannam@95 380 TgA = VFNMS(LDK(KP707106781), Tff, Tfe);
cannam@95 381 T7J = VFMA(LDK(KP923879532), T7I, T7H);
cannam@95 382 T9b = VFNMS(LDK(KP923879532), T7I, T7H);
cannam@95 383 T4E = VFMA(LDK(KP923879532), T4D, T4A);
cannam@95 384 T64 = VFNMS(LDK(KP923879532), T4D, T4A);
cannam@95 385 T7U = VFNMS(LDK(KP923879532), T7T, T7S);
cannam@95 386 T9e = VFMA(LDK(KP923879532), T7T, T7S);
cannam@95 387 T3V = VFMA(LDK(KP923879532), T3U, T3F);
cannam@95 388 T61 = VFNMS(LDK(KP923879532), T3U, T3F);
cannam@95 389 TE = LD(&(xi[WS(is, 100)]), ivs, &(xi[0]));
cannam@95 390 }
cannam@95 391 }
cannam@95 392 TJ = LD(&(xi[WS(is, 124)]), ivs, &(xi[0]));
cannam@95 393 TK = LD(&(xi[WS(is, 60)]), ivs, &(xi[0]));
cannam@95 394 TU = LD(&(xi[WS(is, 92)]), ivs, &(xi[0]));
cannam@95 395 TV = LD(&(xi[WS(is, 28)]), ivs, &(xi[0]));
cannam@95 396 {
cannam@95 397 V Tal, Tam, Tv, Tw, Taf;
cannam@95 398 Tv = LD(&(xi[WS(is, 20)]), ivs, &(xi[0]));
cannam@95 399 Tw = LD(&(xi[WS(is, 84)]), ivs, &(xi[0]));
cannam@95 400 Taf = VADD(TD, TE);
cannam@95 401 TF = VSUB(TD, TE);
cannam@95 402 Ty = LD(&(xi[WS(is, 116)]), ivs, &(xi[0]));
cannam@95 403 TL = VSUB(TJ, TK);
cannam@95 404 Tal = VADD(TJ, TK);
cannam@95 405 TW = VSUB(TU, TV);
cannam@95 406 Tam = VADD(TV, TU);
cannam@95 407 Tah = VADD(Tv, Tw);
cannam@95 408 Tx = VSUB(Tv, Tw);
cannam@95 409 Tag = VADD(Tae, Taf);
cannam@95 410 Tee = VSUB(Tae, Taf);
cannam@95 411 Tz = LD(&(xi[WS(is, 52)]), ivs, &(xi[0]));
cannam@95 412 TM = LD(&(xi[WS(is, 12)]), ivs, &(xi[0]));
cannam@95 413 TN = LD(&(xi[WS(is, 76)]), ivs, &(xi[0]));
cannam@95 414 Teh = VSUB(Tal, Tam);
cannam@95 415 Tan = VADD(Tal, Tam);
cannam@95 416 TP = LD(&(xi[WS(is, 108)]), ivs, &(xi[0]));
cannam@95 417 TQ = LD(&(xi[WS(is, 44)]), ivs, &(xi[0]));
cannam@95 418 }
cannam@95 419 }
cannam@95 420 }
cannam@95 421 }
cannam@95 422 {
cannam@95 423 V Tev, TeA, Tdm, TaP, Tew, TaV, T1U, T29, T7f, T1N, T28, T7i, Tex, TaS, T21;
cannam@95 424 V T2a;
cannam@95 425 {
cannam@95 426 V Tem, Ter, Ten, TaD, T1j, T1y, TaA, Tdp, T1c, T78, T7b, T1x, TaG, Teo, T1z;
cannam@95 427 V T1q;
cannam@95 428 {
cannam@95 429 V T14, T1v, Taw, Taz, T1b, T1w, T1n, T1o, T1m, TaE, TaF, T1p;
cannam@95 430 {
cannam@95 431 V Tau, Tav, T15, T16, T18, T19;
cannam@95 432 {
cannam@95 433 V T12, Tai, TA, Tao, TO, T13;
cannam@95 434 T12 = LD(&(xi[WS(is, 2)]), ivs, &(xi[0]));
cannam@95 435 Tai = VADD(Ty, Tz);
cannam@95 436 TA = VSUB(Ty, Tz);
cannam@95 437 Tao = VADD(TM, TN);
cannam@95 438 TO = VSUB(TM, TN);
cannam@95 439 T13 = LD(&(xi[WS(is, 66)]), ivs, &(xi[0]));
cannam@95 440 {
cannam@95 441 V T1t, Tap, TR, Taj, Tef, TG, TB, T1u;
cannam@95 442 T1t = LD(&(xi[WS(is, 34)]), ivs, &(xi[0]));
cannam@95 443 Tap = VADD(TP, TQ);
cannam@95 444 TR = VSUB(TP, TQ);
cannam@95 445 Taj = VADD(Tah, Tai);
cannam@95 446 Tef = VSUB(Tah, Tai);
cannam@95 447 TG = VSUB(Tx, TA);
cannam@95 448 TB = VADD(Tx, TA);
cannam@95 449 Tau = VADD(T12, T13);
cannam@95 450 T14 = VSUB(T12, T13);
cannam@95 451 T1u = LD(&(xi[WS(is, 98)]), ivs, &(xi[0]));
cannam@95 452 {
cannam@95 453 V Taq, Tei, TX, TS, Tak;
cannam@95 454 Taq = VADD(Tao, Tap);
cannam@95 455 Tei = VSUB(Tap, Tao);
cannam@95 456 TX = VSUB(TR, TO);
cannam@95 457 TS = VADD(TO, TR);
cannam@95 458 Tak = VSUB(Tag, Taj);
cannam@95 459 Td2 = VADD(Tag, Taj);
cannam@95 460 {
cannam@95 461 V Teg, Tfs, T71, TH;
cannam@95 462 Teg = VFNMS(LDK(KP414213562), Tef, Tee);
cannam@95 463 Tfs = VFMA(LDK(KP414213562), Tee, Tef);
cannam@95 464 T71 = VFNMS(LDK(KP707106781), TG, TF);
cannam@95 465 TH = VFMA(LDK(KP707106781), TG, TF);
cannam@95 466 {
cannam@95 467 V T70, TC, Tar, Tej, Tfr;
cannam@95 468 T70 = VFNMS(LDK(KP707106781), TB, Tu);
cannam@95 469 TC = VFMA(LDK(KP707106781), TB, Tu);
cannam@95 470 Tar = VSUB(Tan, Taq);
cannam@95 471 Td3 = VADD(Tan, Taq);
cannam@95 472 Tej = VFNMS(LDK(KP414213562), Tei, Teh);
cannam@95 473 Tfr = VFMA(LDK(KP414213562), Teh, Tei);
cannam@95 474 {
cannam@95 475 V T74, TY, T73, TT;
cannam@95 476 T74 = VFNMS(LDK(KP707106781), TX, TW);
cannam@95 477 TY = VFMA(LDK(KP707106781), TX, TW);
cannam@95 478 T73 = VFNMS(LDK(KP707106781), TS, TL);
cannam@95 479 TT = VFMA(LDK(KP707106781), TS, TL);
cannam@95 480 T85 = VFNMS(LDK(KP668178637), T70, T71);
cannam@95 481 T72 = VFMA(LDK(KP668178637), T71, T70);
cannam@95 482 T4V = VFMA(LDK(KP198912367), TC, TH);
cannam@95 483 TI = VFNMS(LDK(KP198912367), TH, TC);
cannam@95 484 Tcd = VSUB(Tar, Tak);
cannam@95 485 Tas = VADD(Tak, Tar);
cannam@95 486 TgH = VSUB(Tej, Teg);
cannam@95 487 Tek = VADD(Teg, Tej);
cannam@95 488 Tgg = VADD(Tfs, Tfr);
cannam@95 489 Tft = VSUB(Tfr, Tfs);
cannam@95 490 T86 = VFNMS(LDK(KP668178637), T73, T74);
cannam@95 491 T75 = VFMA(LDK(KP668178637), T74, T73);
cannam@95 492 T4W = VFMA(LDK(KP198912367), TT, TY);
cannam@95 493 TZ = VFNMS(LDK(KP198912367), TY, TT);
cannam@95 494 Tav = VADD(T1t, T1u);
cannam@95 495 T1v = VSUB(T1t, T1u);
cannam@95 496 }
cannam@95 497 }
cannam@95 498 }
cannam@95 499 }
cannam@95 500 }
cannam@95 501 }
cannam@95 502 T15 = LD(&(xi[WS(is, 18)]), ivs, &(xi[0]));
cannam@95 503 T16 = LD(&(xi[WS(is, 82)]), ivs, &(xi[0]));
cannam@95 504 T18 = LD(&(xi[WS(is, 114)]), ivs, &(xi[0]));
cannam@95 505 T19 = LD(&(xi[WS(is, 50)]), ivs, &(xi[0]));
cannam@95 506 {
cannam@95 507 V T1d, T1e, T1g, T1h, Tax, T17, Tay, T1a;
cannam@95 508 T1d = LD(&(xi[WS(is, 10)]), ivs, &(xi[0]));
cannam@95 509 Taw = VADD(Tau, Tav);
cannam@95 510 Tem = VSUB(Tau, Tav);
cannam@95 511 T1e = LD(&(xi[WS(is, 74)]), ivs, &(xi[0]));
cannam@95 512 T1g = LD(&(xi[WS(is, 42)]), ivs, &(xi[0]));
cannam@95 513 T1h = LD(&(xi[WS(is, 106)]), ivs, &(xi[0]));
cannam@95 514 Tax = VADD(T15, T16);
cannam@95 515 T17 = VSUB(T15, T16);
cannam@95 516 Tay = VADD(T18, T19);
cannam@95 517 T1a = VSUB(T18, T19);
cannam@95 518 {
cannam@95 519 V T1k, T1f, TaB, T1i, TaC, T1l;
cannam@95 520 T1k = LD(&(xi[WS(is, 122)]), ivs, &(xi[0]));
cannam@95 521 T1f = VSUB(T1d, T1e);
cannam@95 522 TaB = VADD(T1d, T1e);
cannam@95 523 T1i = VSUB(T1g, T1h);
cannam@95 524 TaC = VADD(T1g, T1h);
cannam@95 525 T1l = LD(&(xi[WS(is, 58)]), ivs, &(xi[0]));
cannam@95 526 Taz = VADD(Tax, Tay);
cannam@95 527 Ter = VSUB(Tax, Tay);
cannam@95 528 T1b = VADD(T17, T1a);
cannam@95 529 T1w = VSUB(T17, T1a);
cannam@95 530 T1n = LD(&(xi[WS(is, 26)]), ivs, &(xi[0]));
cannam@95 531 T1o = LD(&(xi[WS(is, 90)]), ivs, &(xi[0]));
cannam@95 532 Ten = VSUB(TaB, TaC);
cannam@95 533 TaD = VADD(TaB, TaC);
cannam@95 534 T1j = VFNMS(LDK(KP414213562), T1i, T1f);
cannam@95 535 T1y = VFMA(LDK(KP414213562), T1f, T1i);
cannam@95 536 T1m = VSUB(T1k, T1l);
cannam@95 537 TaE = VADD(T1k, T1l);
cannam@95 538 }
cannam@95 539 }
cannam@95 540 }
cannam@95 541 TaA = VSUB(Taw, Taz);
cannam@95 542 Tdp = VADD(Taw, Taz);
cannam@95 543 TaF = VADD(T1n, T1o);
cannam@95 544 T1p = VSUB(T1n, T1o);
cannam@95 545 T1c = VFMA(LDK(KP707106781), T1b, T14);
cannam@95 546 T78 = VFNMS(LDK(KP707106781), T1b, T14);
cannam@95 547 T7b = VFNMS(LDK(KP707106781), T1w, T1v);
cannam@95 548 T1x = VFMA(LDK(KP707106781), T1w, T1v);
cannam@95 549 TaG = VADD(TaE, TaF);
cannam@95 550 Teo = VSUB(TaE, TaF);
cannam@95 551 T1z = VFNMS(LDK(KP414213562), T1m, T1p);
cannam@95 552 T1q = VFMA(LDK(KP414213562), T1p, T1m);
cannam@95 553 }
cannam@95 554 {
cannam@95 555 V T1F, T26, T1Q, TaT, TaL, TaO, T27, T1M, T1Y, T1Z, TaU, T1T, TaQ, T1X, T20;
cannam@95 556 V TaR;
cannam@95 557 {
cannam@95 558 V T24, TaJ, T25, T1G, T1H, T1J, T1K, T1D, T1E;
cannam@95 559 T1D = LD(&(xi[WS(is, 126)]), ivs, &(xi[0]));
cannam@95 560 T1E = LD(&(xi[WS(is, 62)]), ivs, &(xi[0]));
cannam@95 561 T24 = LD(&(xi[WS(is, 94)]), ivs, &(xi[0]));
cannam@95 562 {
cannam@95 563 V TaH, Tdq, Tes, Tep;
cannam@95 564 TaH = VSUB(TaD, TaG);
cannam@95 565 Tdq = VADD(TaD, TaG);
cannam@95 566 Tes = VSUB(Ten, Teo);
cannam@95 567 Tep = VADD(Ten, Teo);
cannam@95 568 {
cannam@95 569 V T79, T1A, T7c, T1r;
cannam@95 570 T79 = VSUB(T1y, T1z);
cannam@95 571 T1A = VADD(T1y, T1z);
cannam@95 572 T7c = VSUB(T1j, T1q);
cannam@95 573 T1r = VADD(T1j, T1q);
cannam@95 574 TaJ = VADD(T1D, T1E);
cannam@95 575 T1F = VSUB(T1D, T1E);
cannam@95 576 TaI = VFNMS(LDK(KP414213562), TaH, TaA);
cannam@95 577 Tcg = VFMA(LDK(KP414213562), TaA, TaH);
cannam@95 578 Tdr = VADD(Tdp, Tdq);
cannam@95 579 TdG = VSUB(Tdp, Tdq);
cannam@95 580 Tgi = VFNMS(LDK(KP707106781), Tes, Ter);
cannam@95 581 Tet = VFMA(LDK(KP707106781), Tes, Ter);
cannam@95 582 Tgj = VFNMS(LDK(KP707106781), Tep, Tem);
cannam@95 583 Teq = VFMA(LDK(KP707106781), Tep, Tem);
cannam@95 584 T8X = VFNMS(LDK(KP923879532), T79, T78);
cannam@95 585 T7a = VFMA(LDK(KP923879532), T79, T78);
cannam@95 586 T5M = VFNMS(LDK(KP923879532), T1A, T1x);
cannam@95 587 T1B = VFMA(LDK(KP923879532), T1A, T1x);
cannam@95 588 T8W = VFMA(LDK(KP923879532), T7c, T7b);
cannam@95 589 T7d = VFNMS(LDK(KP923879532), T7c, T7b);
cannam@95 590 T5N = VFNMS(LDK(KP923879532), T1r, T1c);
cannam@95 591 T1s = VFMA(LDK(KP923879532), T1r, T1c);
cannam@95 592 T25 = LD(&(xi[WS(is, 30)]), ivs, &(xi[0]));
cannam@95 593 }
cannam@95 594 }
cannam@95 595 T1G = LD(&(xi[WS(is, 14)]), ivs, &(xi[0]));
cannam@95 596 T1H = LD(&(xi[WS(is, 78)]), ivs, &(xi[0]));
cannam@95 597 T1J = LD(&(xi[WS(is, 110)]), ivs, &(xi[0]));
cannam@95 598 T1K = LD(&(xi[WS(is, 46)]), ivs, &(xi[0]));
cannam@95 599 {
cannam@95 600 V T1R, T1I, TaM, T1L, TaN, T1S, T1O, T1P, TaK, T1V, T1W;
cannam@95 601 T1O = LD(&(xi[WS(is, 6)]), ivs, &(xi[0]));
cannam@95 602 T1P = LD(&(xi[WS(is, 70)]), ivs, &(xi[0]));
cannam@95 603 T26 = VSUB(T24, T25);
cannam@95 604 TaK = VADD(T25, T24);
cannam@95 605 T1R = LD(&(xi[WS(is, 102)]), ivs, &(xi[0]));
cannam@95 606 T1I = VSUB(T1G, T1H);
cannam@95 607 TaM = VADD(T1G, T1H);
cannam@95 608 T1L = VSUB(T1J, T1K);
cannam@95 609 TaN = VADD(T1J, T1K);
cannam@95 610 T1Q = VSUB(T1O, T1P);
cannam@95 611 TaT = VADD(T1O, T1P);
cannam@95 612 Tev = VSUB(TaJ, TaK);
cannam@95 613 TaL = VADD(TaJ, TaK);
cannam@95 614 T1S = LD(&(xi[WS(is, 38)]), ivs, &(xi[0]));
cannam@95 615 T1V = LD(&(xi[WS(is, 118)]), ivs, &(xi[0]));
cannam@95 616 T1W = LD(&(xi[WS(is, 54)]), ivs, &(xi[0]));
cannam@95 617 TeA = VSUB(TaN, TaM);
cannam@95 618 TaO = VADD(TaM, TaN);
cannam@95 619 T27 = VSUB(T1L, T1I);
cannam@95 620 T1M = VADD(T1I, T1L);
cannam@95 621 T1Y = LD(&(xi[WS(is, 86)]), ivs, &(xi[0]));
cannam@95 622 T1Z = LD(&(xi[WS(is, 22)]), ivs, &(xi[0]));
cannam@95 623 TaU = VADD(T1S, T1R);
cannam@95 624 T1T = VSUB(T1R, T1S);
cannam@95 625 TaQ = VADD(T1V, T1W);
cannam@95 626 T1X = VSUB(T1V, T1W);
cannam@95 627 }
cannam@95 628 }
cannam@95 629 Tdm = VADD(TaL, TaO);
cannam@95 630 TaP = VSUB(TaL, TaO);
cannam@95 631 T20 = VSUB(T1Y, T1Z);
cannam@95 632 TaR = VADD(T1Z, T1Y);
cannam@95 633 Tew = VSUB(TaT, TaU);
cannam@95 634 TaV = VADD(TaT, TaU);
cannam@95 635 T1U = VFMA(LDK(KP414213562), T1T, T1Q);
cannam@95 636 T29 = VFNMS(LDK(KP414213562), T1Q, T1T);
cannam@95 637 T7f = VFNMS(LDK(KP707106781), T1M, T1F);
cannam@95 638 T1N = VFMA(LDK(KP707106781), T1M, T1F);
cannam@95 639 T28 = VFMA(LDK(KP707106781), T27, T26);
cannam@95 640 T7i = VFNMS(LDK(KP707106781), T27, T26);
cannam@95 641 Tex = VSUB(TaQ, TaR);
cannam@95 642 TaS = VADD(TaQ, TaR);
cannam@95 643 T21 = VFNMS(LDK(KP414213562), T20, T1X);
cannam@95 644 T2a = VFMA(LDK(KP414213562), T1X, T20);
cannam@95 645 }
cannam@95 646 }
cannam@95 647 {
cannam@95 648 V T2J, T2U, T30, T3b, TeL, Tb9, TeO, Tbg, T2M, Tba, T2P, Tbb, T34, Tbh, T33;
cannam@95 649 V T35;
cannam@95 650 {
cannam@95 651 V T2H, T2I, T2S, T2T, T2Y, T2Z, T39, T3a;
cannam@95 652 T2H = LD(&(xi[WS(is, 5)]), ivs, &(xi[WS(is, 1)]));
cannam@95 653 {
cannam@95 654 V Tdn, TaW, Tey, TeB;
cannam@95 655 Tdn = VADD(TaV, TaS);
cannam@95 656 TaW = VSUB(TaS, TaV);
cannam@95 657 Tey = VADD(Tew, Tex);
cannam@95 658 TeB = VSUB(Tex, Tew);
cannam@95 659 {
cannam@95 660 V T2b, T7g, T22, T7j;
cannam@95 661 T2b = VADD(T29, T2a);
cannam@95 662 T7g = VSUB(T2a, T29);
cannam@95 663 T22 = VADD(T1U, T21);
cannam@95 664 T7j = VSUB(T21, T1U);
cannam@95 665 TaX = VFNMS(LDK(KP414213562), TaW, TaP);
cannam@95 666 Tcf = VFMA(LDK(KP414213562), TaP, TaW);
cannam@95 667 Tdo = VADD(Tdm, Tdn);
cannam@95 668 TdH = VSUB(Tdm, Tdn);
cannam@95 669 Tgl = VFNMS(LDK(KP707106781), TeB, TeA);
cannam@95 670 TeC = VFMA(LDK(KP707106781), TeB, TeA);
cannam@95 671 Tgm = VFNMS(LDK(KP707106781), Tey, Tev);
cannam@95 672 Tez = VFMA(LDK(KP707106781), Tey, Tev);
cannam@95 673 T90 = VFNMS(LDK(KP923879532), T7g, T7f);
cannam@95 674 T7h = VFMA(LDK(KP923879532), T7g, T7f);
cannam@95 675 T5P = VFNMS(LDK(KP923879532), T2b, T28);
cannam@95 676 T2c = VFMA(LDK(KP923879532), T2b, T28);
cannam@95 677 T8Z = VFMA(LDK(KP923879532), T7j, T7i);
cannam@95 678 T7k = VFNMS(LDK(KP923879532), T7j, T7i);
cannam@95 679 T5Q = VFNMS(LDK(KP923879532), T22, T1N);
cannam@95 680 T23 = VFMA(LDK(KP923879532), T22, T1N);
cannam@95 681 T2I = LD(&(xi[WS(is, 69)]), ivs, &(xi[WS(is, 1)]));
cannam@95 682 }
cannam@95 683 }
cannam@95 684 T2S = LD(&(xi[WS(is, 37)]), ivs, &(xi[WS(is, 1)]));
cannam@95 685 T2T = LD(&(xi[WS(is, 101)]), ivs, &(xi[WS(is, 1)]));
cannam@95 686 T2Y = LD(&(xi[WS(is, 125)]), ivs, &(xi[WS(is, 1)]));
cannam@95 687 T2Z = LD(&(xi[WS(is, 61)]), ivs, &(xi[WS(is, 1)]));
cannam@95 688 T39 = LD(&(xi[WS(is, 29)]), ivs, &(xi[WS(is, 1)]));
cannam@95 689 T3a = LD(&(xi[WS(is, 93)]), ivs, &(xi[WS(is, 1)]));
cannam@95 690 {
cannam@95 691 V T2K, Tbe, Tbf, T2L, T2N, T2O, Tb7, Tb8, T31, T32;
cannam@95 692 T2K = LD(&(xi[WS(is, 21)]), ivs, &(xi[WS(is, 1)]));
cannam@95 693 T2J = VSUB(T2H, T2I);
cannam@95 694 Tb7 = VADD(T2H, T2I);
cannam@95 695 T2U = VSUB(T2S, T2T);
cannam@95 696 Tb8 = VADD(T2S, T2T);
cannam@95 697 T30 = VSUB(T2Y, T2Z);
cannam@95 698 Tbe = VADD(T2Y, T2Z);
cannam@95 699 T3b = VSUB(T39, T3a);
cannam@95 700 Tbf = VADD(T39, T3a);
cannam@95 701 T2L = LD(&(xi[WS(is, 85)]), ivs, &(xi[WS(is, 1)]));
cannam@95 702 T2N = LD(&(xi[WS(is, 117)]), ivs, &(xi[WS(is, 1)]));
cannam@95 703 T2O = LD(&(xi[WS(is, 53)]), ivs, &(xi[WS(is, 1)]));
cannam@95 704 TeL = VSUB(Tb7, Tb8);
cannam@95 705 Tb9 = VADD(Tb7, Tb8);
cannam@95 706 T31 = LD(&(xi[WS(is, 13)]), ivs, &(xi[WS(is, 1)]));
cannam@95 707 T32 = LD(&(xi[WS(is, 77)]), ivs, &(xi[WS(is, 1)]));
cannam@95 708 TeO = VSUB(Tbe, Tbf);
cannam@95 709 Tbg = VADD(Tbe, Tbf);
cannam@95 710 T2M = VSUB(T2K, T2L);
cannam@95 711 Tba = VADD(T2K, T2L);
cannam@95 712 T2P = VSUB(T2N, T2O);
cannam@95 713 Tbb = VADD(T2N, T2O);
cannam@95 714 T34 = LD(&(xi[WS(is, 109)]), ivs, &(xi[WS(is, 1)]));
cannam@95 715 Tbh = VADD(T31, T32);
cannam@95 716 T33 = VSUB(T31, T32);
cannam@95 717 T35 = LD(&(xi[WS(is, 45)]), ivs, &(xi[WS(is, 1)]));
cannam@95 718 }
cannam@95 719 }
cannam@95 720 {
cannam@95 721 V T4d, T4e, T4o, T4p;
cannam@95 722 {
cannam@95 723 V T2X, T3q, T7t, T7C, T3r, T3e, T7D, T7w;
cannam@95 724 {
cannam@95 725 V T47, TbE, Tbd, Td9, TeW, TeN, T7s, T2W, T7r, T2R, TeP, Tbj, T37, T3c, T48;
cannam@95 726 {
cannam@95 727 V T3W, T3X, TeM, Tbc, T2Q, T2V, Tbi, T36;
cannam@95 728 T3W = LD(&(xi[WS(is, 3)]), ivs, &(xi[WS(is, 1)]));
cannam@95 729 T3X = LD(&(xi[WS(is, 67)]), ivs, &(xi[WS(is, 1)]));
cannam@95 730 TeM = VSUB(Tba, Tbb);
cannam@95 731 Tbc = VADD(Tba, Tbb);
cannam@95 732 T2Q = VADD(T2M, T2P);
cannam@95 733 T2V = VSUB(T2M, T2P);
cannam@95 734 T47 = LD(&(xi[WS(is, 99)]), ivs, &(xi[WS(is, 1)]));
cannam@95 735 Tbi = VADD(T34, T35);
cannam@95 736 T36 = VSUB(T34, T35);
cannam@95 737 TbE = VADD(T3W, T3X);
cannam@95 738 T3Y = VSUB(T3W, T3X);
cannam@95 739 Tbd = VSUB(Tb9, Tbc);
cannam@95 740 Td9 = VADD(Tb9, Tbc);
cannam@95 741 TeW = VFMA(LDK(KP414213562), TeL, TeM);
cannam@95 742 TeN = VFNMS(LDK(KP414213562), TeM, TeL);
cannam@95 743 T7s = VFNMS(LDK(KP707106781), T2V, T2U);
cannam@95 744 T2W = VFMA(LDK(KP707106781), T2V, T2U);
cannam@95 745 T7r = VFNMS(LDK(KP707106781), T2Q, T2J);
cannam@95 746 T2R = VFMA(LDK(KP707106781), T2Q, T2J);
cannam@95 747 TeP = VSUB(Tbh, Tbi);
cannam@95 748 Tbj = VADD(Tbh, Tbi);
cannam@95 749 T37 = VADD(T33, T36);
cannam@95 750 T3c = VSUB(T33, T36);
cannam@95 751 T48 = LD(&(xi[WS(is, 35)]), ivs, &(xi[WS(is, 1)]));
cannam@95 752 }
cannam@95 753 T2X = VFNMS(LDK(KP198912367), T2W, T2R);
cannam@95 754 T3q = VFMA(LDK(KP198912367), T2R, T2W);
cannam@95 755 T7t = VFMA(LDK(KP668178637), T7s, T7r);
cannam@95 756 T7C = VFNMS(LDK(KP668178637), T7r, T7s);
cannam@95 757 {
cannam@95 758 V Tbk, Tda, TeX, TeQ;
cannam@95 759 Tbk = VSUB(Tbg, Tbj);
cannam@95 760 Tda = VADD(Tbg, Tbj);
cannam@95 761 TeX = VFNMS(LDK(KP414213562), TeO, TeP);
cannam@95 762 TeQ = VFMA(LDK(KP414213562), TeP, TeO);
cannam@95 763 {
cannam@95 764 V T7v, T3d, T7u, T38, TbF;
cannam@95 765 T7v = VFNMS(LDK(KP707106781), T3c, T3b);
cannam@95 766 T3d = VFMA(LDK(KP707106781), T3c, T3b);
cannam@95 767 T7u = VFNMS(LDK(KP707106781), T37, T30);
cannam@95 768 T38 = VFMA(LDK(KP707106781), T37, T30);
cannam@95 769 T49 = VSUB(T47, T48);
cannam@95 770 TbF = VADD(T48, T47);
cannam@95 771 TdL = VSUB(Td9, Tda);
cannam@95 772 Tdb = VADD(Td9, Tda);
cannam@95 773 Tbu = VSUB(Tbd, Tbk);
cannam@95 774 Tbl = VADD(Tbd, Tbk);
cannam@95 775 Tgu = VSUB(TeN, TeQ);
cannam@95 776 TeR = VADD(TeN, TeQ);
cannam@95 777 Tgr = VSUB(TeW, TeX);
cannam@95 778 TeY = VADD(TeW, TeX);
cannam@95 779 T3r = VFNMS(LDK(KP198912367), T38, T3d);
cannam@95 780 T3e = VFMA(LDK(KP198912367), T3d, T38);
cannam@95 781 T7D = VFMA(LDK(KP668178637), T7u, T7v);
cannam@95 782 T7w = VFNMS(LDK(KP668178637), T7v, T7u);
cannam@95 783 Tf6 = VSUB(TbE, TbF);
cannam@95 784 TbG = VADD(TbE, TbF);
cannam@95 785 }
cannam@95 786 }
cannam@95 787 }
cannam@95 788 T4d = LD(&(xi[WS(is, 123)]), ivs, &(xi[WS(is, 1)]));
cannam@95 789 T5V = VSUB(T3q, T3r);
cannam@95 790 T3s = VADD(T3q, T3r);
cannam@95 791 T5Y = VSUB(T2X, T3e);
cannam@95 792 T3f = VADD(T2X, T3e);
cannam@95 793 T95 = VSUB(T7D, T7C);
cannam@95 794 T7E = VADD(T7C, T7D);
cannam@95 795 T98 = VSUB(T7t, T7w);
cannam@95 796 T7x = VADD(T7t, T7w);
cannam@95 797 T4e = LD(&(xi[WS(is, 59)]), ivs, &(xi[WS(is, 1)]));
cannam@95 798 T4o = LD(&(xi[WS(is, 91)]), ivs, &(xi[WS(is, 1)]));
cannam@95 799 T4p = LD(&(xi[WS(is, 27)]), ivs, &(xi[WS(is, 1)]));
cannam@95 800 }
cannam@95 801 {
cannam@95 802 V T3Z, T40, T42, T43, TbL, TbM;
cannam@95 803 T3Z = LD(&(xi[WS(is, 19)]), ivs, &(xi[WS(is, 1)]));
cannam@95 804 T40 = LD(&(xi[WS(is, 83)]), ivs, &(xi[WS(is, 1)]));
cannam@95 805 T42 = LD(&(xi[WS(is, 115)]), ivs, &(xi[WS(is, 1)]));
cannam@95 806 T43 = LD(&(xi[WS(is, 51)]), ivs, &(xi[WS(is, 1)]));
cannam@95 807 T4g = LD(&(xi[WS(is, 11)]), ivs, &(xi[WS(is, 1)]));
cannam@95 808 T4f = VSUB(T4d, T4e);
cannam@95 809 TbL = VADD(T4d, T4e);
cannam@95 810 T4q = VSUB(T4o, T4p);
cannam@95 811 TbM = VADD(T4p, T4o);
cannam@95 812 TbH = VADD(T3Z, T40);
cannam@95 813 T41 = VSUB(T3Z, T40);
cannam@95 814 TbI = VADD(T42, T43);
cannam@95 815 T44 = VSUB(T42, T43);
cannam@95 816 T4h = LD(&(xi[WS(is, 75)]), ivs, &(xi[WS(is, 1)]));
cannam@95 817 T4j = LD(&(xi[WS(is, 107)]), ivs, &(xi[WS(is, 1)]));
cannam@95 818 T4k = LD(&(xi[WS(is, 43)]), ivs, &(xi[WS(is, 1)]));
cannam@95 819 Tf9 = VSUB(TbL, TbM);
cannam@95 820 TbN = VADD(TbL, TbM);
cannam@95 821 }
cannam@95 822 }
cannam@95 823 }
cannam@95 824 }
cannam@95 825 }
cannam@95 826 {
cannam@95 827 V TgB, Tgy, T62, T4H, T65, T4u, T9c, T7X, T9f, T7Q, Tg0, Tga, TfF, TeF, TfT;
cannam@95 828 V TfU, TfP, Tg7, TfI, Tfy, TfA, Tf0, Tfz, Tfl, Tg2, TfS;
cannam@95 829 {
cannam@95 830 V Tc1, TbS, Tfc, Tfj, TdX, Te5, TdZ, TdR, Te7, Te3, TdU, Te4;
cannam@95 831 {
cannam@95 832 V TdF, TdS, Tdx, Td5, TdO, TdE, TdC, Tdt, Tdk;
cannam@95 833 {
cannam@95 834 V Tdc, TdA, T4F, T4c, T7V, T7M, T4G, T4t, T7W, T7P, TdB, Tdj;
cannam@95 835 {
cannam@95 836 V Td1, Tdg, TbK, Tf8, Tfh, T4b, T7L, T46, T7K, TbQ, Tfa, T4r, T4m, Td4;
cannam@95 837 TdF = VSUB(TcZ, Td0);
cannam@95 838 Td1 = VADD(TcZ, Td0);
cannam@95 839 {
cannam@95 840 V TbJ, Tf7, T4a, T45;
cannam@95 841 TbJ = VADD(TbH, TbI);
cannam@95 842 Tf7 = VSUB(TbI, TbH);
cannam@95 843 T4a = VSUB(T44, T41);
cannam@95 844 T45 = VADD(T41, T44);
cannam@95 845 {
cannam@95 846 V TbO, T4i, TbP, T4l;
cannam@95 847 TbO = VADD(T4g, T4h);
cannam@95 848 T4i = VSUB(T4g, T4h);
cannam@95 849 TbP = VADD(T4j, T4k);
cannam@95 850 T4l = VSUB(T4j, T4k);
cannam@95 851 Tdg = VADD(TbG, TbJ);
cannam@95 852 TbK = VSUB(TbG, TbJ);
cannam@95 853 Tf8 = VFMA(LDK(KP414213562), Tf7, Tf6);
cannam@95 854 Tfh = VFNMS(LDK(KP414213562), Tf6, Tf7);
cannam@95 855 T4b = VFMA(LDK(KP707106781), T4a, T49);
cannam@95 856 T7L = VFNMS(LDK(KP707106781), T4a, T49);
cannam@95 857 T46 = VFMA(LDK(KP707106781), T45, T3Y);
cannam@95 858 T7K = VFNMS(LDK(KP707106781), T45, T3Y);
cannam@95 859 TbQ = VADD(TbO, TbP);
cannam@95 860 Tfa = VSUB(TbP, TbO);
cannam@95 861 T4r = VSUB(T4l, T4i);
cannam@95 862 T4m = VADD(T4i, T4l);
cannam@95 863 Td4 = VADD(Td2, Td3);
cannam@95 864 TdS = VSUB(Td3, Td2);
cannam@95 865 }
cannam@95 866 }
cannam@95 867 Tdc = VSUB(Td8, Tdb);
cannam@95 868 TdA = VADD(Td8, Tdb);
cannam@95 869 T4F = VFNMS(LDK(KP198912367), T46, T4b);
cannam@95 870 T4c = VFMA(LDK(KP198912367), T4b, T46);
cannam@95 871 T7V = VFMA(LDK(KP668178637), T7K, T7L);
cannam@95 872 T7M = VFNMS(LDK(KP668178637), T7L, T7K);
cannam@95 873 {
cannam@95 874 V Tdh, TbR, Tfb, Tfi;
cannam@95 875 Tdh = VADD(TbN, TbQ);
cannam@95 876 TbR = VSUB(TbN, TbQ);
cannam@95 877 Tfb = VFNMS(LDK(KP414213562), Tfa, Tf9);
cannam@95 878 Tfi = VFMA(LDK(KP414213562), Tf9, Tfa);
cannam@95 879 {
cannam@95 880 V T4s, T7O, T4n, T7N, Tdi;
cannam@95 881 T4s = VFMA(LDK(KP707106781), T4r, T4q);
cannam@95 882 T7O = VFNMS(LDK(KP707106781), T4r, T4q);
cannam@95 883 T4n = VFMA(LDK(KP707106781), T4m, T4f);
cannam@95 884 T7N = VFNMS(LDK(KP707106781), T4m, T4f);
cannam@95 885 Tdx = VADD(Td1, Td4);
cannam@95 886 Td5 = VSUB(Td1, Td4);
cannam@95 887 TdO = VSUB(Tdh, Tdg);
cannam@95 888 Tdi = VADD(Tdg, Tdh);
cannam@95 889 Tc1 = VSUB(TbR, TbK);
cannam@95 890 TbS = VADD(TbK, TbR);
cannam@95 891 TgB = VSUB(Tfb, Tf8);
cannam@95 892 Tfc = VADD(Tf8, Tfb);
cannam@95 893 Tgy = VSUB(Tfi, Tfh);
cannam@95 894 Tfj = VADD(Tfh, Tfi);
cannam@95 895 T4G = VFMA(LDK(KP198912367), T4n, T4s);
cannam@95 896 T4t = VFNMS(LDK(KP198912367), T4s, T4n);
cannam@95 897 T7W = VFNMS(LDK(KP668178637), T7N, T7O);
cannam@95 898 T7P = VFMA(LDK(KP668178637), T7O, T7N);
cannam@95 899 TdB = VADD(Tdf, Tdi);
cannam@95 900 Tdj = VSUB(Tdf, Tdi);
cannam@95 901 }
cannam@95 902 }
cannam@95 903 }
cannam@95 904 T62 = VSUB(T4G, T4F);
cannam@95 905 T4H = VADD(T4F, T4G);
cannam@95 906 T65 = VSUB(T4t, T4c);
cannam@95 907 T4u = VADD(T4c, T4t);
cannam@95 908 T9c = VSUB(T7V, T7W);
cannam@95 909 T7X = VADD(T7V, T7W);
cannam@95 910 T9f = VSUB(T7P, T7M);
cannam@95 911 T7Q = VADD(T7M, T7P);
cannam@95 912 TdE = VSUB(TdB, TdA);
cannam@95 913 TdC = VADD(TdA, TdB);
cannam@95 914 Tdt = VSUB(Tdj, Tdc);
cannam@95 915 Tdk = VADD(Tdc, Tdj);
cannam@95 916 }
cannam@95 917 {
cannam@95 918 V TdT, Tdl, Tdv, TdJ, Te1, Te2, TdQ, Tdz, TdD, Tdu, Tdw;
cannam@95 919 {
cannam@95 920 V TdI, TdP, TdV, TdW, TdM, Tds, Tdy;
cannam@95 921 TdI = VADD(TdG, TdH);
cannam@95 922 TdT = VSUB(TdH, TdG);
cannam@95 923 TdP = VFNMS(LDK(KP414213562), TdO, TdN);
cannam@95 924 TdV = VFMA(LDK(KP414213562), TdN, TdO);
cannam@95 925 TdW = VFMA(LDK(KP414213562), TdK, TdL);
cannam@95 926 TdM = VFNMS(LDK(KP414213562), TdL, TdK);
cannam@95 927 Tdl = VFNMS(LDK(KP707106781), Tdk, Td5);
cannam@95 928 Tdv = VFMA(LDK(KP707106781), Tdk, Td5);
cannam@95 929 Tds = VSUB(Tdo, Tdr);
cannam@95 930 Tdy = VADD(Tdr, Tdo);
cannam@95 931 TdJ = VFMA(LDK(KP707106781), TdI, TdF);
cannam@95 932 Te1 = VFNMS(LDK(KP707106781), TdI, TdF);
cannam@95 933 TdX = VSUB(TdV, TdW);
cannam@95 934 Te2 = VADD(TdW, TdV);
cannam@95 935 Te5 = VSUB(TdP, TdM);
cannam@95 936 TdQ = VADD(TdM, TdP);
cannam@95 937 Tdz = VADD(Tdx, Tdy);
cannam@95 938 TdD = VSUB(Tdx, Tdy);
cannam@95 939 Tdu = VFNMS(LDK(KP707106781), Tdt, Tds);
cannam@95 940 Tdw = VFMA(LDK(KP707106781), Tdt, Tds);
cannam@95 941 }
cannam@95 942 TdZ = VFMA(LDK(KP923879532), TdQ, TdJ);
cannam@95 943 TdR = VFNMS(LDK(KP923879532), TdQ, TdJ);
cannam@95 944 Te7 = VFMA(LDK(KP923879532), Te2, Te1);
cannam@95 945 Te3 = VFNMS(LDK(KP923879532), Te2, Te1);
cannam@95 946 ST(&(xo[WS(os, 32)]), VFMAI(TdE, TdD), ovs, &(xo[0]));
cannam@95 947 ST(&(xo[WS(os, 96)]), VFNMSI(TdE, TdD), ovs, &(xo[0]));
cannam@95 948 ST(&(xo[0]), VADD(Tdz, TdC), ovs, &(xo[0]));
cannam@95 949 ST(&(xo[WS(os, 64)]), VSUB(Tdz, TdC), ovs, &(xo[0]));
cannam@95 950 ST(&(xo[WS(os, 16)]), VFMAI(Tdw, Tdv), ovs, &(xo[0]));
cannam@95 951 ST(&(xo[WS(os, 112)]), VFNMSI(Tdw, Tdv), ovs, &(xo[0]));
cannam@95 952 ST(&(xo[WS(os, 80)]), VFMAI(Tdu, Tdl), ovs, &(xo[0]));
cannam@95 953 ST(&(xo[WS(os, 48)]), VFNMSI(Tdu, Tdl), ovs, &(xo[0]));
cannam@95 954 TdU = VFMA(LDK(KP707106781), TdT, TdS);
cannam@95 955 Te4 = VFNMS(LDK(KP707106781), TdT, TdS);
cannam@95 956 }
cannam@95 957 }
cannam@95 958 {
cannam@95 959 V Tcx, TcJ, TcI, Tcy, TcA, Tbm, Tcp, TaZ, Tcs, Tci, Tbv, TcB, TcD, TbT, Tc2;
cannam@95 960 V TcE, Tat, TaY;
cannam@95 961 Tcx = VFNMS(LDK(KP707106781), Tas, Tad);
cannam@95 962 Tat = VFMA(LDK(KP707106781), Tas, Tad);
cannam@95 963 TaY = VADD(TaI, TaX);
cannam@95 964 TcJ = VSUB(TaX, TaI);
cannam@95 965 {
cannam@95 966 V Tce, Tch, Te8, Te6, TdY, Te0;
cannam@95 967 TcI = VFNMS(LDK(KP707106781), Tcd, Tcc);
cannam@95 968 Tce = VFMA(LDK(KP707106781), Tcd, Tcc);
cannam@95 969 Tch = VSUB(Tcf, Tcg);
cannam@95 970 Tcy = VADD(Tcg, Tcf);
cannam@95 971 Te8 = VFNMS(LDK(KP923879532), Te5, Te4);
cannam@95 972 Te6 = VFMA(LDK(KP923879532), Te5, Te4);
cannam@95 973 TdY = VFNMS(LDK(KP923879532), TdX, TdU);
cannam@95 974 Te0 = VFMA(LDK(KP923879532), TdX, TdU);
cannam@95 975 TcA = VFNMS(LDK(KP707106781), Tbl, Tb6);
cannam@95 976 Tbm = VFMA(LDK(KP707106781), Tbl, Tb6);
cannam@95 977 Tcp = VFNMS(LDK(KP923879532), TaY, Tat);
cannam@95 978 TaZ = VFMA(LDK(KP923879532), TaY, Tat);
cannam@95 979 Tcs = VFNMS(LDK(KP923879532), Tch, Tce);
cannam@95 980 Tci = VFMA(LDK(KP923879532), Tch, Tce);
cannam@95 981 ST(&(xo[WS(os, 88)]), VFNMSI(Te6, Te3), ovs, &(xo[0]));
cannam@95 982 ST(&(xo[WS(os, 40)]), VFMAI(Te6, Te3), ovs, &(xo[0]));
cannam@95 983 ST(&(xo[WS(os, 104)]), VFMAI(Te8, Te7), ovs, &(xo[0]));
cannam@95 984 ST(&(xo[WS(os, 24)]), VFNMSI(Te8, Te7), ovs, &(xo[0]));
cannam@95 985 ST(&(xo[WS(os, 8)]), VFMAI(Te0, TdZ), ovs, &(xo[0]));
cannam@95 986 ST(&(xo[WS(os, 120)]), VFNMSI(Te0, TdZ), ovs, &(xo[0]));
cannam@95 987 ST(&(xo[WS(os, 72)]), VFMAI(TdY, TdR), ovs, &(xo[0]));
cannam@95 988 ST(&(xo[WS(os, 56)]), VFNMSI(TdY, TdR), ovs, &(xo[0]));
cannam@95 989 Tbv = VFMA(LDK(KP707106781), Tbu, Tbt);
cannam@95 990 TcB = VFNMS(LDK(KP707106781), Tbu, Tbt);
cannam@95 991 TcD = VFNMS(LDK(KP707106781), TbS, TbD);
cannam@95 992 TbT = VFMA(LDK(KP707106781), TbS, TbD);
cannam@95 993 Tc2 = VFMA(LDK(KP707106781), Tc1, Tc0);
cannam@95 994 TcE = VFNMS(LDK(KP707106781), Tc1, Tc0);
cannam@95 995 }
cannam@95 996 {
cannam@95 997 V TcR, Tcz, TcU, TcK, Tcq, Tcl, Tct, Tc4;
cannam@95 998 {
cannam@95 999 V Tck, Tbw, Tcj, Tc3;
cannam@95 1000 Tck = VFMA(LDK(KP198912367), Tbm, Tbv);
cannam@95 1001 Tbw = VFNMS(LDK(KP198912367), Tbv, Tbm);
cannam@95 1002 Tcj = VFMA(LDK(KP198912367), TbT, Tc2);
cannam@95 1003 Tc3 = VFNMS(LDK(KP198912367), Tc2, TbT);
cannam@95 1004 TcR = VFNMS(LDK(KP923879532), Tcy, Tcx);
cannam@95 1005 Tcz = VFMA(LDK(KP923879532), Tcy, Tcx);
cannam@95 1006 TcU = VFMA(LDK(KP923879532), TcJ, TcI);
cannam@95 1007 TcK = VFNMS(LDK(KP923879532), TcJ, TcI);
cannam@95 1008 Tcq = VADD(Tck, Tcj);
cannam@95 1009 Tcl = VSUB(Tcj, Tck);
cannam@95 1010 Tct = VSUB(Tc3, Tbw);
cannam@95 1011 Tc4 = VADD(Tbw, Tc3);
cannam@95 1012 }
cannam@95 1013 {
cannam@95 1014 V TfN, Tel, TfY, Tfu, Tfw, Tfv, TcT, TcX, TcQ, TcO, TcW, TcY, TcP, TcH, TfZ;
cannam@95 1015 V TeE;
cannam@95 1016 {
cannam@95 1017 V Teu, TcS, TcN, TcV, TcG, TeD;
cannam@95 1018 TfN = VFNMS(LDK(KP923879532), Tek, Ted);
cannam@95 1019 Tel = VFMA(LDK(KP923879532), Tek, Ted);
cannam@95 1020 {
cannam@95 1021 V TcM, TcC, Tcr, Tcv;
cannam@95 1022 TcM = VFNMS(LDK(KP668178637), TcA, TcB);
cannam@95 1023 TcC = VFMA(LDK(KP668178637), TcB, TcA);
cannam@95 1024 Tcr = VFNMS(LDK(KP980785280), Tcq, Tcp);
cannam@95 1025 Tcv = VFMA(LDK(KP980785280), Tcq, Tcp);
cannam@95 1026 {
cannam@95 1027 V Tco, Tcm, Tcu, Tcw;
cannam@95 1028 Tco = VFMA(LDK(KP980785280), Tcl, Tci);
cannam@95 1029 Tcm = VFNMS(LDK(KP980785280), Tcl, Tci);
cannam@95 1030 Tcu = VFMA(LDK(KP980785280), Tct, Tcs);
cannam@95 1031 Tcw = VFNMS(LDK(KP980785280), Tct, Tcs);
cannam@95 1032 {
cannam@95 1033 V Tcn, Tc5, TcL, TcF;
cannam@95 1034 Tcn = VFMA(LDK(KP980785280), Tc4, TaZ);
cannam@95 1035 Tc5 = VFNMS(LDK(KP980785280), Tc4, TaZ);
cannam@95 1036 TcL = VFNMS(LDK(KP668178637), TcD, TcE);
cannam@95 1037 TcF = VFMA(LDK(KP668178637), TcE, TcD);
cannam@95 1038 TfY = VFNMS(LDK(KP923879532), Tft, Tfq);
cannam@95 1039 Tfu = VFMA(LDK(KP923879532), Tft, Tfq);
cannam@95 1040 Tfw = VFMA(LDK(KP198912367), Teq, Tet);
cannam@95 1041 Teu = VFNMS(LDK(KP198912367), Tet, Teq);
cannam@95 1042 ST(&(xo[WS(os, 92)]), VFNMSI(Tcu, Tcr), ovs, &(xo[0]));
cannam@95 1043 ST(&(xo[WS(os, 36)]), VFMAI(Tcu, Tcr), ovs, &(xo[0]));
cannam@95 1044 ST(&(xo[WS(os, 100)]), VFMAI(Tcw, Tcv), ovs, &(xo[0]));
cannam@95 1045 ST(&(xo[WS(os, 28)]), VFNMSI(Tcw, Tcv), ovs, &(xo[0]));
cannam@95 1046 ST(&(xo[WS(os, 4)]), VFMAI(Tco, Tcn), ovs, &(xo[0]));
cannam@95 1047 ST(&(xo[WS(os, 124)]), VFNMSI(Tco, Tcn), ovs, &(xo[0]));
cannam@95 1048 ST(&(xo[WS(os, 68)]), VFMAI(Tcm, Tc5), ovs, &(xo[0]));
cannam@95 1049 ST(&(xo[WS(os, 60)]), VFNMSI(Tcm, Tc5), ovs, &(xo[0]));
cannam@95 1050 TcS = VADD(TcM, TcL);
cannam@95 1051 TcN = VSUB(TcL, TcM);
cannam@95 1052 TcV = VSUB(TcF, TcC);
cannam@95 1053 TcG = VADD(TcC, TcF);
cannam@95 1054 TeD = VFNMS(LDK(KP198912367), TeC, Tez);
cannam@95 1055 Tfv = VFMA(LDK(KP198912367), Tez, TeC);
cannam@95 1056 }
cannam@95 1057 }
cannam@95 1058 }
cannam@95 1059 TcT = VFMA(LDK(KP831469612), TcS, TcR);
cannam@95 1060 TcX = VFNMS(LDK(KP831469612), TcS, TcR);
cannam@95 1061 TcQ = VFMA(LDK(KP831469612), TcN, TcK);
cannam@95 1062 TcO = VFNMS(LDK(KP831469612), TcN, TcK);
cannam@95 1063 TcW = VFNMS(LDK(KP831469612), TcV, TcU);
cannam@95 1064 TcY = VFMA(LDK(KP831469612), TcV, TcU);
cannam@95 1065 TcP = VFMA(LDK(KP831469612), TcG, Tcz);
cannam@95 1066 TcH = VFNMS(LDK(KP831469612), TcG, Tcz);
cannam@95 1067 TfZ = VSUB(TeD, Teu);
cannam@95 1068 TeE = VADD(Teu, TeD);
cannam@95 1069 }
cannam@95 1070 {
cannam@95 1071 V TfQ, TeS, TfO, Tfx, TeZ, TfR, Tfd, Tfk;
cannam@95 1072 TfQ = VFNMS(LDK(KP923879532), TeR, TeK);
cannam@95 1073 TeS = VFMA(LDK(KP923879532), TeR, TeK);
cannam@95 1074 ST(&(xo[WS(os, 84)]), VFMAI(TcW, TcT), ovs, &(xo[0]));
cannam@95 1075 ST(&(xo[WS(os, 44)]), VFNMSI(TcW, TcT), ovs, &(xo[0]));
cannam@95 1076 ST(&(xo[WS(os, 108)]), VFNMSI(TcY, TcX), ovs, &(xo[0]));
cannam@95 1077 ST(&(xo[WS(os, 20)]), VFMAI(TcY, TcX), ovs, &(xo[0]));
cannam@95 1078 ST(&(xo[WS(os, 116)]), VFMAI(TcQ, TcP), ovs, &(xo[0]));
cannam@95 1079 ST(&(xo[WS(os, 12)]), VFNMSI(TcQ, TcP), ovs, &(xo[0]));
cannam@95 1080 ST(&(xo[WS(os, 52)]), VFMAI(TcO, TcH), ovs, &(xo[0]));
cannam@95 1081 ST(&(xo[WS(os, 76)]), VFNMSI(TcO, TcH), ovs, &(xo[0]));
cannam@95 1082 Tg0 = VFNMS(LDK(KP980785280), TfZ, TfY);
cannam@95 1083 Tga = VFMA(LDK(KP980785280), TfZ, TfY);
cannam@95 1084 TfF = VFNMS(LDK(KP980785280), TeE, Tel);
cannam@95 1085 TeF = VFMA(LDK(KP980785280), TeE, Tel);
cannam@95 1086 TfO = VADD(Tfw, Tfv);
cannam@95 1087 Tfx = VSUB(Tfv, Tfw);
cannam@95 1088 TeZ = VFMA(LDK(KP923879532), TeY, TeV);
cannam@95 1089 TfR = VFNMS(LDK(KP923879532), TeY, TeV);
cannam@95 1090 TfT = VFNMS(LDK(KP923879532), Tfc, Tf5);
cannam@95 1091 Tfd = VFMA(LDK(KP923879532), Tfc, Tf5);
cannam@95 1092 Tfk = VFMA(LDK(KP923879532), Tfj, Tfg);
cannam@95 1093 TfU = VFNMS(LDK(KP923879532), Tfj, Tfg);
cannam@95 1094 TfP = VFMA(LDK(KP980785280), TfO, TfN);
cannam@95 1095 Tg7 = VFNMS(LDK(KP980785280), TfO, TfN);
cannam@95 1096 TfI = VFNMS(LDK(KP980785280), Tfx, Tfu);
cannam@95 1097 Tfy = VFMA(LDK(KP980785280), Tfx, Tfu);
cannam@95 1098 TfA = VFMA(LDK(KP098491403), TeS, TeZ);
cannam@95 1099 Tf0 = VFNMS(LDK(KP098491403), TeZ, TeS);
cannam@95 1100 Tfz = VFMA(LDK(KP098491403), Tfd, Tfk);
cannam@95 1101 Tfl = VFNMS(LDK(KP098491403), Tfk, Tfd);
cannam@95 1102 Tg2 = VFNMS(LDK(KP820678790), TfQ, TfR);
cannam@95 1103 TfS = VFMA(LDK(KP820678790), TfR, TfQ);
cannam@95 1104 }
cannam@95 1105 }
cannam@95 1106 }
cannam@95 1107 }
cannam@95 1108 }
cannam@95 1109 {
cannam@95 1110 V T8x, T8y, T8F, T8w, T8k, T8f, T8n, T80, T9l, T76, T87, T8U, T89, T7e, T7l;
cannam@95 1111 V T8a;
cannam@95 1112 {
cannam@95 1113 V The, Tho, TgT, Tgp, Th7, Th8, Thg, Th6, Th3, Thl, TgW, TgM, TgU, TgP, TgX;
cannam@95 1114 V TgE;
cannam@95 1115 {
cannam@95 1116 V Th1, TgI, TgK, TgJ;
cannam@95 1117 {
cannam@95 1118 V Tgh, Thc, Tgk, TfG, TfB, TfJ, Tfm, Tg1, TfV, Tgn, TfL, TfH;
cannam@95 1119 Th1 = VFMA(LDK(KP923879532), Tgg, Tgf);
cannam@95 1120 Tgh = VFNMS(LDK(KP923879532), Tgg, Tgf);
cannam@95 1121 Thc = VFNMS(LDK(KP923879532), TgH, TgG);
cannam@95 1122 TgI = VFMA(LDK(KP923879532), TgH, TgG);
cannam@95 1123 TgK = VFMA(LDK(KP668178637), Tgi, Tgj);
cannam@95 1124 Tgk = VFNMS(LDK(KP668178637), Tgj, Tgi);
cannam@95 1125 TfG = VADD(TfA, Tfz);
cannam@95 1126 TfB = VSUB(Tfz, TfA);
cannam@95 1127 TfJ = VSUB(Tfl, Tf0);
cannam@95 1128 Tfm = VADD(Tf0, Tfl);
cannam@95 1129 Tg1 = VFNMS(LDK(KP820678790), TfT, TfU);
cannam@95 1130 TfV = VFMA(LDK(KP820678790), TfU, TfT);
cannam@95 1131 Tgn = VFNMS(LDK(KP668178637), Tgm, Tgl);
cannam@95 1132 TgJ = VFMA(LDK(KP668178637), Tgl, Tgm);
cannam@95 1133 TfL = VFMA(LDK(KP995184726), TfG, TfF);
cannam@95 1134 TfH = VFNMS(LDK(KP995184726), TfG, TfF);
cannam@95 1135 {
cannam@95 1136 V TfE, TfC, TfM, TfK;
cannam@95 1137 TfE = VFMA(LDK(KP995184726), TfB, Tfy);
cannam@95 1138 TfC = VFNMS(LDK(KP995184726), TfB, Tfy);
cannam@95 1139 TfM = VFNMS(LDK(KP995184726), TfJ, TfI);
cannam@95 1140 TfK = VFMA(LDK(KP995184726), TfJ, TfI);
cannam@95 1141 {
cannam@95 1142 V TfD, Tfn, Tg8, Tg3;
cannam@95 1143 TfD = VFMA(LDK(KP995184726), Tfm, TeF);
cannam@95 1144 Tfn = VFNMS(LDK(KP995184726), Tfm, TeF);
cannam@95 1145 Tg8 = VADD(Tg2, Tg1);
cannam@95 1146 Tg3 = VSUB(Tg1, Tg2);
cannam@95 1147 {
cannam@95 1148 V Tgb, TfW, Thd, Tgo;
cannam@95 1149 Tgb = VSUB(TfV, TfS);
cannam@95 1150 TfW = VADD(TfS, TfV);
cannam@95 1151 Thd = VSUB(Tgn, Tgk);
cannam@95 1152 Tgo = VADD(Tgk, Tgn);
cannam@95 1153 ST(&(xo[WS(os, 98)]), VFMAI(TfM, TfL), ovs, &(xo[0]));
cannam@95 1154 ST(&(xo[WS(os, 30)]), VFNMSI(TfM, TfL), ovs, &(xo[0]));
cannam@95 1155 ST(&(xo[WS(os, 94)]), VFNMSI(TfK, TfH), ovs, &(xo[0]));
cannam@95 1156 ST(&(xo[WS(os, 34)]), VFMAI(TfK, TfH), ovs, &(xo[0]));
cannam@95 1157 ST(&(xo[WS(os, 2)]), VFMAI(TfE, TfD), ovs, &(xo[0]));
cannam@95 1158 ST(&(xo[WS(os, 126)]), VFNMSI(TfE, TfD), ovs, &(xo[0]));
cannam@95 1159 ST(&(xo[WS(os, 66)]), VFMAI(TfC, Tfn), ovs, &(xo[0]));
cannam@95 1160 ST(&(xo[WS(os, 62)]), VFNMSI(TfC, Tfn), ovs, &(xo[0]));
cannam@95 1161 {
cannam@95 1162 V Tgd, Tg9, Tg6, Tg4;
cannam@95 1163 Tgd = VFNMS(LDK(KP773010453), Tg8, Tg7);
cannam@95 1164 Tg9 = VFMA(LDK(KP773010453), Tg8, Tg7);
cannam@95 1165 Tg6 = VFMA(LDK(KP773010453), Tg3, Tg0);
cannam@95 1166 Tg4 = VFNMS(LDK(KP773010453), Tg3, Tg0);
cannam@95 1167 {
cannam@95 1168 V Tge, Tgc, Tg5, TfX;
cannam@95 1169 Tge = VFMA(LDK(KP773010453), Tgb, Tga);
cannam@95 1170 Tgc = VFNMS(LDK(KP773010453), Tgb, Tga);
cannam@95 1171 Tg5 = VFMA(LDK(KP773010453), TfW, TfP);
cannam@95 1172 TfX = VFNMS(LDK(KP773010453), TfW, TfP);
cannam@95 1173 The = VFMA(LDK(KP831469612), Thd, Thc);
cannam@95 1174 Tho = VFNMS(LDK(KP831469612), Thd, Thc);
cannam@95 1175 TgT = VFMA(LDK(KP831469612), Tgo, Tgh);
cannam@95 1176 Tgp = VFNMS(LDK(KP831469612), Tgo, Tgh);
cannam@95 1177 ST(&(xo[WS(os, 110)]), VFNMSI(Tge, Tgd), ovs, &(xo[0]));
cannam@95 1178 ST(&(xo[WS(os, 18)]), VFMAI(Tge, Tgd), ovs, &(xo[0]));
cannam@95 1179 ST(&(xo[WS(os, 82)]), VFMAI(Tgc, Tg9), ovs, &(xo[0]));
cannam@95 1180 ST(&(xo[WS(os, 46)]), VFNMSI(Tgc, Tg9), ovs, &(xo[0]));
cannam@95 1181 ST(&(xo[WS(os, 114)]), VFMAI(Tg6, Tg5), ovs, &(xo[0]));
cannam@95 1182 ST(&(xo[WS(os, 14)]), VFNMSI(Tg6, Tg5), ovs, &(xo[0]));
cannam@95 1183 ST(&(xo[WS(os, 50)]), VFMAI(Tg4, TfX), ovs, &(xo[0]));
cannam@95 1184 ST(&(xo[WS(os, 78)]), VFNMSI(Tg4, TfX), ovs, &(xo[0]));
cannam@95 1185 }
cannam@95 1186 }
cannam@95 1187 }
cannam@95 1188 }
cannam@95 1189 }
cannam@95 1190 }
cannam@95 1191 {
cannam@95 1192 V Th4, Tgs, Tgv, Th5, Tgz, TgC, Th2, TgL;
cannam@95 1193 Th4 = VFMA(LDK(KP923879532), Tgr, Tgq);
cannam@95 1194 Tgs = VFNMS(LDK(KP923879532), Tgr, Tgq);
cannam@95 1195 Tgv = VFMA(LDK(KP923879532), Tgu, Tgt);
cannam@95 1196 Th5 = VFNMS(LDK(KP923879532), Tgu, Tgt);
cannam@95 1197 Th7 = VFMA(LDK(KP923879532), Tgy, Tgx);
cannam@95 1198 Tgz = VFNMS(LDK(KP923879532), Tgy, Tgx);
cannam@95 1199 TgC = VFMA(LDK(KP923879532), TgB, TgA);
cannam@95 1200 Th8 = VFNMS(LDK(KP923879532), TgB, TgA);
cannam@95 1201 Th2 = VADD(TgK, TgJ);
cannam@95 1202 TgL = VSUB(TgJ, TgK);
cannam@95 1203 {
cannam@95 1204 V TgO, Tgw, TgN, TgD;
cannam@95 1205 TgO = VFMA(LDK(KP534511135), Tgs, Tgv);
cannam@95 1206 Tgw = VFNMS(LDK(KP534511135), Tgv, Tgs);
cannam@95 1207 TgN = VFMA(LDK(KP534511135), Tgz, TgC);
cannam@95 1208 TgD = VFNMS(LDK(KP534511135), TgC, Tgz);
cannam@95 1209 Thg = VFNMS(LDK(KP303346683), Th4, Th5);
cannam@95 1210 Th6 = VFMA(LDK(KP303346683), Th5, Th4);
cannam@95 1211 Th3 = VFMA(LDK(KP831469612), Th2, Th1);
cannam@95 1212 Thl = VFNMS(LDK(KP831469612), Th2, Th1);
cannam@95 1213 TgW = VFNMS(LDK(KP831469612), TgL, TgI);
cannam@95 1214 TgM = VFMA(LDK(KP831469612), TgL, TgI);
cannam@95 1215 TgU = VADD(TgO, TgN);
cannam@95 1216 TgP = VSUB(TgN, TgO);
cannam@95 1217 TgX = VSUB(TgD, Tgw);
cannam@95 1218 TgE = VADD(Tgw, TgD);
cannam@95 1219 }
cannam@95 1220 }
cannam@95 1221 }
cannam@95 1222 {
cannam@95 1223 V T8u, T8v, T7R, T8d, T7G, Thm, Thh, Thp, Tha, T7Y, Thr, Thn;
cannam@95 1224 {
cannam@95 1225 V T7y, T7F, TgZ, TgV;
cannam@95 1226 T8u = VFNMS(LDK(KP831469612), T7x, T7q);
cannam@95 1227 T7y = VFMA(LDK(KP831469612), T7x, T7q);
cannam@95 1228 T7F = VFMA(LDK(KP831469612), T7E, T7B);
cannam@95 1229 T8v = VFNMS(LDK(KP831469612), T7E, T7B);
cannam@95 1230 T8x = VFNMS(LDK(KP831469612), T7Q, T7J);
cannam@95 1231 T7R = VFMA(LDK(KP831469612), T7Q, T7J);
cannam@95 1232 TgZ = VFMA(LDK(KP881921264), TgU, TgT);
cannam@95 1233 TgV = VFNMS(LDK(KP881921264), TgU, TgT);
cannam@95 1234 {
cannam@95 1235 V TgS, TgQ, Th0, TgY;
cannam@95 1236 TgS = VFMA(LDK(KP881921264), TgP, TgM);
cannam@95 1237 TgQ = VFNMS(LDK(KP881921264), TgP, TgM);
cannam@95 1238 Th0 = VFNMS(LDK(KP881921264), TgX, TgW);
cannam@95 1239 TgY = VFMA(LDK(KP881921264), TgX, TgW);
cannam@95 1240 {
cannam@95 1241 V TgR, TgF, Thf, Th9;
cannam@95 1242 TgR = VFMA(LDK(KP881921264), TgE, Tgp);
cannam@95 1243 TgF = VFNMS(LDK(KP881921264), TgE, Tgp);
cannam@95 1244 Thf = VFNMS(LDK(KP303346683), Th7, Th8);
cannam@95 1245 Th9 = VFMA(LDK(KP303346683), Th8, Th7);
cannam@95 1246 T8d = VFNMS(LDK(KP148335987), T7y, T7F);
cannam@95 1247 T7G = VFMA(LDK(KP148335987), T7F, T7y);
cannam@95 1248 ST(&(xo[WS(os, 106)]), VFMAI(Th0, TgZ), ovs, &(xo[0]));
cannam@95 1249 ST(&(xo[WS(os, 22)]), VFNMSI(Th0, TgZ), ovs, &(xo[0]));
cannam@95 1250 ST(&(xo[WS(os, 86)]), VFNMSI(TgY, TgV), ovs, &(xo[0]));
cannam@95 1251 ST(&(xo[WS(os, 42)]), VFMAI(TgY, TgV), ovs, &(xo[0]));
cannam@95 1252 ST(&(xo[WS(os, 10)]), VFMAI(TgS, TgR), ovs, &(xo[0]));
cannam@95 1253 ST(&(xo[WS(os, 118)]), VFNMSI(TgS, TgR), ovs, &(xo[0]));
cannam@95 1254 ST(&(xo[WS(os, 74)]), VFMAI(TgQ, TgF), ovs, &(xo[0]));
cannam@95 1255 ST(&(xo[WS(os, 54)]), VFNMSI(TgQ, TgF), ovs, &(xo[0]));
cannam@95 1256 Thm = VADD(Thg, Thf);
cannam@95 1257 Thh = VSUB(Thf, Thg);
cannam@95 1258 Thp = VSUB(Th9, Th6);
cannam@95 1259 Tha = VADD(Th6, Th9);
cannam@95 1260 T7Y = VFMA(LDK(KP831469612), T7X, T7U);
cannam@95 1261 T8y = VFNMS(LDK(KP831469612), T7X, T7U);
cannam@95 1262 }
cannam@95 1263 }
cannam@95 1264 }
cannam@95 1265 Thr = VFNMS(LDK(KP956940335), Thm, Thl);
cannam@95 1266 Thn = VFMA(LDK(KP956940335), Thm, Thl);
cannam@95 1267 {
cannam@95 1268 V Thk, Thi, Ths, Thq;
cannam@95 1269 Thk = VFMA(LDK(KP956940335), Thh, The);
cannam@95 1270 Thi = VFNMS(LDK(KP956940335), Thh, The);
cannam@95 1271 Ths = VFMA(LDK(KP956940335), Thp, Tho);
cannam@95 1272 Thq = VFNMS(LDK(KP956940335), Thp, Tho);
cannam@95 1273 {
cannam@95 1274 V Thj, Thb, T8e, T7Z;
cannam@95 1275 Thj = VFMA(LDK(KP956940335), Tha, Th3);
cannam@95 1276 Thb = VFNMS(LDK(KP956940335), Tha, Th3);
cannam@95 1277 T8e = VFNMS(LDK(KP148335987), T7R, T7Y);
cannam@95 1278 T7Z = VFMA(LDK(KP148335987), T7Y, T7R);
cannam@95 1279 T8F = VFMA(LDK(KP741650546), T8u, T8v);
cannam@95 1280 T8w = VFNMS(LDK(KP741650546), T8v, T8u);
cannam@95 1281 ST(&(xo[WS(os, 102)]), VFNMSI(Ths, Thr), ovs, &(xo[0]));
cannam@95 1282 ST(&(xo[WS(os, 26)]), VFMAI(Ths, Thr), ovs, &(xo[0]));
cannam@95 1283 ST(&(xo[WS(os, 90)]), VFMAI(Thq, Thn), ovs, &(xo[0]));
cannam@95 1284 ST(&(xo[WS(os, 38)]), VFNMSI(Thq, Thn), ovs, &(xo[0]));
cannam@95 1285 ST(&(xo[WS(os, 122)]), VFMAI(Thk, Thj), ovs, &(xo[0]));
cannam@95 1286 ST(&(xo[WS(os, 6)]), VFNMSI(Thk, Thj), ovs, &(xo[0]));
cannam@95 1287 ST(&(xo[WS(os, 58)]), VFMAI(Thi, Thb), ovs, &(xo[0]));
cannam@95 1288 ST(&(xo[WS(os, 70)]), VFNMSI(Thi, Thb), ovs, &(xo[0]));
cannam@95 1289 T8k = VADD(T8d, T8e);
cannam@95 1290 T8f = VSUB(T8d, T8e);
cannam@95 1291 T8n = VSUB(T7Z, T7G);
cannam@95 1292 T80 = VADD(T7G, T7Z);
cannam@95 1293 }
cannam@95 1294 }
cannam@95 1295 T9l = VSUB(T75, T72);
cannam@95 1296 T76 = VADD(T72, T75);
cannam@95 1297 T87 = VSUB(T85, T86);
cannam@95 1298 T8U = VADD(T85, T86);
cannam@95 1299 T89 = VFNMS(LDK(KP303346683), T7a, T7d);
cannam@95 1300 T7e = VFMA(LDK(KP303346683), T7d, T7a);
cannam@95 1301 T7l = VFMA(LDK(KP303346683), T7k, T7h);
cannam@95 1302 T8a = VFNMS(LDK(KP303346683), T7h, T7k);
cannam@95 1303 }
cannam@95 1304 }
cannam@95 1305 {
cannam@95 1306 V T11, T5h, T5a, T55, T5d, T4K, T5C, T5x, T5F, T5q, T4X, T4Z, T1C, T2d, T50;
cannam@95 1307 {
cannam@95 1308 V T5k, T3g, T3t, T5l, T5n, T4v, T4I, T5o, T8G, T8z;
cannam@95 1309 T5k = VFNMS(LDK(KP980785280), T3f, T2G);
cannam@95 1310 T3g = VFMA(LDK(KP980785280), T3f, T2G);
cannam@95 1311 T8G = VFMA(LDK(KP741650546), T8x, T8y);
cannam@95 1312 T8z = VFNMS(LDK(KP741650546), T8y, T8x);
cannam@95 1313 {
cannam@95 1314 V T8r, T77, T8C, T88;
cannam@95 1315 T8r = VFNMS(LDK(KP831469612), T76, T6Z);
cannam@95 1316 T77 = VFMA(LDK(KP831469612), T76, T6Z);
cannam@95 1317 T8C = VFNMS(LDK(KP831469612), T87, T84);
cannam@95 1318 T88 = VFMA(LDK(KP831469612), T87, T84);
cannam@95 1319 {
cannam@95 1320 V T8D, T7m, T8s, T8b;
cannam@95 1321 T8D = VSUB(T7l, T7e);
cannam@95 1322 T7m = VADD(T7e, T7l);
cannam@95 1323 T8s = VADD(T89, T8a);
cannam@95 1324 T8b = VSUB(T89, T8a);
cannam@95 1325 {
cannam@95 1326 V T8M, T8H, T8P, T8A;
cannam@95 1327 T8M = VADD(T8F, T8G);
cannam@95 1328 T8H = VSUB(T8F, T8G);
cannam@95 1329 T8P = VSUB(T8z, T8w);
cannam@95 1330 T8A = VADD(T8w, T8z);
cannam@95 1331 {
cannam@95 1332 V T8E, T8O, T8j, T7n;
cannam@95 1333 T8E = VFNMS(LDK(KP956940335), T8D, T8C);
cannam@95 1334 T8O = VFMA(LDK(KP956940335), T8D, T8C);
cannam@95 1335 T8j = VFNMS(LDK(KP956940335), T7m, T77);
cannam@95 1336 T7n = VFMA(LDK(KP956940335), T7m, T77);
cannam@95 1337 {
cannam@95 1338 V T8t, T8L, T8m, T8c;
cannam@95 1339 T8t = VFNMS(LDK(KP956940335), T8s, T8r);
cannam@95 1340 T8L = VFMA(LDK(KP956940335), T8s, T8r);
cannam@95 1341 T8m = VFNMS(LDK(KP956940335), T8b, T88);
cannam@95 1342 T8c = VFMA(LDK(KP956940335), T8b, T88);
cannam@95 1343 {
cannam@95 1344 V T8K, T8I, T8S, T8Q;
cannam@95 1345 T8K = VFMA(LDK(KP803207531), T8H, T8E);
cannam@95 1346 T8I = VFNMS(LDK(KP803207531), T8H, T8E);
cannam@95 1347 T8S = VFMA(LDK(KP803207531), T8P, T8O);
cannam@95 1348 T8Q = VFNMS(LDK(KP803207531), T8P, T8O);
cannam@95 1349 {
cannam@95 1350 V T8p, T8l, T8h, T81;
cannam@95 1351 T8p = VFNMS(LDK(KP989176509), T8k, T8j);
cannam@95 1352 T8l = VFMA(LDK(KP989176509), T8k, T8j);
cannam@95 1353 T8h = VFMA(LDK(KP989176509), T80, T7n);
cannam@95 1354 T81 = VFNMS(LDK(KP989176509), T80, T7n);
cannam@95 1355 {
cannam@95 1356 V T8J, T8B, T8R, T8N;
cannam@95 1357 T8J = VFMA(LDK(KP803207531), T8A, T8t);
cannam@95 1358 T8B = VFNMS(LDK(KP803207531), T8A, T8t);
cannam@95 1359 T8R = VFMA(LDK(KP803207531), T8M, T8L);
cannam@95 1360 T8N = VFNMS(LDK(KP803207531), T8M, T8L);
cannam@95 1361 {
cannam@95 1362 V T8q, T8o, T8i, T8g;
cannam@95 1363 T8q = VFNMS(LDK(KP989176509), T8n, T8m);
cannam@95 1364 T8o = VFMA(LDK(KP989176509), T8n, T8m);
cannam@95 1365 T8i = VFMA(LDK(KP989176509), T8f, T8c);
cannam@95 1366 T8g = VFNMS(LDK(KP989176509), T8f, T8c);
cannam@95 1367 ST(&(xo[WS(os, 115)]), VFMAI(T8K, T8J), ovs, &(xo[WS(os, 1)]));
cannam@95 1368 ST(&(xo[WS(os, 13)]), VFNMSI(T8K, T8J), ovs, &(xo[WS(os, 1)]));
cannam@95 1369 ST(&(xo[WS(os, 51)]), VFMAI(T8I, T8B), ovs, &(xo[WS(os, 1)]));
cannam@95 1370 ST(&(xo[WS(os, 77)]), VFNMSI(T8I, T8B), ovs, &(xo[WS(os, 1)]));
cannam@95 1371 ST(&(xo[WS(os, 109)]), VFNMSI(T8S, T8R), ovs, &(xo[WS(os, 1)]));
cannam@95 1372 ST(&(xo[WS(os, 19)]), VFMAI(T8S, T8R), ovs, &(xo[WS(os, 1)]));
cannam@95 1373 ST(&(xo[WS(os, 83)]), VFMAI(T8Q, T8N), ovs, &(xo[WS(os, 1)]));
cannam@95 1374 ST(&(xo[WS(os, 45)]), VFNMSI(T8Q, T8N), ovs, &(xo[WS(os, 1)]));
cannam@95 1375 ST(&(xo[WS(os, 99)]), VFMAI(T8q, T8p), ovs, &(xo[WS(os, 1)]));
cannam@95 1376 ST(&(xo[WS(os, 29)]), VFNMSI(T8q, T8p), ovs, &(xo[WS(os, 1)]));
cannam@95 1377 ST(&(xo[WS(os, 93)]), VFNMSI(T8o, T8l), ovs, &(xo[WS(os, 1)]));
cannam@95 1378 ST(&(xo[WS(os, 35)]), VFMAI(T8o, T8l), ovs, &(xo[WS(os, 1)]));
cannam@95 1379 ST(&(xo[WS(os, 3)]), VFMAI(T8i, T8h), ovs, &(xo[WS(os, 1)]));
cannam@95 1380 ST(&(xo[WS(os, 125)]), VFNMSI(T8i, T8h), ovs, &(xo[WS(os, 1)]));
cannam@95 1381 ST(&(xo[WS(os, 67)]), VFMAI(T8g, T81), ovs, &(xo[WS(os, 1)]));
cannam@95 1382 ST(&(xo[WS(os, 61)]), VFNMSI(T8g, T81), ovs, &(xo[WS(os, 1)]));
cannam@95 1383 T3t = VFMA(LDK(KP980785280), T3s, T3p);
cannam@95 1384 T5l = VFNMS(LDK(KP980785280), T3s, T3p);
cannam@95 1385 }
cannam@95 1386 }
cannam@95 1387 }
cannam@95 1388 }
cannam@95 1389 }
cannam@95 1390 }
cannam@95 1391 }
cannam@95 1392 }
cannam@95 1393 }
cannam@95 1394 T5n = VFNMS(LDK(KP980785280), T4u, T3V);
cannam@95 1395 T4v = VFMA(LDK(KP980785280), T4u, T3V);
cannam@95 1396 T4I = VFMA(LDK(KP980785280), T4H, T4E);
cannam@95 1397 T5o = VFNMS(LDK(KP980785280), T4H, T4E);
cannam@95 1398 {
cannam@95 1399 V T53, T3u, T54, T4J, T5v, T5m, T5w, T5p, T10;
cannam@95 1400 T6b = VSUB(TZ, TI);
cannam@95 1401 T10 = VADD(TI, TZ);
cannam@95 1402 T53 = VFMA(LDK(KP049126849), T3g, T3t);
cannam@95 1403 T3u = VFNMS(LDK(KP049126849), T3t, T3g);
cannam@95 1404 T54 = VFMA(LDK(KP049126849), T4v, T4I);
cannam@95 1405 T4J = VFNMS(LDK(KP049126849), T4I, T4v);
cannam@95 1406 T5v = VFNMS(LDK(KP906347169), T5k, T5l);
cannam@95 1407 T5m = VFMA(LDK(KP906347169), T5l, T5k);
cannam@95 1408 T5w = VFNMS(LDK(KP906347169), T5n, T5o);
cannam@95 1409 T5p = VFMA(LDK(KP906347169), T5o, T5n);
cannam@95 1410 T11 = VFMA(LDK(KP980785280), T10, Tr);
cannam@95 1411 T5h = VFNMS(LDK(KP980785280), T10, Tr);
cannam@95 1412 T5a = VADD(T53, T54);
cannam@95 1413 T55 = VSUB(T53, T54);
cannam@95 1414 T5d = VSUB(T4J, T3u);
cannam@95 1415 T4K = VADD(T3u, T4J);
cannam@95 1416 T5C = VADD(T5v, T5w);
cannam@95 1417 T5x = VSUB(T5v, T5w);
cannam@95 1418 T5F = VSUB(T5p, T5m);
cannam@95 1419 T5q = VADD(T5m, T5p);
cannam@95 1420 T4X = VSUB(T4V, T4W);
cannam@95 1421 T5K = VADD(T4V, T4W);
cannam@95 1422 }
cannam@95 1423 T4Z = VFMA(LDK(KP098491403), T1s, T1B);
cannam@95 1424 T1C = VFNMS(LDK(KP098491403), T1B, T1s);
cannam@95 1425 T2d = VFNMS(LDK(KP098491403), T2c, T23);
cannam@95 1426 T50 = VFMA(LDK(KP098491403), T23, T2c);
cannam@95 1427 }
cannam@95 1428 {
cannam@95 1429 V T9y, T9t, T9B, T9i, T9o, T9n, T9F, T8V, T9Q, T9m, T9R, T92, Ta0, T9V, Ta3;
cannam@95 1430 V T9O;
cannam@95 1431 {
cannam@95 1432 V T9I, T9J, T9L, T9d, T5s, T4Y, T5t, T2e, T5i, T51, T9r, T9a, T9g, T9M, T96;
cannam@95 1433 V T99;
cannam@95 1434 T9I = VFMA(LDK(KP831469612), T95, T94);
cannam@95 1435 T96 = VFNMS(LDK(KP831469612), T95, T94);
cannam@95 1436 T99 = VFNMS(LDK(KP831469612), T98, T97);
cannam@95 1437 T9J = VFMA(LDK(KP831469612), T98, T97);
cannam@95 1438 T9L = VFMA(LDK(KP831469612), T9c, T9b);
cannam@95 1439 T9d = VFNMS(LDK(KP831469612), T9c, T9b);
cannam@95 1440 T5s = VFNMS(LDK(KP980785280), T4X, T4U);
cannam@95 1441 T4Y = VFMA(LDK(KP980785280), T4X, T4U);
cannam@95 1442 T5t = VSUB(T2d, T1C);
cannam@95 1443 T2e = VADD(T1C, T2d);
cannam@95 1444 T5i = VADD(T4Z, T50);
cannam@95 1445 T51 = VSUB(T4Z, T50);
cannam@95 1446 T9r = VFNMS(LDK(KP599376933), T96, T99);
cannam@95 1447 T9a = VFMA(LDK(KP599376933), T99, T96);
cannam@95 1448 T9g = VFNMS(LDK(KP831469612), T9f, T9e);
cannam@95 1449 T9M = VFMA(LDK(KP831469612), T9f, T9e);
cannam@95 1450 {
cannam@95 1451 V T5u, T5E, T8Y, T91;
cannam@95 1452 T5u = VFMA(LDK(KP995184726), T5t, T5s);
cannam@95 1453 T5E = VFNMS(LDK(KP995184726), T5t, T5s);
cannam@95 1454 {
cannam@95 1455 V T59, T2f, T5j, T5B;
cannam@95 1456 T59 = VFNMS(LDK(KP995184726), T2e, T11);
cannam@95 1457 T2f = VFMA(LDK(KP995184726), T2e, T11);
cannam@95 1458 T5j = VFMA(LDK(KP995184726), T5i, T5h);
cannam@95 1459 T5B = VFNMS(LDK(KP995184726), T5i, T5h);
cannam@95 1460 {
cannam@95 1461 V T5c, T52, T9s, T9h;
cannam@95 1462 T5c = VFNMS(LDK(KP995184726), T51, T4Y);
cannam@95 1463 T52 = VFMA(LDK(KP995184726), T51, T4Y);
cannam@95 1464 T9s = VFNMS(LDK(KP599376933), T9d, T9g);
cannam@95 1465 T9h = VFMA(LDK(KP599376933), T9g, T9d);
cannam@95 1466 {
cannam@95 1467 V T5A, T5y, T5I, T5G;
cannam@95 1468 T5A = VFMA(LDK(KP740951125), T5x, T5u);
cannam@95 1469 T5y = VFNMS(LDK(KP740951125), T5x, T5u);
cannam@95 1470 T5I = VFNMS(LDK(KP740951125), T5F, T5E);
cannam@95 1471 T5G = VFMA(LDK(KP740951125), T5F, T5E);
cannam@95 1472 {
cannam@95 1473 V T5f, T5b, T57, T4L;
cannam@95 1474 T5f = VFMA(LDK(KP998795456), T5a, T59);
cannam@95 1475 T5b = VFNMS(LDK(KP998795456), T5a, T59);
cannam@95 1476 T57 = VFMA(LDK(KP998795456), T4K, T2f);
cannam@95 1477 T4L = VFNMS(LDK(KP998795456), T4K, T2f);
cannam@95 1478 {
cannam@95 1479 V T5z, T5r, T5H, T5D;
cannam@95 1480 T5z = VFMA(LDK(KP740951125), T5q, T5j);
cannam@95 1481 T5r = VFNMS(LDK(KP740951125), T5q, T5j);
cannam@95 1482 T5H = VFNMS(LDK(KP740951125), T5C, T5B);
cannam@95 1483 T5D = VFMA(LDK(KP740951125), T5C, T5B);
cannam@95 1484 {
cannam@95 1485 V T5g, T5e, T58, T56;
cannam@95 1486 T5g = VFMA(LDK(KP998795456), T5d, T5c);
cannam@95 1487 T5e = VFNMS(LDK(KP998795456), T5d, T5c);
cannam@95 1488 T58 = VFMA(LDK(KP998795456), T55, T52);
cannam@95 1489 T56 = VFNMS(LDK(KP998795456), T55, T52);
cannam@95 1490 T9y = VADD(T9r, T9s);
cannam@95 1491 T9t = VSUB(T9r, T9s);
cannam@95 1492 T9B = VSUB(T9h, T9a);
cannam@95 1493 T9i = VADD(T9a, T9h);
cannam@95 1494 ST(&(xo[WS(os, 15)]), VFMAI(T5A, T5z), ovs, &(xo[WS(os, 1)]));
cannam@95 1495 ST(&(xo[WS(os, 113)]), VFNMSI(T5A, T5z), ovs, &(xo[WS(os, 1)]));
cannam@95 1496 ST(&(xo[WS(os, 79)]), VFMAI(T5y, T5r), ovs, &(xo[WS(os, 1)]));
cannam@95 1497 ST(&(xo[WS(os, 49)]), VFNMSI(T5y, T5r), ovs, &(xo[WS(os, 1)]));
cannam@95 1498 ST(&(xo[WS(os, 111)]), VFMAI(T5I, T5H), ovs, &(xo[WS(os, 1)]));
cannam@95 1499 ST(&(xo[WS(os, 17)]), VFNMSI(T5I, T5H), ovs, &(xo[WS(os, 1)]));
cannam@95 1500 ST(&(xo[WS(os, 81)]), VFNMSI(T5G, T5D), ovs, &(xo[WS(os, 1)]));
cannam@95 1501 ST(&(xo[WS(os, 47)]), VFMAI(T5G, T5D), ovs, &(xo[WS(os, 1)]));
cannam@95 1502 ST(&(xo[WS(os, 97)]), VFNMSI(T5g, T5f), ovs, &(xo[WS(os, 1)]));
cannam@95 1503 ST(&(xo[WS(os, 31)]), VFMAI(T5g, T5f), ovs, &(xo[WS(os, 1)]));
cannam@95 1504 ST(&(xo[WS(os, 95)]), VFMAI(T5e, T5b), ovs, &(xo[WS(os, 1)]));
cannam@95 1505 ST(&(xo[WS(os, 33)]), VFNMSI(T5e, T5b), ovs, &(xo[WS(os, 1)]));
cannam@95 1506 ST(&(xo[WS(os, 127)]), VFMAI(T58, T57), ovs, &(xo[WS(os, 1)]));
cannam@95 1507 ST(&(xo[WS(os, 1)]), VFNMSI(T58, T57), ovs, &(xo[WS(os, 1)]));
cannam@95 1508 ST(&(xo[WS(os, 63)]), VFMAI(T56, T4L), ovs, &(xo[WS(os, 1)]));
cannam@95 1509 ST(&(xo[WS(os, 65)]), VFNMSI(T56, T4L), ovs, &(xo[WS(os, 1)]));
cannam@95 1510 }
cannam@95 1511 }
cannam@95 1512 }
cannam@95 1513 }
cannam@95 1514 }
cannam@95 1515 }
cannam@95 1516 T9o = VFNMS(LDK(KP534511135), T8W, T8X);
cannam@95 1517 T8Y = VFMA(LDK(KP534511135), T8X, T8W);
cannam@95 1518 T91 = VFMA(LDK(KP534511135), T90, T8Z);
cannam@95 1519 T9n = VFNMS(LDK(KP534511135), T8Z, T90);
cannam@95 1520 {
cannam@95 1521 V T9T, T9K, T9U, T9N;
cannam@95 1522 T9T = VFMA(LDK(KP250486960), T9I, T9J);
cannam@95 1523 T9K = VFNMS(LDK(KP250486960), T9J, T9I);
cannam@95 1524 T9U = VFMA(LDK(KP250486960), T9L, T9M);
cannam@95 1525 T9N = VFNMS(LDK(KP250486960), T9M, T9L);
cannam@95 1526 T9F = VFNMS(LDK(KP831469612), T8U, T8T);
cannam@95 1527 T8V = VFMA(LDK(KP831469612), T8U, T8T);
cannam@95 1528 T9Q = VFNMS(LDK(KP831469612), T9l, T9k);
cannam@95 1529 T9m = VFMA(LDK(KP831469612), T9l, T9k);
cannam@95 1530 T9R = VSUB(T8Y, T91);
cannam@95 1531 T92 = VADD(T8Y, T91);
cannam@95 1532 Ta0 = VADD(T9T, T9U);
cannam@95 1533 T9V = VSUB(T9T, T9U);
cannam@95 1534 Ta3 = VSUB(T9N, T9K);
cannam@95 1535 T9O = VADD(T9K, T9N);
cannam@95 1536 }
cannam@95 1537 }
cannam@95 1538 }
cannam@95 1539 {
cannam@95 1540 V T6y, T6z, T63, T9Y, T9W, Ta6, Ta4, T9D, T9z, T9v, T9j, T6h, T60, T9H, T9Z;
cannam@95 1541 V T9A, T9q, T66, T9X, T9P;
cannam@95 1542 {
cannam@95 1543 V T5W, T9S, Ta2, T9x, T93, T5Z, T9G, T9p;
cannam@95 1544 T6y = VFMA(LDK(KP980785280), T5V, T5U);
cannam@95 1545 T5W = VFNMS(LDK(KP980785280), T5V, T5U);
cannam@95 1546 T9S = VFMA(LDK(KP881921264), T9R, T9Q);
cannam@95 1547 Ta2 = VFNMS(LDK(KP881921264), T9R, T9Q);
cannam@95 1548 T9x = VFNMS(LDK(KP881921264), T92, T8V);
cannam@95 1549 T93 = VFMA(LDK(KP881921264), T92, T8V);
cannam@95 1550 T5Z = VFMA(LDK(KP980785280), T5Y, T5X);
cannam@95 1551 T6z = VFNMS(LDK(KP980785280), T5Y, T5X);
cannam@95 1552 T6B = VFMA(LDK(KP980785280), T62, T61);
cannam@95 1553 T63 = VFNMS(LDK(KP980785280), T62, T61);
cannam@95 1554 T9G = VADD(T9o, T9n);
cannam@95 1555 T9p = VSUB(T9n, T9o);
cannam@95 1556 T9Y = VFMA(LDK(KP970031253), T9V, T9S);
cannam@95 1557 T9W = VFNMS(LDK(KP970031253), T9V, T9S);
cannam@95 1558 Ta6 = VFMA(LDK(KP970031253), Ta3, Ta2);
cannam@95 1559 Ta4 = VFNMS(LDK(KP970031253), Ta3, Ta2);
cannam@95 1560 T9D = VFNMS(LDK(KP857728610), T9y, T9x);
cannam@95 1561 T9z = VFMA(LDK(KP857728610), T9y, T9x);
cannam@95 1562 T9v = VFMA(LDK(KP857728610), T9i, T93);
cannam@95 1563 T9j = VFNMS(LDK(KP857728610), T9i, T93);
cannam@95 1564 T6h = VFMA(LDK(KP472964775), T5W, T5Z);
cannam@95 1565 T60 = VFNMS(LDK(KP472964775), T5Z, T5W);
cannam@95 1566 T9H = VFMA(LDK(KP881921264), T9G, T9F);
cannam@95 1567 T9Z = VFNMS(LDK(KP881921264), T9G, T9F);
cannam@95 1568 T9A = VFNMS(LDK(KP881921264), T9p, T9m);
cannam@95 1569 T9q = VFMA(LDK(KP881921264), T9p, T9m);
cannam@95 1570 T66 = VFMA(LDK(KP980785280), T65, T64);
cannam@95 1571 T6C = VFNMS(LDK(KP980785280), T65, T64);
cannam@95 1572 }
cannam@95 1573 T9X = VFMA(LDK(KP970031253), T9O, T9H);
cannam@95 1574 T9P = VFNMS(LDK(KP970031253), T9O, T9H);
cannam@95 1575 {
cannam@95 1576 V Ta5, Ta1, T9E, T9C;
cannam@95 1577 Ta5 = VFMA(LDK(KP970031253), Ta0, T9Z);
cannam@95 1578 Ta1 = VFNMS(LDK(KP970031253), Ta0, T9Z);
cannam@95 1579 T9E = VFNMS(LDK(KP857728610), T9B, T9A);
cannam@95 1580 T9C = VFMA(LDK(KP857728610), T9B, T9A);
cannam@95 1581 {
cannam@95 1582 V T9w, T9u, T6i, T67;
cannam@95 1583 T9w = VFMA(LDK(KP857728610), T9t, T9q);
cannam@95 1584 T9u = VFNMS(LDK(KP857728610), T9t, T9q);
cannam@95 1585 T6i = VFMA(LDK(KP472964775), T63, T66);
cannam@95 1586 T67 = VFNMS(LDK(KP472964775), T66, T63);
cannam@95 1587 T6J = VFNMS(LDK(KP357805721), T6y, T6z);
cannam@95 1588 T6A = VFMA(LDK(KP357805721), T6z, T6y);
cannam@95 1589 ST(&(xo[WS(os, 123)]), VFMAI(T9Y, T9X), ovs, &(xo[WS(os, 1)]));
cannam@95 1590 ST(&(xo[WS(os, 5)]), VFNMSI(T9Y, T9X), ovs, &(xo[WS(os, 1)]));
cannam@95 1591 ST(&(xo[WS(os, 59)]), VFMAI(T9W, T9P), ovs, &(xo[WS(os, 1)]));
cannam@95 1592 ST(&(xo[WS(os, 69)]), VFNMSI(T9W, T9P), ovs, &(xo[WS(os, 1)]));
cannam@95 1593 ST(&(xo[WS(os, 101)]), VFNMSI(Ta6, Ta5), ovs, &(xo[WS(os, 1)]));
cannam@95 1594 ST(&(xo[WS(os, 27)]), VFMAI(Ta6, Ta5), ovs, &(xo[WS(os, 1)]));
cannam@95 1595 ST(&(xo[WS(os, 91)]), VFMAI(Ta4, Ta1), ovs, &(xo[WS(os, 1)]));
cannam@95 1596 ST(&(xo[WS(os, 37)]), VFNMSI(Ta4, Ta1), ovs, &(xo[WS(os, 1)]));
cannam@95 1597 ST(&(xo[WS(os, 107)]), VFMAI(T9E, T9D), ovs, &(xo[WS(os, 1)]));
cannam@95 1598 ST(&(xo[WS(os, 21)]), VFNMSI(T9E, T9D), ovs, &(xo[WS(os, 1)]));
cannam@95 1599 ST(&(xo[WS(os, 85)]), VFNMSI(T9C, T9z), ovs, &(xo[WS(os, 1)]));
cannam@95 1600 ST(&(xo[WS(os, 43)]), VFMAI(T9C, T9z), ovs, &(xo[WS(os, 1)]));
cannam@95 1601 ST(&(xo[WS(os, 11)]), VFMAI(T9w, T9v), ovs, &(xo[WS(os, 1)]));
cannam@95 1602 ST(&(xo[WS(os, 117)]), VFNMSI(T9w, T9v), ovs, &(xo[WS(os, 1)]));
cannam@95 1603 ST(&(xo[WS(os, 75)]), VFMAI(T9u, T9j), ovs, &(xo[WS(os, 1)]));
cannam@95 1604 ST(&(xo[WS(os, 53)]), VFNMSI(T9u, T9j), ovs, &(xo[WS(os, 1)]));
cannam@95 1605 T6o = VADD(T6h, T6i);
cannam@95 1606 T6j = VSUB(T6h, T6i);
cannam@95 1607 T6r = VSUB(T67, T60);
cannam@95 1608 T68 = VADD(T60, T67);
cannam@95 1609 }
cannam@95 1610 }
cannam@95 1611 T6e = VFMA(LDK(KP820678790), T5M, T5N);
cannam@95 1612 T5O = VFNMS(LDK(KP820678790), T5N, T5M);
cannam@95 1613 T5R = VFNMS(LDK(KP820678790), T5Q, T5P);
cannam@95 1614 T6d = VFMA(LDK(KP820678790), T5P, T5Q);
cannam@95 1615 }
cannam@95 1616 }
cannam@95 1617 }
cannam@95 1618 }
cannam@95 1619 }
cannam@95 1620 }
cannam@95 1621 T6D = VFMA(LDK(KP357805721), T6C, T6B);
cannam@95 1622 T6K = VFNMS(LDK(KP357805721), T6B, T6C);
cannam@95 1623 {
cannam@95 1624 V T5L, T6v, T6c, T6G;
cannam@95 1625 T5L = VFNMS(LDK(KP980785280), T5K, T5J);
cannam@95 1626 T6v = VFMA(LDK(KP980785280), T5K, T5J);
cannam@95 1627 T6c = VFNMS(LDK(KP980785280), T6b, T6a);
cannam@95 1628 T6G = VFMA(LDK(KP980785280), T6b, T6a);
cannam@95 1629 {
cannam@95 1630 V T5S, T6H, T6f, T6w;
cannam@95 1631 T5S = VADD(T5O, T5R);
cannam@95 1632 T6H = VSUB(T5O, T5R);
cannam@95 1633 T6f = VSUB(T6d, T6e);
cannam@95 1634 T6w = VADD(T6e, T6d);
cannam@95 1635 {
cannam@95 1636 V T6L, T6Q, T6E, T6T;
cannam@95 1637 T6L = VSUB(T6J, T6K);
cannam@95 1638 T6Q = VADD(T6J, T6K);
cannam@95 1639 T6E = VADD(T6A, T6D);
cannam@95 1640 T6T = VSUB(T6D, T6A);
cannam@95 1641 {
cannam@95 1642 V T6S, T6I, T5T, T6n;
cannam@95 1643 T6S = VFNMS(LDK(KP773010453), T6H, T6G);
cannam@95 1644 T6I = VFMA(LDK(KP773010453), T6H, T6G);
cannam@95 1645 T5T = VFNMS(LDK(KP773010453), T5S, T5L);
cannam@95 1646 T6n = VFMA(LDK(KP773010453), T5S, T5L);
cannam@95 1647 {
cannam@95 1648 V T6P, T6x, T6g, T6q;
cannam@95 1649 T6P = VFNMS(LDK(KP773010453), T6w, T6v);
cannam@95 1650 T6x = VFMA(LDK(KP773010453), T6w, T6v);
cannam@95 1651 T6g = VFNMS(LDK(KP773010453), T6f, T6c);
cannam@95 1652 T6q = VFMA(LDK(KP773010453), T6f, T6c);
cannam@95 1653 {
cannam@95 1654 V T6M, T6O, T6U, T6W;
cannam@95 1655 T6M = VFNMS(LDK(KP941544065), T6L, T6I);
cannam@95 1656 T6O = VFMA(LDK(KP941544065), T6L, T6I);
cannam@95 1657 T6U = VFMA(LDK(KP941544065), T6T, T6S);
cannam@95 1658 T6W = VFNMS(LDK(KP941544065), T6T, T6S);
cannam@95 1659 {
cannam@95 1660 V T6p, T6t, T69, T6l;
cannam@95 1661 T6p = VFNMS(LDK(KP903989293), T6o, T6n);
cannam@95 1662 T6t = VFMA(LDK(KP903989293), T6o, T6n);
cannam@95 1663 T69 = VFNMS(LDK(KP903989293), T68, T5T);
cannam@95 1664 T6l = VFMA(LDK(KP903989293), T68, T5T);
cannam@95 1665 {
cannam@95 1666 V T6F, T6N, T6R, T6V;
cannam@95 1667 T6F = VFNMS(LDK(KP941544065), T6E, T6x);
cannam@95 1668 T6N = VFMA(LDK(KP941544065), T6E, T6x);
cannam@95 1669 T6R = VFMA(LDK(KP941544065), T6Q, T6P);
cannam@95 1670 T6V = VFNMS(LDK(KP941544065), T6Q, T6P);
cannam@95 1671 {
cannam@95 1672 V T6s, T6u, T6k, T6m;
cannam@95 1673 T6s = VFNMS(LDK(KP903989293), T6r, T6q);
cannam@95 1674 T6u = VFMA(LDK(KP903989293), T6r, T6q);
cannam@95 1675 T6k = VFNMS(LDK(KP903989293), T6j, T6g);
cannam@95 1676 T6m = VFMA(LDK(KP903989293), T6j, T6g);
cannam@95 1677 ST(&(xo[WS(os, 7)]), VFMAI(T6O, T6N), ovs, &(xo[WS(os, 1)]));
cannam@95 1678 ST(&(xo[WS(os, 121)]), VFNMSI(T6O, T6N), ovs, &(xo[WS(os, 1)]));
cannam@95 1679 ST(&(xo[WS(os, 71)]), VFMAI(T6M, T6F), ovs, &(xo[WS(os, 1)]));
cannam@95 1680 ST(&(xo[WS(os, 57)]), VFNMSI(T6M, T6F), ovs, &(xo[WS(os, 1)]));
cannam@95 1681 ST(&(xo[WS(os, 103)]), VFMAI(T6W, T6V), ovs, &(xo[WS(os, 1)]));
cannam@95 1682 ST(&(xo[WS(os, 25)]), VFNMSI(T6W, T6V), ovs, &(xo[WS(os, 1)]));
cannam@95 1683 ST(&(xo[WS(os, 89)]), VFNMSI(T6U, T6R), ovs, &(xo[WS(os, 1)]));
cannam@95 1684 ST(&(xo[WS(os, 39)]), VFMAI(T6U, T6R), ovs, &(xo[WS(os, 1)]));
cannam@95 1685 ST(&(xo[WS(os, 105)]), VFNMSI(T6u, T6t), ovs, &(xo[WS(os, 1)]));
cannam@95 1686 ST(&(xo[WS(os, 23)]), VFMAI(T6u, T6t), ovs, &(xo[WS(os, 1)]));
cannam@95 1687 ST(&(xo[WS(os, 87)]), VFMAI(T6s, T6p), ovs, &(xo[WS(os, 1)]));
cannam@95 1688 ST(&(xo[WS(os, 41)]), VFNMSI(T6s, T6p), ovs, &(xo[WS(os, 1)]));
cannam@95 1689 ST(&(xo[WS(os, 119)]), VFMAI(T6m, T6l), ovs, &(xo[WS(os, 1)]));
cannam@95 1690 ST(&(xo[WS(os, 9)]), VFNMSI(T6m, T6l), ovs, &(xo[WS(os, 1)]));
cannam@95 1691 ST(&(xo[WS(os, 55)]), VFMAI(T6k, T69), ovs, &(xo[WS(os, 1)]));
cannam@95 1692 ST(&(xo[WS(os, 73)]), VFNMSI(T6k, T69), ovs, &(xo[WS(os, 1)]));
cannam@95 1693 }
cannam@95 1694 }
cannam@95 1695 }
cannam@95 1696 }
cannam@95 1697 }
cannam@95 1698 }
cannam@95 1699 }
cannam@95 1700 }
cannam@95 1701 }
cannam@95 1702 }
cannam@95 1703 }
cannam@95 1704 VLEAVE();
cannam@95 1705 }
cannam@95 1706
cannam@95 1707 static const kdft_desc desc = { 128, XSIMD_STRING("n1fv_128"), {440, 0, 642, 0}, &GENUS, 0, 0, 0, 0 };
cannam@95 1708
cannam@95 1709 void XSIMD(codelet_n1fv_128) (planner *p) {
cannam@95 1710 X(kdft_register) (p, n1fv_128, &desc);
cannam@95 1711 }
cannam@95 1712
cannam@95 1713 #else /* HAVE_FMA */
cannam@95 1714
cannam@95 1715 /* Generated by: ../../../genfft/gen_notw_c.native -simd -compact -variables 4 -pipeline-latency 8 -n 128 -name n1fv_128 -include n1f.h */
cannam@95 1716
cannam@95 1717 /*
cannam@95 1718 * This function contains 1082 FP additions, 330 FP multiplications,
cannam@95 1719 * (or, 938 additions, 186 multiplications, 144 fused multiply/add),
cannam@95 1720 * 194 stack variables, 31 constants, and 256 memory accesses
cannam@95 1721 */
cannam@95 1722 #include "n1f.h"
cannam@95 1723
cannam@95 1724 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 1725 {
cannam@95 1726 DVK(KP941544065, +0.941544065183020778412509402599502357185589796);
cannam@95 1727 DVK(KP336889853, +0.336889853392220050689253212619147570477766780);
cannam@95 1728 DVK(KP903989293, +0.903989293123443331586200297230537048710132025);
cannam@95 1729 DVK(KP427555093, +0.427555093430282094320966856888798534304578629);
cannam@95 1730 DVK(KP970031253, +0.970031253194543992603984207286100251456865962);
cannam@95 1731 DVK(KP242980179, +0.242980179903263889948274162077471118320990783);
cannam@95 1732 DVK(KP857728610, +0.857728610000272069902269984284770137042490799);
cannam@95 1733 DVK(KP514102744, +0.514102744193221726593693838968815772608049120);
cannam@95 1734 DVK(KP671558954, +0.671558954847018400625376850427421803228750632);
cannam@95 1735 DVK(KP740951125, +0.740951125354959091175616897495162729728955309);
cannam@95 1736 DVK(KP049067674, +0.049067674327418014254954976942682658314745363);
cannam@95 1737 DVK(KP998795456, +0.998795456205172392714771604759100694443203615);
cannam@95 1738 DVK(KP595699304, +0.595699304492433343467036528829969889511926338);
cannam@95 1739 DVK(KP803207531, +0.803207531480644909806676512963141923879569427);
cannam@95 1740 DVK(KP146730474, +0.146730474455361751658850129646717819706215317);
cannam@95 1741 DVK(KP989176509, +0.989176509964780973451673738016243063983689533);
cannam@95 1742 DVK(KP956940335, +0.956940335732208864935797886980269969482849206);
cannam@95 1743 DVK(KP290284677, +0.290284677254462367636192375817395274691476278);
cannam@95 1744 DVK(KP881921264, +0.881921264348355029712756863660388349508442621);
cannam@95 1745 DVK(KP471396736, +0.471396736825997648556387625905254377657460319);
cannam@95 1746 DVK(KP634393284, +0.634393284163645498215171613225493370675687095);
cannam@95 1747 DVK(KP773010453, +0.773010453362736960810906609758469800971041293);
cannam@95 1748 DVK(KP098017140, +0.098017140329560601994195563888641845861136673);
cannam@95 1749 DVK(KP995184726, +0.995184726672196886244836953109479921575474869);
cannam@95 1750 DVK(KP555570233, +0.555570233019602224742830813948532874374937191);
cannam@95 1751 DVK(KP831469612, +0.831469612302545237078788377617905756738560812);
cannam@95 1752 DVK(KP195090322, +0.195090322016128267848284868477022240927691618);
cannam@95 1753 DVK(KP980785280, +0.980785280403230449126182236134239036973933731);
cannam@95 1754 DVK(KP382683432, +0.382683432365089771728459984030398866761344562);
cannam@95 1755 DVK(KP923879532, +0.923879532511286756128183189396788286822416626);
cannam@95 1756 DVK(KP707106781, +0.707106781186547524400844362104849039284835938);
cannam@95 1757 {
cannam@95 1758 INT i;
cannam@95 1759 const R *xi;
cannam@95 1760 R *xo;
cannam@95 1761 xi = ri;
cannam@95 1762 xo = ro;
cannam@95 1763 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 1764 V Tr, T5J, Ted, Tgf, Tfq, TgH, T4U, T6b, T6Z, T8T, Tad, TcZ, Tcc, Td0, T84;
cannam@95 1765 V T9l, Tb6, Tbt, T2G, T5X, TeV, Tgr, T3p, T5V, T7B, T95, TeK, Tgt, T7q, T97;
cannam@95 1766 V Td8, TdK, TbD, Tc0, T3V, T61, Tfg, TgB, T4E, T65, T7U, T9f, Tf5, Tgx, T7J;
cannam@95 1767 V T9b, Tdf, TdN, Td2, Td3, TI, T4V, Tft, Tgg, TZ, T4W, T75, T86, Tek, TgG;
cannam@95 1768 V T72, T85, Tas, Tcd, Tdp, Tdq, TdG, Teq, Tgm, Tet, Tgl, T1s, T5P, T1B, T5Q;
cannam@95 1769 V T7d, T8Z, TaI, Tcf, T7a, T90, Tdm, Tdn, TdH, Tez, Tgi, TeC, Tgj, T23, T5N;
cannam@95 1770 V T2c, T5M, T7k, T8X, TaX, Tcg, T7h, T8W, Tbl, Tbu, Tdb, TdL, TeY, Tgu, TeR;
cannam@95 1771 V Tgq, T7x, T98, T7E, T94, T3f, T5Y, T3s, T5U, TbS, Tc1, Tdi, TdO, Tfj, Tgy;
cannam@95 1772 V Tfc, TgA, T7Q, T9e, T7X, T9c, T4u, T64, T4H, T62;
cannam@95 1773 {
cannam@95 1774 V T3, Ta7, T4P, Ta8, Ta, Tab, T4M, Taa, Tc9, Tca, Ti, Tea, T4S, Tc6, Tc7;
cannam@95 1775 V Tp, Teb, T4R;
cannam@95 1776 {
cannam@95 1777 V T1, T2, T4N, T4O;
cannam@95 1778 T1 = LD(&(xi[0]), ivs, &(xi[0]));
cannam@95 1779 T2 = LD(&(xi[WS(is, 64)]), ivs, &(xi[0]));
cannam@95 1780 T3 = VSUB(T1, T2);
cannam@95 1781 Ta7 = VADD(T1, T2);
cannam@95 1782 T4N = LD(&(xi[WS(is, 32)]), ivs, &(xi[0]));
cannam@95 1783 T4O = LD(&(xi[WS(is, 96)]), ivs, &(xi[0]));
cannam@95 1784 T4P = VSUB(T4N, T4O);
cannam@95 1785 Ta8 = VADD(T4N, T4O);
cannam@95 1786 }
cannam@95 1787 {
cannam@95 1788 V T4, T5, T6, T7, T8, T9;
cannam@95 1789 T4 = LD(&(xi[WS(is, 16)]), ivs, &(xi[0]));
cannam@95 1790 T5 = LD(&(xi[WS(is, 80)]), ivs, &(xi[0]));
cannam@95 1791 T6 = VSUB(T4, T5);
cannam@95 1792 T7 = LD(&(xi[WS(is, 112)]), ivs, &(xi[0]));
cannam@95 1793 T8 = LD(&(xi[WS(is, 48)]), ivs, &(xi[0]));
cannam@95 1794 T9 = VSUB(T7, T8);
cannam@95 1795 Ta = VMUL(LDK(KP707106781), VADD(T6, T9));
cannam@95 1796 Tab = VADD(T7, T8);
cannam@95 1797 T4M = VMUL(LDK(KP707106781), VSUB(T9, T6));
cannam@95 1798 Taa = VADD(T4, T5);
cannam@95 1799 }
cannam@95 1800 {
cannam@95 1801 V Te, Th, Tl, To;
cannam@95 1802 {
cannam@95 1803 V Tc, Td, Tf, Tg;
cannam@95 1804 Tc = LD(&(xi[WS(is, 8)]), ivs, &(xi[0]));
cannam@95 1805 Td = LD(&(xi[WS(is, 72)]), ivs, &(xi[0]));
cannam@95 1806 Te = VSUB(Tc, Td);
cannam@95 1807 Tc9 = VADD(Tc, Td);
cannam@95 1808 Tf = LD(&(xi[WS(is, 40)]), ivs, &(xi[0]));
cannam@95 1809 Tg = LD(&(xi[WS(is, 104)]), ivs, &(xi[0]));
cannam@95 1810 Th = VSUB(Tf, Tg);
cannam@95 1811 Tca = VADD(Tf, Tg);
cannam@95 1812 }
cannam@95 1813 Ti = VFNMS(LDK(KP382683432), Th, VMUL(LDK(KP923879532), Te));
cannam@95 1814 Tea = VSUB(Tc9, Tca);
cannam@95 1815 T4S = VFMA(LDK(KP382683432), Te, VMUL(LDK(KP923879532), Th));
cannam@95 1816 {
cannam@95 1817 V Tj, Tk, Tm, Tn;
cannam@95 1818 Tj = LD(&(xi[WS(is, 120)]), ivs, &(xi[0]));
cannam@95 1819 Tk = LD(&(xi[WS(is, 56)]), ivs, &(xi[0]));
cannam@95 1820 Tl = VSUB(Tj, Tk);
cannam@95 1821 Tc6 = VADD(Tj, Tk);
cannam@95 1822 Tm = LD(&(xi[WS(is, 24)]), ivs, &(xi[0]));
cannam@95 1823 Tn = LD(&(xi[WS(is, 88)]), ivs, &(xi[0]));
cannam@95 1824 To = VSUB(Tm, Tn);
cannam@95 1825 Tc7 = VADD(Tm, Tn);
cannam@95 1826 }
cannam@95 1827 Tp = VFMA(LDK(KP923879532), Tl, VMUL(LDK(KP382683432), To));
cannam@95 1828 Teb = VSUB(Tc6, Tc7);
cannam@95 1829 T4R = VFNMS(LDK(KP923879532), To, VMUL(LDK(KP382683432), Tl));
cannam@95 1830 }
cannam@95 1831 {
cannam@95 1832 V Tb, Tq, Te9, Tec;
cannam@95 1833 Tb = VADD(T3, Ta);
cannam@95 1834 Tq = VADD(Ti, Tp);
cannam@95 1835 Tr = VADD(Tb, Tq);
cannam@95 1836 T5J = VSUB(Tb, Tq);
cannam@95 1837 Te9 = VSUB(Ta7, Ta8);
cannam@95 1838 Tec = VMUL(LDK(KP707106781), VADD(Tea, Teb));
cannam@95 1839 Ted = VADD(Te9, Tec);
cannam@95 1840 Tgf = VSUB(Te9, Tec);
cannam@95 1841 }
cannam@95 1842 {
cannam@95 1843 V Tfo, Tfp, T4Q, T4T;
cannam@95 1844 Tfo = VSUB(Tab, Taa);
cannam@95 1845 Tfp = VMUL(LDK(KP707106781), VSUB(Teb, Tea));
cannam@95 1846 Tfq = VADD(Tfo, Tfp);
cannam@95 1847 TgH = VSUB(Tfp, Tfo);
cannam@95 1848 T4Q = VSUB(T4M, T4P);
cannam@95 1849 T4T = VSUB(T4R, T4S);
cannam@95 1850 T4U = VADD(T4Q, T4T);
cannam@95 1851 T6b = VSUB(T4T, T4Q);
cannam@95 1852 }
cannam@95 1853 {
cannam@95 1854 V T6X, T6Y, Ta9, Tac;
cannam@95 1855 T6X = VSUB(T3, Ta);
cannam@95 1856 T6Y = VADD(T4S, T4R);
cannam@95 1857 T6Z = VADD(T6X, T6Y);
cannam@95 1858 T8T = VSUB(T6X, T6Y);
cannam@95 1859 Ta9 = VADD(Ta7, Ta8);
cannam@95 1860 Tac = VADD(Taa, Tab);
cannam@95 1861 Tad = VSUB(Ta9, Tac);
cannam@95 1862 TcZ = VADD(Ta9, Tac);
cannam@95 1863 }
cannam@95 1864 {
cannam@95 1865 V Tc8, Tcb, T82, T83;
cannam@95 1866 Tc8 = VADD(Tc6, Tc7);
cannam@95 1867 Tcb = VADD(Tc9, Tca);
cannam@95 1868 Tcc = VSUB(Tc8, Tcb);
cannam@95 1869 Td0 = VADD(Tcb, Tc8);
cannam@95 1870 T82 = VADD(T4P, T4M);
cannam@95 1871 T83 = VSUB(Tp, Ti);
cannam@95 1872 T84 = VADD(T82, T83);
cannam@95 1873 T9l = VSUB(T83, T82);
cannam@95 1874 }
cannam@95 1875 }
cannam@95 1876 {
cannam@95 1877 V Tb0, Tb1, T2i, Tb2, T3k, Tb3, Tb4, T2p, Tb5, T3h, T2x, TeH, T3n, Tbs, T2E;
cannam@95 1878 V TeI, T3m, Tbp, T2l, T2o, TeG, TeJ;
cannam@95 1879 {
cannam@95 1880 V T2g, T2h, T3i, T3j;
cannam@95 1881 T2g = LD(&(xi[WS(is, 1)]), ivs, &(xi[WS(is, 1)]));
cannam@95 1882 T2h = LD(&(xi[WS(is, 65)]), ivs, &(xi[WS(is, 1)]));
cannam@95 1883 Tb0 = VADD(T2g, T2h);
cannam@95 1884 T3i = LD(&(xi[WS(is, 33)]), ivs, &(xi[WS(is, 1)]));
cannam@95 1885 T3j = LD(&(xi[WS(is, 97)]), ivs, &(xi[WS(is, 1)]));
cannam@95 1886 Tb1 = VADD(T3i, T3j);
cannam@95 1887 T2i = VSUB(T2g, T2h);
cannam@95 1888 Tb2 = VADD(Tb0, Tb1);
cannam@95 1889 T3k = VSUB(T3i, T3j);
cannam@95 1890 }
cannam@95 1891 {
cannam@95 1892 V T2j, T2k, T2m, T2n;
cannam@95 1893 T2j = LD(&(xi[WS(is, 17)]), ivs, &(xi[WS(is, 1)]));
cannam@95 1894 T2k = LD(&(xi[WS(is, 81)]), ivs, &(xi[WS(is, 1)]));
cannam@95 1895 T2l = VSUB(T2j, T2k);
cannam@95 1896 Tb3 = VADD(T2j, T2k);
cannam@95 1897 T2m = LD(&(xi[WS(is, 113)]), ivs, &(xi[WS(is, 1)]));
cannam@95 1898 T2n = LD(&(xi[WS(is, 49)]), ivs, &(xi[WS(is, 1)]));
cannam@95 1899 T2o = VSUB(T2m, T2n);
cannam@95 1900 Tb4 = VADD(T2m, T2n);
cannam@95 1901 }
cannam@95 1902 T2p = VMUL(LDK(KP707106781), VADD(T2l, T2o));
cannam@95 1903 Tb5 = VADD(Tb3, Tb4);
cannam@95 1904 T3h = VMUL(LDK(KP707106781), VSUB(T2o, T2l));
cannam@95 1905 {
cannam@95 1906 V T2t, Tbq, T2w, Tbr;
cannam@95 1907 {
cannam@95 1908 V T2r, T2s, T2u, T2v;
cannam@95 1909 T2r = LD(&(xi[WS(is, 9)]), ivs, &(xi[WS(is, 1)]));
cannam@95 1910 T2s = LD(&(xi[WS(is, 73)]), ivs, &(xi[WS(is, 1)]));
cannam@95 1911 T2t = VSUB(T2r, T2s);
cannam@95 1912 Tbq = VADD(T2r, T2s);
cannam@95 1913 T2u = LD(&(xi[WS(is, 41)]), ivs, &(xi[WS(is, 1)]));
cannam@95 1914 T2v = LD(&(xi[WS(is, 105)]), ivs, &(xi[WS(is, 1)]));
cannam@95 1915 T2w = VSUB(T2u, T2v);
cannam@95 1916 Tbr = VADD(T2u, T2v);
cannam@95 1917 }
cannam@95 1918 T2x = VFNMS(LDK(KP382683432), T2w, VMUL(LDK(KP923879532), T2t));
cannam@95 1919 TeH = VSUB(Tbq, Tbr);
cannam@95 1920 T3n = VFMA(LDK(KP382683432), T2t, VMUL(LDK(KP923879532), T2w));
cannam@95 1921 Tbs = VADD(Tbq, Tbr);
cannam@95 1922 }
cannam@95 1923 {
cannam@95 1924 V T2A, Tbn, T2D, Tbo;
cannam@95 1925 {
cannam@95 1926 V T2y, T2z, T2B, T2C;
cannam@95 1927 T2y = LD(&(xi[WS(is, 121)]), ivs, &(xi[WS(is, 1)]));
cannam@95 1928 T2z = LD(&(xi[WS(is, 57)]), ivs, &(xi[WS(is, 1)]));
cannam@95 1929 T2A = VSUB(T2y, T2z);
cannam@95 1930 Tbn = VADD(T2y, T2z);
cannam@95 1931 T2B = LD(&(xi[WS(is, 25)]), ivs, &(xi[WS(is, 1)]));
cannam@95 1932 T2C = LD(&(xi[WS(is, 89)]), ivs, &(xi[WS(is, 1)]));
cannam@95 1933 T2D = VSUB(T2B, T2C);
cannam@95 1934 Tbo = VADD(T2B, T2C);
cannam@95 1935 }
cannam@95 1936 T2E = VFMA(LDK(KP923879532), T2A, VMUL(LDK(KP382683432), T2D));
cannam@95 1937 TeI = VSUB(Tbn, Tbo);
cannam@95 1938 T3m = VFNMS(LDK(KP923879532), T2D, VMUL(LDK(KP382683432), T2A));
cannam@95 1939 Tbp = VADD(Tbn, Tbo);
cannam@95 1940 }
cannam@95 1941 Tb6 = VSUB(Tb2, Tb5);
cannam@95 1942 Tbt = VSUB(Tbp, Tbs);
cannam@95 1943 {
cannam@95 1944 V T2q, T2F, TeT, TeU;
cannam@95 1945 T2q = VADD(T2i, T2p);
cannam@95 1946 T2F = VADD(T2x, T2E);
cannam@95 1947 T2G = VADD(T2q, T2F);
cannam@95 1948 T5X = VSUB(T2q, T2F);
cannam@95 1949 TeT = VSUB(Tb4, Tb3);
cannam@95 1950 TeU = VMUL(LDK(KP707106781), VSUB(TeI, TeH));
cannam@95 1951 TeV = VADD(TeT, TeU);
cannam@95 1952 Tgr = VSUB(TeU, TeT);
cannam@95 1953 }
cannam@95 1954 {
cannam@95 1955 V T3l, T3o, T7z, T7A;
cannam@95 1956 T3l = VSUB(T3h, T3k);
cannam@95 1957 T3o = VSUB(T3m, T3n);
cannam@95 1958 T3p = VADD(T3l, T3o);
cannam@95 1959 T5V = VSUB(T3o, T3l);
cannam@95 1960 T7z = VADD(T3k, T3h);
cannam@95 1961 T7A = VSUB(T2E, T2x);
cannam@95 1962 T7B = VADD(T7z, T7A);
cannam@95 1963 T95 = VSUB(T7A, T7z);
cannam@95 1964 }
cannam@95 1965 TeG = VSUB(Tb0, Tb1);
cannam@95 1966 TeJ = VMUL(LDK(KP707106781), VADD(TeH, TeI));
cannam@95 1967 TeK = VADD(TeG, TeJ);
cannam@95 1968 Tgt = VSUB(TeG, TeJ);
cannam@95 1969 {
cannam@95 1970 V T7o, T7p, Td6, Td7;
cannam@95 1971 T7o = VSUB(T2i, T2p);
cannam@95 1972 T7p = VADD(T3n, T3m);
cannam@95 1973 T7q = VADD(T7o, T7p);
cannam@95 1974 T97 = VSUB(T7o, T7p);
cannam@95 1975 Td6 = VADD(Tb2, Tb5);
cannam@95 1976 Td7 = VADD(Tbs, Tbp);
cannam@95 1977 Td8 = VADD(Td6, Td7);
cannam@95 1978 TdK = VSUB(Td6, Td7);
cannam@95 1979 }
cannam@95 1980 }
cannam@95 1981 {
cannam@95 1982 V Tbx, Tby, T3x, Tbz, T4z, TbA, TbB, T3E, TbC, T4w, T3M, Tf2, T4C, TbZ, T3T;
cannam@95 1983 V Tf3, T4B, TbW, T3A, T3D, Tf1, Tf4;
cannam@95 1984 {
cannam@95 1985 V T3v, T3w, T4x, T4y;
cannam@95 1986 T3v = LD(&(xi[WS(is, 127)]), ivs, &(xi[WS(is, 1)]));
cannam@95 1987 T3w = LD(&(xi[WS(is, 63)]), ivs, &(xi[WS(is, 1)]));
cannam@95 1988 Tbx = VADD(T3v, T3w);
cannam@95 1989 T4x = LD(&(xi[WS(is, 31)]), ivs, &(xi[WS(is, 1)]));
cannam@95 1990 T4y = LD(&(xi[WS(is, 95)]), ivs, &(xi[WS(is, 1)]));
cannam@95 1991 Tby = VADD(T4x, T4y);
cannam@95 1992 T3x = VSUB(T3v, T3w);
cannam@95 1993 Tbz = VADD(Tbx, Tby);
cannam@95 1994 T4z = VSUB(T4x, T4y);
cannam@95 1995 }
cannam@95 1996 {
cannam@95 1997 V T3y, T3z, T3B, T3C;
cannam@95 1998 T3y = LD(&(xi[WS(is, 15)]), ivs, &(xi[WS(is, 1)]));
cannam@95 1999 T3z = LD(&(xi[WS(is, 79)]), ivs, &(xi[WS(is, 1)]));
cannam@95 2000 T3A = VSUB(T3y, T3z);
cannam@95 2001 TbA = VADD(T3y, T3z);
cannam@95 2002 T3B = LD(&(xi[WS(is, 111)]), ivs, &(xi[WS(is, 1)]));
cannam@95 2003 T3C = LD(&(xi[WS(is, 47)]), ivs, &(xi[WS(is, 1)]));
cannam@95 2004 T3D = VSUB(T3B, T3C);
cannam@95 2005 TbB = VADD(T3B, T3C);
cannam@95 2006 }
cannam@95 2007 T3E = VMUL(LDK(KP707106781), VADD(T3A, T3D));
cannam@95 2008 TbC = VADD(TbA, TbB);
cannam@95 2009 T4w = VMUL(LDK(KP707106781), VSUB(T3D, T3A));
cannam@95 2010 {
cannam@95 2011 V T3I, TbX, T3L, TbY;
cannam@95 2012 {
cannam@95 2013 V T3G, T3H, T3J, T3K;
cannam@95 2014 T3G = LD(&(xi[WS(is, 7)]), ivs, &(xi[WS(is, 1)]));
cannam@95 2015 T3H = LD(&(xi[WS(is, 71)]), ivs, &(xi[WS(is, 1)]));
cannam@95 2016 T3I = VSUB(T3G, T3H);
cannam@95 2017 TbX = VADD(T3G, T3H);
cannam@95 2018 T3J = LD(&(xi[WS(is, 39)]), ivs, &(xi[WS(is, 1)]));
cannam@95 2019 T3K = LD(&(xi[WS(is, 103)]), ivs, &(xi[WS(is, 1)]));
cannam@95 2020 T3L = VSUB(T3J, T3K);
cannam@95 2021 TbY = VADD(T3J, T3K);
cannam@95 2022 }
cannam@95 2023 T3M = VFNMS(LDK(KP382683432), T3L, VMUL(LDK(KP923879532), T3I));
cannam@95 2024 Tf2 = VSUB(TbX, TbY);
cannam@95 2025 T4C = VFMA(LDK(KP382683432), T3I, VMUL(LDK(KP923879532), T3L));
cannam@95 2026 TbZ = VADD(TbX, TbY);
cannam@95 2027 }
cannam@95 2028 {
cannam@95 2029 V T3P, TbU, T3S, TbV;
cannam@95 2030 {
cannam@95 2031 V T3N, T3O, T3Q, T3R;
cannam@95 2032 T3N = LD(&(xi[WS(is, 119)]), ivs, &(xi[WS(is, 1)]));
cannam@95 2033 T3O = LD(&(xi[WS(is, 55)]), ivs, &(xi[WS(is, 1)]));
cannam@95 2034 T3P = VSUB(T3N, T3O);
cannam@95 2035 TbU = VADD(T3N, T3O);
cannam@95 2036 T3Q = LD(&(xi[WS(is, 23)]), ivs, &(xi[WS(is, 1)]));
cannam@95 2037 T3R = LD(&(xi[WS(is, 87)]), ivs, &(xi[WS(is, 1)]));
cannam@95 2038 T3S = VSUB(T3Q, T3R);
cannam@95 2039 TbV = VADD(T3Q, T3R);
cannam@95 2040 }
cannam@95 2041 T3T = VFMA(LDK(KP923879532), T3P, VMUL(LDK(KP382683432), T3S));
cannam@95 2042 Tf3 = VSUB(TbU, TbV);
cannam@95 2043 T4B = VFNMS(LDK(KP923879532), T3S, VMUL(LDK(KP382683432), T3P));
cannam@95 2044 TbW = VADD(TbU, TbV);
cannam@95 2045 }
cannam@95 2046 TbD = VSUB(Tbz, TbC);
cannam@95 2047 Tc0 = VSUB(TbW, TbZ);
cannam@95 2048 {
cannam@95 2049 V T3F, T3U, Tfe, Tff;
cannam@95 2050 T3F = VADD(T3x, T3E);
cannam@95 2051 T3U = VADD(T3M, T3T);
cannam@95 2052 T3V = VADD(T3F, T3U);
cannam@95 2053 T61 = VSUB(T3F, T3U);
cannam@95 2054 Tfe = VSUB(TbB, TbA);
cannam@95 2055 Tff = VMUL(LDK(KP707106781), VSUB(Tf3, Tf2));
cannam@95 2056 Tfg = VADD(Tfe, Tff);
cannam@95 2057 TgB = VSUB(Tff, Tfe);
cannam@95 2058 }
cannam@95 2059 {
cannam@95 2060 V T4A, T4D, T7S, T7T;
cannam@95 2061 T4A = VSUB(T4w, T4z);
cannam@95 2062 T4D = VSUB(T4B, T4C);
cannam@95 2063 T4E = VADD(T4A, T4D);
cannam@95 2064 T65 = VSUB(T4D, T4A);
cannam@95 2065 T7S = VADD(T4z, T4w);
cannam@95 2066 T7T = VSUB(T3T, T3M);
cannam@95 2067 T7U = VADD(T7S, T7T);
cannam@95 2068 T9f = VSUB(T7T, T7S);
cannam@95 2069 }
cannam@95 2070 Tf1 = VSUB(Tbx, Tby);
cannam@95 2071 Tf4 = VMUL(LDK(KP707106781), VADD(Tf2, Tf3));
cannam@95 2072 Tf5 = VADD(Tf1, Tf4);
cannam@95 2073 Tgx = VSUB(Tf1, Tf4);
cannam@95 2074 {
cannam@95 2075 V T7H, T7I, Tdd, Tde;
cannam@95 2076 T7H = VSUB(T3x, T3E);
cannam@95 2077 T7I = VADD(T4C, T4B);
cannam@95 2078 T7J = VADD(T7H, T7I);
cannam@95 2079 T9b = VSUB(T7H, T7I);
cannam@95 2080 Tdd = VADD(Tbz, TbC);
cannam@95 2081 Tde = VADD(TbZ, TbW);
cannam@95 2082 Tdf = VADD(Tdd, Tde);
cannam@95 2083 TdN = VSUB(Tdd, Tde);
cannam@95 2084 }
cannam@95 2085 }
cannam@95 2086 {
cannam@95 2087 V Tu, Tee, TG, Tag, TL, Teh, TX, Tan, TB, Tef, TD, Taj, TS, Tei, TU;
cannam@95 2088 V Taq, Teg, Tej;
cannam@95 2089 {
cannam@95 2090 V Ts, Tt, Tae, TE, TF, Taf;
cannam@95 2091 Ts = LD(&(xi[WS(is, 4)]), ivs, &(xi[0]));
cannam@95 2092 Tt = LD(&(xi[WS(is, 68)]), ivs, &(xi[0]));
cannam@95 2093 Tae = VADD(Ts, Tt);
cannam@95 2094 TE = LD(&(xi[WS(is, 36)]), ivs, &(xi[0]));
cannam@95 2095 TF = LD(&(xi[WS(is, 100)]), ivs, &(xi[0]));
cannam@95 2096 Taf = VADD(TE, TF);
cannam@95 2097 Tu = VSUB(Ts, Tt);
cannam@95 2098 Tee = VSUB(Tae, Taf);
cannam@95 2099 TG = VSUB(TE, TF);
cannam@95 2100 Tag = VADD(Tae, Taf);
cannam@95 2101 }
cannam@95 2102 {
cannam@95 2103 V TJ, TK, Tal, TV, TW, Tam;
cannam@95 2104 TJ = LD(&(xi[WS(is, 124)]), ivs, &(xi[0]));
cannam@95 2105 TK = LD(&(xi[WS(is, 60)]), ivs, &(xi[0]));
cannam@95 2106 Tal = VADD(TJ, TK);
cannam@95 2107 TV = LD(&(xi[WS(is, 28)]), ivs, &(xi[0]));
cannam@95 2108 TW = LD(&(xi[WS(is, 92)]), ivs, &(xi[0]));
cannam@95 2109 Tam = VADD(TV, TW);
cannam@95 2110 TL = VSUB(TJ, TK);
cannam@95 2111 Teh = VSUB(Tal, Tam);
cannam@95 2112 TX = VSUB(TV, TW);
cannam@95 2113 Tan = VADD(Tal, Tam);
cannam@95 2114 }
cannam@95 2115 {
cannam@95 2116 V Tx, Tah, TA, Tai;
cannam@95 2117 {
cannam@95 2118 V Tv, Tw, Ty, Tz;
cannam@95 2119 Tv = LD(&(xi[WS(is, 20)]), ivs, &(xi[0]));
cannam@95 2120 Tw = LD(&(xi[WS(is, 84)]), ivs, &(xi[0]));
cannam@95 2121 Tx = VSUB(Tv, Tw);
cannam@95 2122 Tah = VADD(Tv, Tw);
cannam@95 2123 Ty = LD(&(xi[WS(is, 116)]), ivs, &(xi[0]));
cannam@95 2124 Tz = LD(&(xi[WS(is, 52)]), ivs, &(xi[0]));
cannam@95 2125 TA = VSUB(Ty, Tz);
cannam@95 2126 Tai = VADD(Ty, Tz);
cannam@95 2127 }
cannam@95 2128 TB = VMUL(LDK(KP707106781), VADD(Tx, TA));
cannam@95 2129 Tef = VSUB(Tai, Tah);
cannam@95 2130 TD = VMUL(LDK(KP707106781), VSUB(TA, Tx));
cannam@95 2131 Taj = VADD(Tah, Tai);
cannam@95 2132 }
cannam@95 2133 {
cannam@95 2134 V TO, Tao, TR, Tap;
cannam@95 2135 {
cannam@95 2136 V TM, TN, TP, TQ;
cannam@95 2137 TM = LD(&(xi[WS(is, 12)]), ivs, &(xi[0]));
cannam@95 2138 TN = LD(&(xi[WS(is, 76)]), ivs, &(xi[0]));
cannam@95 2139 TO = VSUB(TM, TN);
cannam@95 2140 Tao = VADD(TM, TN);
cannam@95 2141 TP = LD(&(xi[WS(is, 108)]), ivs, &(xi[0]));
cannam@95 2142 TQ = LD(&(xi[WS(is, 44)]), ivs, &(xi[0]));
cannam@95 2143 TR = VSUB(TP, TQ);
cannam@95 2144 Tap = VADD(TP, TQ);
cannam@95 2145 }
cannam@95 2146 TS = VMUL(LDK(KP707106781), VADD(TO, TR));
cannam@95 2147 Tei = VSUB(Tap, Tao);
cannam@95 2148 TU = VMUL(LDK(KP707106781), VSUB(TR, TO));
cannam@95 2149 Taq = VADD(Tao, Tap);
cannam@95 2150 }
cannam@95 2151 Td2 = VADD(Tag, Taj);
cannam@95 2152 Td3 = VADD(Tan, Taq);
cannam@95 2153 {
cannam@95 2154 V TC, TH, Tfr, Tfs;
cannam@95 2155 TC = VADD(Tu, TB);
cannam@95 2156 TH = VSUB(TD, TG);
cannam@95 2157 TI = VFMA(LDK(KP980785280), TC, VMUL(LDK(KP195090322), TH));
cannam@95 2158 T4V = VFNMS(LDK(KP195090322), TC, VMUL(LDK(KP980785280), TH));
cannam@95 2159 Tfr = VFNMS(LDK(KP382683432), Tee, VMUL(LDK(KP923879532), Tef));
cannam@95 2160 Tfs = VFMA(LDK(KP382683432), Teh, VMUL(LDK(KP923879532), Tei));
cannam@95 2161 Tft = VADD(Tfr, Tfs);
cannam@95 2162 Tgg = VSUB(Tfs, Tfr);
cannam@95 2163 }
cannam@95 2164 {
cannam@95 2165 V TT, TY, T73, T74;
cannam@95 2166 TT = VADD(TL, TS);
cannam@95 2167 TY = VSUB(TU, TX);
cannam@95 2168 TZ = VFNMS(LDK(KP195090322), TY, VMUL(LDK(KP980785280), TT));
cannam@95 2169 T4W = VFMA(LDK(KP195090322), TT, VMUL(LDK(KP980785280), TY));
cannam@95 2170 T73 = VSUB(TL, TS);
cannam@95 2171 T74 = VADD(TX, TU);
cannam@95 2172 T75 = VFNMS(LDK(KP555570233), T74, VMUL(LDK(KP831469612), T73));
cannam@95 2173 T86 = VFMA(LDK(KP555570233), T73, VMUL(LDK(KP831469612), T74));
cannam@95 2174 }
cannam@95 2175 Teg = VFMA(LDK(KP923879532), Tee, VMUL(LDK(KP382683432), Tef));
cannam@95 2176 Tej = VFNMS(LDK(KP382683432), Tei, VMUL(LDK(KP923879532), Teh));
cannam@95 2177 Tek = VADD(Teg, Tej);
cannam@95 2178 TgG = VSUB(Tej, Teg);
cannam@95 2179 {
cannam@95 2180 V T70, T71, Tak, Tar;
cannam@95 2181 T70 = VSUB(Tu, TB);
cannam@95 2182 T71 = VADD(TG, TD);
cannam@95 2183 T72 = VFMA(LDK(KP831469612), T70, VMUL(LDK(KP555570233), T71));
cannam@95 2184 T85 = VFNMS(LDK(KP555570233), T70, VMUL(LDK(KP831469612), T71));
cannam@95 2185 Tak = VSUB(Tag, Taj);
cannam@95 2186 Tar = VSUB(Tan, Taq);
cannam@95 2187 Tas = VMUL(LDK(KP707106781), VADD(Tak, Tar));
cannam@95 2188 Tcd = VMUL(LDK(KP707106781), VSUB(Tar, Tak));
cannam@95 2189 }
cannam@95 2190 }
cannam@95 2191 {
cannam@95 2192 V Tav, Tau, T1b, Taw, T1v, Tay, Tax, T18, Taz, T1w, T1j, Teo, T1z, TaD, T1q;
cannam@95 2193 V Ten, T1y, TaG, T14, T17, Tem, Tep;
cannam@95 2194 {
cannam@95 2195 V T19, T1a, T1t, T1u;
cannam@95 2196 T19 = LD(&(xi[WS(is, 34)]), ivs, &(xi[0]));
cannam@95 2197 T1a = LD(&(xi[WS(is, 98)]), ivs, &(xi[0]));
cannam@95 2198 Tav = VADD(T19, T1a);
cannam@95 2199 T1t = LD(&(xi[WS(is, 2)]), ivs, &(xi[0]));
cannam@95 2200 T1u = LD(&(xi[WS(is, 66)]), ivs, &(xi[0]));
cannam@95 2201 Tau = VADD(T1t, T1u);
cannam@95 2202 T1b = VSUB(T19, T1a);
cannam@95 2203 Taw = VADD(Tau, Tav);
cannam@95 2204 T1v = VSUB(T1t, T1u);
cannam@95 2205 }
cannam@95 2206 {
cannam@95 2207 V T12, T13, T15, T16;
cannam@95 2208 T12 = LD(&(xi[WS(is, 114)]), ivs, &(xi[0]));
cannam@95 2209 T13 = LD(&(xi[WS(is, 50)]), ivs, &(xi[0]));
cannam@95 2210 T14 = VSUB(T12, T13);
cannam@95 2211 Tay = VADD(T12, T13);
cannam@95 2212 T15 = LD(&(xi[WS(is, 18)]), ivs, &(xi[0]));
cannam@95 2213 T16 = LD(&(xi[WS(is, 82)]), ivs, &(xi[0]));
cannam@95 2214 T17 = VSUB(T15, T16);
cannam@95 2215 Tax = VADD(T15, T16);
cannam@95 2216 }
cannam@95 2217 T18 = VMUL(LDK(KP707106781), VSUB(T14, T17));
cannam@95 2218 Taz = VADD(Tax, Tay);
cannam@95 2219 T1w = VMUL(LDK(KP707106781), VADD(T17, T14));
cannam@95 2220 {
cannam@95 2221 V T1f, TaB, T1i, TaC;
cannam@95 2222 {
cannam@95 2223 V T1d, T1e, T1g, T1h;
cannam@95 2224 T1d = LD(&(xi[WS(is, 122)]), ivs, &(xi[0]));
cannam@95 2225 T1e = LD(&(xi[WS(is, 58)]), ivs, &(xi[0]));
cannam@95 2226 T1f = VSUB(T1d, T1e);
cannam@95 2227 TaB = VADD(T1d, T1e);
cannam@95 2228 T1g = LD(&(xi[WS(is, 26)]), ivs, &(xi[0]));
cannam@95 2229 T1h = LD(&(xi[WS(is, 90)]), ivs, &(xi[0]));
cannam@95 2230 T1i = VSUB(T1g, T1h);
cannam@95 2231 TaC = VADD(T1g, T1h);
cannam@95 2232 }
cannam@95 2233 T1j = VFNMS(LDK(KP923879532), T1i, VMUL(LDK(KP382683432), T1f));
cannam@95 2234 Teo = VSUB(TaB, TaC);
cannam@95 2235 T1z = VFMA(LDK(KP923879532), T1f, VMUL(LDK(KP382683432), T1i));
cannam@95 2236 TaD = VADD(TaB, TaC);
cannam@95 2237 }
cannam@95 2238 {
cannam@95 2239 V T1m, TaE, T1p, TaF;
cannam@95 2240 {
cannam@95 2241 V T1k, T1l, T1n, T1o;
cannam@95 2242 T1k = LD(&(xi[WS(is, 10)]), ivs, &(xi[0]));
cannam@95 2243 T1l = LD(&(xi[WS(is, 74)]), ivs, &(xi[0]));
cannam@95 2244 T1m = VSUB(T1k, T1l);
cannam@95 2245 TaE = VADD(T1k, T1l);
cannam@95 2246 T1n = LD(&(xi[WS(is, 42)]), ivs, &(xi[0]));
cannam@95 2247 T1o = LD(&(xi[WS(is, 106)]), ivs, &(xi[0]));
cannam@95 2248 T1p = VSUB(T1n, T1o);
cannam@95 2249 TaF = VADD(T1n, T1o);
cannam@95 2250 }
cannam@95 2251 T1q = VFMA(LDK(KP382683432), T1m, VMUL(LDK(KP923879532), T1p));
cannam@95 2252 Ten = VSUB(TaE, TaF);
cannam@95 2253 T1y = VFNMS(LDK(KP382683432), T1p, VMUL(LDK(KP923879532), T1m));
cannam@95 2254 TaG = VADD(TaE, TaF);
cannam@95 2255 }
cannam@95 2256 Tdp = VADD(Taw, Taz);
cannam@95 2257 Tdq = VADD(TaG, TaD);
cannam@95 2258 TdG = VSUB(Tdp, Tdq);
cannam@95 2259 Tem = VSUB(Tau, Tav);
cannam@95 2260 Tep = VMUL(LDK(KP707106781), VADD(Ten, Teo));
cannam@95 2261 Teq = VADD(Tem, Tep);
cannam@95 2262 Tgm = VSUB(Tem, Tep);
cannam@95 2263 {
cannam@95 2264 V Ter, Tes, T1c, T1r;
cannam@95 2265 Ter = VSUB(Tay, Tax);
cannam@95 2266 Tes = VMUL(LDK(KP707106781), VSUB(Teo, Ten));
cannam@95 2267 Tet = VADD(Ter, Tes);
cannam@95 2268 Tgl = VSUB(Tes, Ter);
cannam@95 2269 T1c = VSUB(T18, T1b);
cannam@95 2270 T1r = VSUB(T1j, T1q);
cannam@95 2271 T1s = VADD(T1c, T1r);
cannam@95 2272 T5P = VSUB(T1r, T1c);
cannam@95 2273 }
cannam@95 2274 {
cannam@95 2275 V T1x, T1A, T7b, T7c;
cannam@95 2276 T1x = VADD(T1v, T1w);
cannam@95 2277 T1A = VADD(T1y, T1z);
cannam@95 2278 T1B = VADD(T1x, T1A);
cannam@95 2279 T5Q = VSUB(T1x, T1A);
cannam@95 2280 T7b = VADD(T1b, T18);
cannam@95 2281 T7c = VSUB(T1z, T1y);
cannam@95 2282 T7d = VADD(T7b, T7c);
cannam@95 2283 T8Z = VSUB(T7c, T7b);
cannam@95 2284 }
cannam@95 2285 {
cannam@95 2286 V TaA, TaH, T78, T79;
cannam@95 2287 TaA = VSUB(Taw, Taz);
cannam@95 2288 TaH = VSUB(TaD, TaG);
cannam@95 2289 TaI = VFMA(LDK(KP923879532), TaA, VMUL(LDK(KP382683432), TaH));
cannam@95 2290 Tcf = VFNMS(LDK(KP382683432), TaA, VMUL(LDK(KP923879532), TaH));
cannam@95 2291 T78 = VSUB(T1v, T1w);
cannam@95 2292 T79 = VADD(T1q, T1j);
cannam@95 2293 T7a = VADD(T78, T79);
cannam@95 2294 T90 = VSUB(T78, T79);
cannam@95 2295 }
cannam@95 2296 }
cannam@95 2297 {
cannam@95 2298 V TaJ, TaK, T1F, TaL, T27, TaM, TaN, T1M, TaO, T24, T1U, Tew, T2a, TaV, T21;
cannam@95 2299 V Tex, T29, TaS, T1I, T1L, Tev, Tey;
cannam@95 2300 {
cannam@95 2301 V T1D, T1E, T25, T26;
cannam@95 2302 T1D = LD(&(xi[WS(is, 126)]), ivs, &(xi[0]));
cannam@95 2303 T1E = LD(&(xi[WS(is, 62)]), ivs, &(xi[0]));
cannam@95 2304 TaJ = VADD(T1D, T1E);
cannam@95 2305 T25 = LD(&(xi[WS(is, 30)]), ivs, &(xi[0]));
cannam@95 2306 T26 = LD(&(xi[WS(is, 94)]), ivs, &(xi[0]));
cannam@95 2307 TaK = VADD(T25, T26);
cannam@95 2308 T1F = VSUB(T1D, T1E);
cannam@95 2309 TaL = VADD(TaJ, TaK);
cannam@95 2310 T27 = VSUB(T25, T26);
cannam@95 2311 }
cannam@95 2312 {
cannam@95 2313 V T1G, T1H, T1J, T1K;
cannam@95 2314 T1G = LD(&(xi[WS(is, 14)]), ivs, &(xi[0]));
cannam@95 2315 T1H = LD(&(xi[WS(is, 78)]), ivs, &(xi[0]));
cannam@95 2316 T1I = VSUB(T1G, T1H);
cannam@95 2317 TaM = VADD(T1G, T1H);
cannam@95 2318 T1J = LD(&(xi[WS(is, 110)]), ivs, &(xi[0]));
cannam@95 2319 T1K = LD(&(xi[WS(is, 46)]), ivs, &(xi[0]));
cannam@95 2320 T1L = VSUB(T1J, T1K);
cannam@95 2321 TaN = VADD(T1J, T1K);
cannam@95 2322 }
cannam@95 2323 T1M = VMUL(LDK(KP707106781), VADD(T1I, T1L));
cannam@95 2324 TaO = VADD(TaM, TaN);
cannam@95 2325 T24 = VMUL(LDK(KP707106781), VSUB(T1L, T1I));
cannam@95 2326 {
cannam@95 2327 V T1Q, TaT, T1T, TaU;
cannam@95 2328 {
cannam@95 2329 V T1O, T1P, T1R, T1S;
cannam@95 2330 T1O = LD(&(xi[WS(is, 6)]), ivs, &(xi[0]));
cannam@95 2331 T1P = LD(&(xi[WS(is, 70)]), ivs, &(xi[0]));
cannam@95 2332 T1Q = VSUB(T1O, T1P);
cannam@95 2333 TaT = VADD(T1O, T1P);
cannam@95 2334 T1R = LD(&(xi[WS(is, 38)]), ivs, &(xi[0]));
cannam@95 2335 T1S = LD(&(xi[WS(is, 102)]), ivs, &(xi[0]));
cannam@95 2336 T1T = VSUB(T1R, T1S);
cannam@95 2337 TaU = VADD(T1R, T1S);
cannam@95 2338 }
cannam@95 2339 T1U = VFNMS(LDK(KP382683432), T1T, VMUL(LDK(KP923879532), T1Q));
cannam@95 2340 Tew = VSUB(TaT, TaU);
cannam@95 2341 T2a = VFMA(LDK(KP382683432), T1Q, VMUL(LDK(KP923879532), T1T));
cannam@95 2342 TaV = VADD(TaT, TaU);
cannam@95 2343 }
cannam@95 2344 {
cannam@95 2345 V T1X, TaQ, T20, TaR;
cannam@95 2346 {
cannam@95 2347 V T1V, T1W, T1Y, T1Z;
cannam@95 2348 T1V = LD(&(xi[WS(is, 118)]), ivs, &(xi[0]));
cannam@95 2349 T1W = LD(&(xi[WS(is, 54)]), ivs, &(xi[0]));
cannam@95 2350 T1X = VSUB(T1V, T1W);
cannam@95 2351 TaQ = VADD(T1V, T1W);
cannam@95 2352 T1Y = LD(&(xi[WS(is, 22)]), ivs, &(xi[0]));
cannam@95 2353 T1Z = LD(&(xi[WS(is, 86)]), ivs, &(xi[0]));
cannam@95 2354 T20 = VSUB(T1Y, T1Z);
cannam@95 2355 TaR = VADD(T1Y, T1Z);
cannam@95 2356 }
cannam@95 2357 T21 = VFMA(LDK(KP923879532), T1X, VMUL(LDK(KP382683432), T20));
cannam@95 2358 Tex = VSUB(TaQ, TaR);
cannam@95 2359 T29 = VFNMS(LDK(KP923879532), T20, VMUL(LDK(KP382683432), T1X));
cannam@95 2360 TaS = VADD(TaQ, TaR);
cannam@95 2361 }
cannam@95 2362 Tdm = VADD(TaL, TaO);
cannam@95 2363 Tdn = VADD(TaV, TaS);
cannam@95 2364 TdH = VSUB(Tdm, Tdn);
cannam@95 2365 Tev = VSUB(TaJ, TaK);
cannam@95 2366 Tey = VMUL(LDK(KP707106781), VADD(Tew, Tex));
cannam@95 2367 Tez = VADD(Tev, Tey);
cannam@95 2368 Tgi = VSUB(Tev, Tey);
cannam@95 2369 {
cannam@95 2370 V TeA, TeB, T1N, T22;
cannam@95 2371 TeA = VSUB(TaN, TaM);
cannam@95 2372 TeB = VMUL(LDK(KP707106781), VSUB(Tex, Tew));
cannam@95 2373 TeC = VADD(TeA, TeB);
cannam@95 2374 Tgj = VSUB(TeB, TeA);
cannam@95 2375 T1N = VADD(T1F, T1M);
cannam@95 2376 T22 = VADD(T1U, T21);
cannam@95 2377 T23 = VADD(T1N, T22);
cannam@95 2378 T5N = VSUB(T1N, T22);
cannam@95 2379 }
cannam@95 2380 {
cannam@95 2381 V T28, T2b, T7i, T7j;
cannam@95 2382 T28 = VSUB(T24, T27);
cannam@95 2383 T2b = VSUB(T29, T2a);
cannam@95 2384 T2c = VADD(T28, T2b);
cannam@95 2385 T5M = VSUB(T2b, T28);
cannam@95 2386 T7i = VADD(T27, T24);
cannam@95 2387 T7j = VSUB(T21, T1U);
cannam@95 2388 T7k = VADD(T7i, T7j);
cannam@95 2389 T8X = VSUB(T7j, T7i);
cannam@95 2390 }
cannam@95 2391 {
cannam@95 2392 V TaP, TaW, T7f, T7g;
cannam@95 2393 TaP = VSUB(TaL, TaO);
cannam@95 2394 TaW = VSUB(TaS, TaV);
cannam@95 2395 TaX = VFNMS(LDK(KP382683432), TaW, VMUL(LDK(KP923879532), TaP));
cannam@95 2396 Tcg = VFMA(LDK(KP382683432), TaP, VMUL(LDK(KP923879532), TaW));
cannam@95 2397 T7f = VSUB(T1F, T1M);
cannam@95 2398 T7g = VADD(T2a, T29);
cannam@95 2399 T7h = VADD(T7f, T7g);
cannam@95 2400 T8W = VSUB(T7f, T7g);
cannam@95 2401 }
cannam@95 2402 }
cannam@95 2403 {
cannam@95 2404 V T2J, TeL, T2V, Tb9, T30, TeO, T3c, Tbg, T2Q, TeM, T2S, Tbc, T37, TeP, T39;
cannam@95 2405 V Tbj;
cannam@95 2406 {
cannam@95 2407 V T2H, T2I, Tb7, T2T, T2U, Tb8;
cannam@95 2408 T2H = LD(&(xi[WS(is, 5)]), ivs, &(xi[WS(is, 1)]));
cannam@95 2409 T2I = LD(&(xi[WS(is, 69)]), ivs, &(xi[WS(is, 1)]));
cannam@95 2410 Tb7 = VADD(T2H, T2I);
cannam@95 2411 T2T = LD(&(xi[WS(is, 37)]), ivs, &(xi[WS(is, 1)]));
cannam@95 2412 T2U = LD(&(xi[WS(is, 101)]), ivs, &(xi[WS(is, 1)]));
cannam@95 2413 Tb8 = VADD(T2T, T2U);
cannam@95 2414 T2J = VSUB(T2H, T2I);
cannam@95 2415 TeL = VSUB(Tb7, Tb8);
cannam@95 2416 T2V = VSUB(T2T, T2U);
cannam@95 2417 Tb9 = VADD(Tb7, Tb8);
cannam@95 2418 }
cannam@95 2419 {
cannam@95 2420 V T2Y, T2Z, Tbe, T3a, T3b, Tbf;
cannam@95 2421 T2Y = LD(&(xi[WS(is, 125)]), ivs, &(xi[WS(is, 1)]));
cannam@95 2422 T2Z = LD(&(xi[WS(is, 61)]), ivs, &(xi[WS(is, 1)]));
cannam@95 2423 Tbe = VADD(T2Y, T2Z);
cannam@95 2424 T3a = LD(&(xi[WS(is, 29)]), ivs, &(xi[WS(is, 1)]));
cannam@95 2425 T3b = LD(&(xi[WS(is, 93)]), ivs, &(xi[WS(is, 1)]));
cannam@95 2426 Tbf = VADD(T3a, T3b);
cannam@95 2427 T30 = VSUB(T2Y, T2Z);
cannam@95 2428 TeO = VSUB(Tbe, Tbf);
cannam@95 2429 T3c = VSUB(T3a, T3b);
cannam@95 2430 Tbg = VADD(Tbe, Tbf);
cannam@95 2431 }
cannam@95 2432 {
cannam@95 2433 V T2M, Tba, T2P, Tbb;
cannam@95 2434 {
cannam@95 2435 V T2K, T2L, T2N, T2O;
cannam@95 2436 T2K = LD(&(xi[WS(is, 21)]), ivs, &(xi[WS(is, 1)]));
cannam@95 2437 T2L = LD(&(xi[WS(is, 85)]), ivs, &(xi[WS(is, 1)]));
cannam@95 2438 T2M = VSUB(T2K, T2L);
cannam@95 2439 Tba = VADD(T2K, T2L);
cannam@95 2440 T2N = LD(&(xi[WS(is, 117)]), ivs, &(xi[WS(is, 1)]));
cannam@95 2441 T2O = LD(&(xi[WS(is, 53)]), ivs, &(xi[WS(is, 1)]));
cannam@95 2442 T2P = VSUB(T2N, T2O);
cannam@95 2443 Tbb = VADD(T2N, T2O);
cannam@95 2444 }
cannam@95 2445 T2Q = VMUL(LDK(KP707106781), VADD(T2M, T2P));
cannam@95 2446 TeM = VSUB(Tbb, Tba);
cannam@95 2447 T2S = VMUL(LDK(KP707106781), VSUB(T2P, T2M));
cannam@95 2448 Tbc = VADD(Tba, Tbb);
cannam@95 2449 }
cannam@95 2450 {
cannam@95 2451 V T33, Tbh, T36, Tbi;
cannam@95 2452 {
cannam@95 2453 V T31, T32, T34, T35;
cannam@95 2454 T31 = LD(&(xi[WS(is, 13)]), ivs, &(xi[WS(is, 1)]));
cannam@95 2455 T32 = LD(&(xi[WS(is, 77)]), ivs, &(xi[WS(is, 1)]));
cannam@95 2456 T33 = VSUB(T31, T32);
cannam@95 2457 Tbh = VADD(T31, T32);
cannam@95 2458 T34 = LD(&(xi[WS(is, 109)]), ivs, &(xi[WS(is, 1)]));
cannam@95 2459 T35 = LD(&(xi[WS(is, 45)]), ivs, &(xi[WS(is, 1)]));
cannam@95 2460 T36 = VSUB(T34, T35);
cannam@95 2461 Tbi = VADD(T34, T35);
cannam@95 2462 }
cannam@95 2463 T37 = VMUL(LDK(KP707106781), VADD(T33, T36));
cannam@95 2464 TeP = VSUB(Tbi, Tbh);
cannam@95 2465 T39 = VMUL(LDK(KP707106781), VSUB(T36, T33));
cannam@95 2466 Tbj = VADD(Tbh, Tbi);
cannam@95 2467 }
cannam@95 2468 {
cannam@95 2469 V Tbd, Tbk, TeN, TeQ;
cannam@95 2470 Tbd = VSUB(Tb9, Tbc);
cannam@95 2471 Tbk = VSUB(Tbg, Tbj);
cannam@95 2472 Tbl = VMUL(LDK(KP707106781), VADD(Tbd, Tbk));
cannam@95 2473 Tbu = VMUL(LDK(KP707106781), VSUB(Tbk, Tbd));
cannam@95 2474 {
cannam@95 2475 V Td9, Tda, TeW, TeX;
cannam@95 2476 Td9 = VADD(Tb9, Tbc);
cannam@95 2477 Tda = VADD(Tbg, Tbj);
cannam@95 2478 Tdb = VADD(Td9, Tda);
cannam@95 2479 TdL = VSUB(Tda, Td9);
cannam@95 2480 TeW = VFNMS(LDK(KP382683432), TeL, VMUL(LDK(KP923879532), TeM));
cannam@95 2481 TeX = VFMA(LDK(KP382683432), TeO, VMUL(LDK(KP923879532), TeP));
cannam@95 2482 TeY = VADD(TeW, TeX);
cannam@95 2483 Tgu = VSUB(TeX, TeW);
cannam@95 2484 }
cannam@95 2485 TeN = VFMA(LDK(KP923879532), TeL, VMUL(LDK(KP382683432), TeM));
cannam@95 2486 TeQ = VFNMS(LDK(KP382683432), TeP, VMUL(LDK(KP923879532), TeO));
cannam@95 2487 TeR = VADD(TeN, TeQ);
cannam@95 2488 Tgq = VSUB(TeQ, TeN);
cannam@95 2489 {
cannam@95 2490 V T7t, T7C, T7w, T7D;
cannam@95 2491 {
cannam@95 2492 V T7r, T7s, T7u, T7v;
cannam@95 2493 T7r = VSUB(T2J, T2Q);
cannam@95 2494 T7s = VADD(T2V, T2S);
cannam@95 2495 T7t = VFMA(LDK(KP831469612), T7r, VMUL(LDK(KP555570233), T7s));
cannam@95 2496 T7C = VFNMS(LDK(KP555570233), T7r, VMUL(LDK(KP831469612), T7s));
cannam@95 2497 T7u = VSUB(T30, T37);
cannam@95 2498 T7v = VADD(T3c, T39);
cannam@95 2499 T7w = VFNMS(LDK(KP555570233), T7v, VMUL(LDK(KP831469612), T7u));
cannam@95 2500 T7D = VFMA(LDK(KP555570233), T7u, VMUL(LDK(KP831469612), T7v));
cannam@95 2501 }
cannam@95 2502 T7x = VADD(T7t, T7w);
cannam@95 2503 T98 = VSUB(T7D, T7C);
cannam@95 2504 T7E = VADD(T7C, T7D);
cannam@95 2505 T94 = VSUB(T7w, T7t);
cannam@95 2506 }
cannam@95 2507 {
cannam@95 2508 V T2X, T3q, T3e, T3r;
cannam@95 2509 {
cannam@95 2510 V T2R, T2W, T38, T3d;
cannam@95 2511 T2R = VADD(T2J, T2Q);
cannam@95 2512 T2W = VSUB(T2S, T2V);
cannam@95 2513 T2X = VFMA(LDK(KP980785280), T2R, VMUL(LDK(KP195090322), T2W));
cannam@95 2514 T3q = VFNMS(LDK(KP195090322), T2R, VMUL(LDK(KP980785280), T2W));
cannam@95 2515 T38 = VADD(T30, T37);
cannam@95 2516 T3d = VSUB(T39, T3c);
cannam@95 2517 T3e = VFNMS(LDK(KP195090322), T3d, VMUL(LDK(KP980785280), T38));
cannam@95 2518 T3r = VFMA(LDK(KP195090322), T38, VMUL(LDK(KP980785280), T3d));
cannam@95 2519 }
cannam@95 2520 T3f = VADD(T2X, T3e);
cannam@95 2521 T5Y = VSUB(T3r, T3q);
cannam@95 2522 T3s = VADD(T3q, T3r);
cannam@95 2523 T5U = VSUB(T3e, T2X);
cannam@95 2524 }
cannam@95 2525 }
cannam@95 2526 }
cannam@95 2527 {
cannam@95 2528 V T3Y, Tf6, T4a, TbG, T4f, Tf9, T4r, TbN, T45, Tf7, T47, TbJ, T4m, Tfa, T4o;
cannam@95 2529 V TbQ;
cannam@95 2530 {
cannam@95 2531 V T3W, T3X, TbE, T48, T49, TbF;
cannam@95 2532 T3W = LD(&(xi[WS(is, 3)]), ivs, &(xi[WS(is, 1)]));
cannam@95 2533 T3X = LD(&(xi[WS(is, 67)]), ivs, &(xi[WS(is, 1)]));
cannam@95 2534 TbE = VADD(T3W, T3X);
cannam@95 2535 T48 = LD(&(xi[WS(is, 35)]), ivs, &(xi[WS(is, 1)]));
cannam@95 2536 T49 = LD(&(xi[WS(is, 99)]), ivs, &(xi[WS(is, 1)]));
cannam@95 2537 TbF = VADD(T48, T49);
cannam@95 2538 T3Y = VSUB(T3W, T3X);
cannam@95 2539 Tf6 = VSUB(TbE, TbF);
cannam@95 2540 T4a = VSUB(T48, T49);
cannam@95 2541 TbG = VADD(TbE, TbF);
cannam@95 2542 }
cannam@95 2543 {
cannam@95 2544 V T4d, T4e, TbL, T4p, T4q, TbM;
cannam@95 2545 T4d = LD(&(xi[WS(is, 123)]), ivs, &(xi[WS(is, 1)]));
cannam@95 2546 T4e = LD(&(xi[WS(is, 59)]), ivs, &(xi[WS(is, 1)]));
cannam@95 2547 TbL = VADD(T4d, T4e);
cannam@95 2548 T4p = LD(&(xi[WS(is, 27)]), ivs, &(xi[WS(is, 1)]));
cannam@95 2549 T4q = LD(&(xi[WS(is, 91)]), ivs, &(xi[WS(is, 1)]));
cannam@95 2550 TbM = VADD(T4p, T4q);
cannam@95 2551 T4f = VSUB(T4d, T4e);
cannam@95 2552 Tf9 = VSUB(TbL, TbM);
cannam@95 2553 T4r = VSUB(T4p, T4q);
cannam@95 2554 TbN = VADD(TbL, TbM);
cannam@95 2555 }
cannam@95 2556 {
cannam@95 2557 V T41, TbH, T44, TbI;
cannam@95 2558 {
cannam@95 2559 V T3Z, T40, T42, T43;
cannam@95 2560 T3Z = LD(&(xi[WS(is, 19)]), ivs, &(xi[WS(is, 1)]));
cannam@95 2561 T40 = LD(&(xi[WS(is, 83)]), ivs, &(xi[WS(is, 1)]));
cannam@95 2562 T41 = VSUB(T3Z, T40);
cannam@95 2563 TbH = VADD(T3Z, T40);
cannam@95 2564 T42 = LD(&(xi[WS(is, 115)]), ivs, &(xi[WS(is, 1)]));
cannam@95 2565 T43 = LD(&(xi[WS(is, 51)]), ivs, &(xi[WS(is, 1)]));
cannam@95 2566 T44 = VSUB(T42, T43);
cannam@95 2567 TbI = VADD(T42, T43);
cannam@95 2568 }
cannam@95 2569 T45 = VMUL(LDK(KP707106781), VADD(T41, T44));
cannam@95 2570 Tf7 = VSUB(TbI, TbH);
cannam@95 2571 T47 = VMUL(LDK(KP707106781), VSUB(T44, T41));
cannam@95 2572 TbJ = VADD(TbH, TbI);
cannam@95 2573 }
cannam@95 2574 {
cannam@95 2575 V T4i, TbO, T4l, TbP;
cannam@95 2576 {
cannam@95 2577 V T4g, T4h, T4j, T4k;
cannam@95 2578 T4g = LD(&(xi[WS(is, 11)]), ivs, &(xi[WS(is, 1)]));
cannam@95 2579 T4h = LD(&(xi[WS(is, 75)]), ivs, &(xi[WS(is, 1)]));
cannam@95 2580 T4i = VSUB(T4g, T4h);
cannam@95 2581 TbO = VADD(T4g, T4h);
cannam@95 2582 T4j = LD(&(xi[WS(is, 107)]), ivs, &(xi[WS(is, 1)]));
cannam@95 2583 T4k = LD(&(xi[WS(is, 43)]), ivs, &(xi[WS(is, 1)]));
cannam@95 2584 T4l = VSUB(T4j, T4k);
cannam@95 2585 TbP = VADD(T4j, T4k);
cannam@95 2586 }
cannam@95 2587 T4m = VMUL(LDK(KP707106781), VADD(T4i, T4l));
cannam@95 2588 Tfa = VSUB(TbP, TbO);
cannam@95 2589 T4o = VMUL(LDK(KP707106781), VSUB(T4l, T4i));
cannam@95 2590 TbQ = VADD(TbO, TbP);
cannam@95 2591 }
cannam@95 2592 {
cannam@95 2593 V TbK, TbR, Tf8, Tfb;
cannam@95 2594 TbK = VSUB(TbG, TbJ);
cannam@95 2595 TbR = VSUB(TbN, TbQ);
cannam@95 2596 TbS = VMUL(LDK(KP707106781), VADD(TbK, TbR));
cannam@95 2597 Tc1 = VMUL(LDK(KP707106781), VSUB(TbR, TbK));
cannam@95 2598 {
cannam@95 2599 V Tdg, Tdh, Tfh, Tfi;
cannam@95 2600 Tdg = VADD(TbG, TbJ);
cannam@95 2601 Tdh = VADD(TbN, TbQ);
cannam@95 2602 Tdi = VADD(Tdg, Tdh);
cannam@95 2603 TdO = VSUB(Tdh, Tdg);
cannam@95 2604 Tfh = VFNMS(LDK(KP382683432), Tf6, VMUL(LDK(KP923879532), Tf7));
cannam@95 2605 Tfi = VFMA(LDK(KP382683432), Tf9, VMUL(LDK(KP923879532), Tfa));
cannam@95 2606 Tfj = VADD(Tfh, Tfi);
cannam@95 2607 Tgy = VSUB(Tfi, Tfh);
cannam@95 2608 }
cannam@95 2609 Tf8 = VFMA(LDK(KP923879532), Tf6, VMUL(LDK(KP382683432), Tf7));
cannam@95 2610 Tfb = VFNMS(LDK(KP382683432), Tfa, VMUL(LDK(KP923879532), Tf9));
cannam@95 2611 Tfc = VADD(Tf8, Tfb);
cannam@95 2612 TgA = VSUB(Tfb, Tf8);
cannam@95 2613 {
cannam@95 2614 V T7M, T7V, T7P, T7W;
cannam@95 2615 {
cannam@95 2616 V T7K, T7L, T7N, T7O;
cannam@95 2617 T7K = VSUB(T3Y, T45);
cannam@95 2618 T7L = VADD(T4a, T47);
cannam@95 2619 T7M = VFMA(LDK(KP831469612), T7K, VMUL(LDK(KP555570233), T7L));
cannam@95 2620 T7V = VFNMS(LDK(KP555570233), T7K, VMUL(LDK(KP831469612), T7L));
cannam@95 2621 T7N = VSUB(T4f, T4m);
cannam@95 2622 T7O = VADD(T4r, T4o);
cannam@95 2623 T7P = VFNMS(LDK(KP555570233), T7O, VMUL(LDK(KP831469612), T7N));
cannam@95 2624 T7W = VFMA(LDK(KP555570233), T7N, VMUL(LDK(KP831469612), T7O));
cannam@95 2625 }
cannam@95 2626 T7Q = VADD(T7M, T7P);
cannam@95 2627 T9e = VSUB(T7P, T7M);
cannam@95 2628 T7X = VADD(T7V, T7W);
cannam@95 2629 T9c = VSUB(T7W, T7V);
cannam@95 2630 }
cannam@95 2631 {
cannam@95 2632 V T4c, T4F, T4t, T4G;
cannam@95 2633 {
cannam@95 2634 V T46, T4b, T4n, T4s;
cannam@95 2635 T46 = VADD(T3Y, T45);
cannam@95 2636 T4b = VSUB(T47, T4a);
cannam@95 2637 T4c = VFMA(LDK(KP980785280), T46, VMUL(LDK(KP195090322), T4b));
cannam@95 2638 T4F = VFNMS(LDK(KP195090322), T46, VMUL(LDK(KP980785280), T4b));
cannam@95 2639 T4n = VADD(T4f, T4m);
cannam@95 2640 T4s = VSUB(T4o, T4r);
cannam@95 2641 T4t = VFNMS(LDK(KP195090322), T4s, VMUL(LDK(KP980785280), T4n));
cannam@95 2642 T4G = VFMA(LDK(KP195090322), T4n, VMUL(LDK(KP980785280), T4s));
cannam@95 2643 }
cannam@95 2644 T4u = VADD(T4c, T4t);
cannam@95 2645 T64 = VSUB(T4t, T4c);
cannam@95 2646 T4H = VADD(T4F, T4G);
cannam@95 2647 T62 = VSUB(T4G, T4F);
cannam@95 2648 }
cannam@95 2649 }
cannam@95 2650 }
cannam@95 2651 {
cannam@95 2652 V Td5, Tdx, TdC, TdE, Tdk, Tdt, Tds, Tdy, Tdz, TdD;
cannam@95 2653 {
cannam@95 2654 V Td1, Td4, TdA, TdB;
cannam@95 2655 Td1 = VADD(TcZ, Td0);
cannam@95 2656 Td4 = VADD(Td2, Td3);
cannam@95 2657 Td5 = VSUB(Td1, Td4);
cannam@95 2658 Tdx = VADD(Td1, Td4);
cannam@95 2659 TdA = VADD(Td8, Tdb);
cannam@95 2660 TdB = VADD(Tdf, Tdi);
cannam@95 2661 TdC = VADD(TdA, TdB);
cannam@95 2662 TdE = VBYI(VSUB(TdB, TdA));
cannam@95 2663 }
cannam@95 2664 {
cannam@95 2665 V Tdc, Tdj, Tdo, Tdr;
cannam@95 2666 Tdc = VSUB(Td8, Tdb);
cannam@95 2667 Tdj = VSUB(Tdf, Tdi);
cannam@95 2668 Tdk = VMUL(LDK(KP707106781), VADD(Tdc, Tdj));
cannam@95 2669 Tdt = VMUL(LDK(KP707106781), VSUB(Tdj, Tdc));
cannam@95 2670 Tdo = VADD(Tdm, Tdn);
cannam@95 2671 Tdr = VADD(Tdp, Tdq);
cannam@95 2672 Tds = VSUB(Tdo, Tdr);
cannam@95 2673 Tdy = VADD(Tdr, Tdo);
cannam@95 2674 }
cannam@95 2675 Tdz = VADD(Tdx, Tdy);
cannam@95 2676 ST(&(xo[WS(os, 64)]), VSUB(Tdz, TdC), ovs, &(xo[0]));
cannam@95 2677 ST(&(xo[0]), VADD(Tdz, TdC), ovs, &(xo[0]));
cannam@95 2678 TdD = VSUB(Tdx, Tdy);
cannam@95 2679 ST(&(xo[WS(os, 96)]), VSUB(TdD, TdE), ovs, &(xo[0]));
cannam@95 2680 ST(&(xo[WS(os, 32)]), VADD(TdD, TdE), ovs, &(xo[0]));
cannam@95 2681 {
cannam@95 2682 V Tdl, Tdu, Tdv, Tdw;
cannam@95 2683 Tdl = VADD(Td5, Tdk);
cannam@95 2684 Tdu = VBYI(VADD(Tds, Tdt));
cannam@95 2685 ST(&(xo[WS(os, 112)]), VSUB(Tdl, Tdu), ovs, &(xo[0]));
cannam@95 2686 ST(&(xo[WS(os, 16)]), VADD(Tdl, Tdu), ovs, &(xo[0]));
cannam@95 2687 Tdv = VSUB(Td5, Tdk);
cannam@95 2688 Tdw = VBYI(VSUB(Tdt, Tds));
cannam@95 2689 ST(&(xo[WS(os, 80)]), VSUB(Tdv, Tdw), ovs, &(xo[0]));
cannam@95 2690 ST(&(xo[WS(os, 48)]), VADD(Tdv, Tdw), ovs, &(xo[0]));
cannam@95 2691 }
cannam@95 2692 }
cannam@95 2693 {
cannam@95 2694 V TdJ, Te4, TdX, Te5, TdQ, Te1, TdU, Te2;
cannam@95 2695 {
cannam@95 2696 V TdF, TdI, TdV, TdW;
cannam@95 2697 TdF = VSUB(TcZ, Td0);
cannam@95 2698 TdI = VMUL(LDK(KP707106781), VADD(TdG, TdH));
cannam@95 2699 TdJ = VADD(TdF, TdI);
cannam@95 2700 Te4 = VSUB(TdF, TdI);
cannam@95 2701 TdV = VFNMS(LDK(KP382683432), TdK, VMUL(LDK(KP923879532), TdL));
cannam@95 2702 TdW = VFMA(LDK(KP382683432), TdN, VMUL(LDK(KP923879532), TdO));
cannam@95 2703 TdX = VADD(TdV, TdW);
cannam@95 2704 Te5 = VSUB(TdW, TdV);
cannam@95 2705 }
cannam@95 2706 {
cannam@95 2707 V TdM, TdP, TdS, TdT;
cannam@95 2708 TdM = VFMA(LDK(KP923879532), TdK, VMUL(LDK(KP382683432), TdL));
cannam@95 2709 TdP = VFNMS(LDK(KP382683432), TdO, VMUL(LDK(KP923879532), TdN));
cannam@95 2710 TdQ = VADD(TdM, TdP);
cannam@95 2711 Te1 = VSUB(TdP, TdM);
cannam@95 2712 TdS = VSUB(Td3, Td2);
cannam@95 2713 TdT = VMUL(LDK(KP707106781), VSUB(TdH, TdG));
cannam@95 2714 TdU = VADD(TdS, TdT);
cannam@95 2715 Te2 = VSUB(TdT, TdS);
cannam@95 2716 }
cannam@95 2717 {
cannam@95 2718 V TdR, TdY, Te7, Te8;
cannam@95 2719 TdR = VADD(TdJ, TdQ);
cannam@95 2720 TdY = VBYI(VADD(TdU, TdX));
cannam@95 2721 ST(&(xo[WS(os, 120)]), VSUB(TdR, TdY), ovs, &(xo[0]));
cannam@95 2722 ST(&(xo[WS(os, 8)]), VADD(TdR, TdY), ovs, &(xo[0]));
cannam@95 2723 Te7 = VBYI(VADD(Te2, Te1));
cannam@95 2724 Te8 = VADD(Te4, Te5);
cannam@95 2725 ST(&(xo[WS(os, 24)]), VADD(Te7, Te8), ovs, &(xo[0]));
cannam@95 2726 ST(&(xo[WS(os, 104)]), VSUB(Te8, Te7), ovs, &(xo[0]));
cannam@95 2727 }
cannam@95 2728 {
cannam@95 2729 V TdZ, Te0, Te3, Te6;
cannam@95 2730 TdZ = VSUB(TdJ, TdQ);
cannam@95 2731 Te0 = VBYI(VSUB(TdX, TdU));
cannam@95 2732 ST(&(xo[WS(os, 72)]), VSUB(TdZ, Te0), ovs, &(xo[0]));
cannam@95 2733 ST(&(xo[WS(os, 56)]), VADD(TdZ, Te0), ovs, &(xo[0]));
cannam@95 2734 Te3 = VBYI(VSUB(Te1, Te2));
cannam@95 2735 Te6 = VSUB(Te4, Te5);
cannam@95 2736 ST(&(xo[WS(os, 40)]), VADD(Te3, Te6), ovs, &(xo[0]));
cannam@95 2737 ST(&(xo[WS(os, 88)]), VSUB(Te6, Te3), ovs, &(xo[0]));
cannam@95 2738 }
cannam@95 2739 }
cannam@95 2740 {
cannam@95 2741 V TaZ, Tcs, Tci, Tcq, Tc4, Tct, Tcl, Tcp;
cannam@95 2742 {
cannam@95 2743 V Tat, TaY, Tce, Tch;
cannam@95 2744 Tat = VADD(Tad, Tas);
cannam@95 2745 TaY = VADD(TaI, TaX);
cannam@95 2746 TaZ = VADD(Tat, TaY);
cannam@95 2747 Tcs = VSUB(Tat, TaY);
cannam@95 2748 Tce = VADD(Tcc, Tcd);
cannam@95 2749 Tch = VADD(Tcf, Tcg);
cannam@95 2750 Tci = VADD(Tce, Tch);
cannam@95 2751 Tcq = VSUB(Tch, Tce);
cannam@95 2752 {
cannam@95 2753 V Tbw, Tcj, Tc3, Tck;
cannam@95 2754 {
cannam@95 2755 V Tbm, Tbv, TbT, Tc2;
cannam@95 2756 Tbm = VADD(Tb6, Tbl);
cannam@95 2757 Tbv = VADD(Tbt, Tbu);
cannam@95 2758 Tbw = VFMA(LDK(KP980785280), Tbm, VMUL(LDK(KP195090322), Tbv));
cannam@95 2759 Tcj = VFNMS(LDK(KP195090322), Tbm, VMUL(LDK(KP980785280), Tbv));
cannam@95 2760 TbT = VADD(TbD, TbS);
cannam@95 2761 Tc2 = VADD(Tc0, Tc1);
cannam@95 2762 Tc3 = VFNMS(LDK(KP195090322), Tc2, VMUL(LDK(KP980785280), TbT));
cannam@95 2763 Tck = VFMA(LDK(KP195090322), TbT, VMUL(LDK(KP980785280), Tc2));
cannam@95 2764 }
cannam@95 2765 Tc4 = VADD(Tbw, Tc3);
cannam@95 2766 Tct = VSUB(Tck, Tcj);
cannam@95 2767 Tcl = VADD(Tcj, Tck);
cannam@95 2768 Tcp = VSUB(Tc3, Tbw);
cannam@95 2769 }
cannam@95 2770 }
cannam@95 2771 {
cannam@95 2772 V Tc5, Tcm, Tcv, Tcw;
cannam@95 2773 Tc5 = VADD(TaZ, Tc4);
cannam@95 2774 Tcm = VBYI(VADD(Tci, Tcl));
cannam@95 2775 ST(&(xo[WS(os, 124)]), VSUB(Tc5, Tcm), ovs, &(xo[0]));
cannam@95 2776 ST(&(xo[WS(os, 4)]), VADD(Tc5, Tcm), ovs, &(xo[0]));
cannam@95 2777 Tcv = VBYI(VADD(Tcq, Tcp));
cannam@95 2778 Tcw = VADD(Tcs, Tct);
cannam@95 2779 ST(&(xo[WS(os, 28)]), VADD(Tcv, Tcw), ovs, &(xo[0]));
cannam@95 2780 ST(&(xo[WS(os, 100)]), VSUB(Tcw, Tcv), ovs, &(xo[0]));
cannam@95 2781 }
cannam@95 2782 {
cannam@95 2783 V Tcn, Tco, Tcr, Tcu;
cannam@95 2784 Tcn = VSUB(TaZ, Tc4);
cannam@95 2785 Tco = VBYI(VSUB(Tcl, Tci));
cannam@95 2786 ST(&(xo[WS(os, 68)]), VSUB(Tcn, Tco), ovs, &(xo[0]));
cannam@95 2787 ST(&(xo[WS(os, 60)]), VADD(Tcn, Tco), ovs, &(xo[0]));
cannam@95 2788 Tcr = VBYI(VSUB(Tcp, Tcq));
cannam@95 2789 Tcu = VSUB(Tcs, Tct);
cannam@95 2790 ST(&(xo[WS(os, 36)]), VADD(Tcr, Tcu), ovs, &(xo[0]));
cannam@95 2791 ST(&(xo[WS(os, 92)]), VSUB(Tcu, Tcr), ovs, &(xo[0]));
cannam@95 2792 }
cannam@95 2793 }
cannam@95 2794 {
cannam@95 2795 V Tcz, TcU, TcK, TcS, TcG, TcV, TcN, TcR;
cannam@95 2796 {
cannam@95 2797 V Tcx, Tcy, TcI, TcJ;
cannam@95 2798 Tcx = VSUB(Tad, Tas);
cannam@95 2799 Tcy = VSUB(Tcg, Tcf);
cannam@95 2800 Tcz = VADD(Tcx, Tcy);
cannam@95 2801 TcU = VSUB(Tcx, Tcy);
cannam@95 2802 TcI = VSUB(Tcd, Tcc);
cannam@95 2803 TcJ = VSUB(TaX, TaI);
cannam@95 2804 TcK = VADD(TcI, TcJ);
cannam@95 2805 TcS = VSUB(TcJ, TcI);
cannam@95 2806 {
cannam@95 2807 V TcC, TcL, TcF, TcM;
cannam@95 2808 {
cannam@95 2809 V TcA, TcB, TcD, TcE;
cannam@95 2810 TcA = VSUB(Tb6, Tbl);
cannam@95 2811 TcB = VSUB(Tbu, Tbt);
cannam@95 2812 TcC = VFMA(LDK(KP831469612), TcA, VMUL(LDK(KP555570233), TcB));
cannam@95 2813 TcL = VFNMS(LDK(KP555570233), TcA, VMUL(LDK(KP831469612), TcB));
cannam@95 2814 TcD = VSUB(TbD, TbS);
cannam@95 2815 TcE = VSUB(Tc1, Tc0);
cannam@95 2816 TcF = VFNMS(LDK(KP555570233), TcE, VMUL(LDK(KP831469612), TcD));
cannam@95 2817 TcM = VFMA(LDK(KP555570233), TcD, VMUL(LDK(KP831469612), TcE));
cannam@95 2818 }
cannam@95 2819 TcG = VADD(TcC, TcF);
cannam@95 2820 TcV = VSUB(TcM, TcL);
cannam@95 2821 TcN = VADD(TcL, TcM);
cannam@95 2822 TcR = VSUB(TcF, TcC);
cannam@95 2823 }
cannam@95 2824 }
cannam@95 2825 {
cannam@95 2826 V TcH, TcO, TcX, TcY;
cannam@95 2827 TcH = VADD(Tcz, TcG);
cannam@95 2828 TcO = VBYI(VADD(TcK, TcN));
cannam@95 2829 ST(&(xo[WS(os, 116)]), VSUB(TcH, TcO), ovs, &(xo[0]));
cannam@95 2830 ST(&(xo[WS(os, 12)]), VADD(TcH, TcO), ovs, &(xo[0]));
cannam@95 2831 TcX = VBYI(VADD(TcS, TcR));
cannam@95 2832 TcY = VADD(TcU, TcV);
cannam@95 2833 ST(&(xo[WS(os, 20)]), VADD(TcX, TcY), ovs, &(xo[0]));
cannam@95 2834 ST(&(xo[WS(os, 108)]), VSUB(TcY, TcX), ovs, &(xo[0]));
cannam@95 2835 }
cannam@95 2836 {
cannam@95 2837 V TcP, TcQ, TcT, TcW;
cannam@95 2838 TcP = VSUB(Tcz, TcG);
cannam@95 2839 TcQ = VBYI(VSUB(TcN, TcK));
cannam@95 2840 ST(&(xo[WS(os, 76)]), VSUB(TcP, TcQ), ovs, &(xo[0]));
cannam@95 2841 ST(&(xo[WS(os, 52)]), VADD(TcP, TcQ), ovs, &(xo[0]));
cannam@95 2842 TcT = VBYI(VSUB(TcR, TcS));
cannam@95 2843 TcW = VSUB(TcU, TcV);
cannam@95 2844 ST(&(xo[WS(os, 44)]), VADD(TcT, TcW), ovs, &(xo[0]));
cannam@95 2845 ST(&(xo[WS(os, 84)]), VSUB(TcW, TcT), ovs, &(xo[0]));
cannam@95 2846 }
cannam@95 2847 }
cannam@95 2848 {
cannam@95 2849 V TeF, Tg8, TfI, Tg0, Tfy, Tga, TfG, TfP, Tfm, TfJ, TfB, TfF, TfW, Tgb, Tg3;
cannam@95 2850 V Tg7;
cannam@95 2851 {
cannam@95 2852 V Tel, TfY, TeE, TfZ, Teu, TeD;
cannam@95 2853 Tel = VADD(Ted, Tek);
cannam@95 2854 TfY = VSUB(Tft, Tfq);
cannam@95 2855 Teu = VFMA(LDK(KP980785280), Teq, VMUL(LDK(KP195090322), Tet));
cannam@95 2856 TeD = VFNMS(LDK(KP195090322), TeC, VMUL(LDK(KP980785280), Tez));
cannam@95 2857 TeE = VADD(Teu, TeD);
cannam@95 2858 TfZ = VSUB(TeD, Teu);
cannam@95 2859 TeF = VADD(Tel, TeE);
cannam@95 2860 Tg8 = VSUB(TfZ, TfY);
cannam@95 2861 TfI = VSUB(Tel, TeE);
cannam@95 2862 Tg0 = VADD(TfY, TfZ);
cannam@95 2863 }
cannam@95 2864 {
cannam@95 2865 V Tfu, TfN, Tfx, TfO, Tfv, Tfw;
cannam@95 2866 Tfu = VADD(Tfq, Tft);
cannam@95 2867 TfN = VSUB(Ted, Tek);
cannam@95 2868 Tfv = VFNMS(LDK(KP195090322), Teq, VMUL(LDK(KP980785280), Tet));
cannam@95 2869 Tfw = VFMA(LDK(KP195090322), Tez, VMUL(LDK(KP980785280), TeC));
cannam@95 2870 Tfx = VADD(Tfv, Tfw);
cannam@95 2871 TfO = VSUB(Tfw, Tfv);
cannam@95 2872 Tfy = VADD(Tfu, Tfx);
cannam@95 2873 Tga = VSUB(TfN, TfO);
cannam@95 2874 TfG = VSUB(Tfx, Tfu);
cannam@95 2875 TfP = VADD(TfN, TfO);
cannam@95 2876 }
cannam@95 2877 {
cannam@95 2878 V Tf0, Tfz, Tfl, TfA;
cannam@95 2879 {
cannam@95 2880 V TeS, TeZ, Tfd, Tfk;
cannam@95 2881 TeS = VADD(TeK, TeR);
cannam@95 2882 TeZ = VADD(TeV, TeY);
cannam@95 2883 Tf0 = VFMA(LDK(KP995184726), TeS, VMUL(LDK(KP098017140), TeZ));
cannam@95 2884 Tfz = VFNMS(LDK(KP098017140), TeS, VMUL(LDK(KP995184726), TeZ));
cannam@95 2885 Tfd = VADD(Tf5, Tfc);
cannam@95 2886 Tfk = VADD(Tfg, Tfj);
cannam@95 2887 Tfl = VFNMS(LDK(KP098017140), Tfk, VMUL(LDK(KP995184726), Tfd));
cannam@95 2888 TfA = VFMA(LDK(KP098017140), Tfd, VMUL(LDK(KP995184726), Tfk));
cannam@95 2889 }
cannam@95 2890 Tfm = VADD(Tf0, Tfl);
cannam@95 2891 TfJ = VSUB(TfA, Tfz);
cannam@95 2892 TfB = VADD(Tfz, TfA);
cannam@95 2893 TfF = VSUB(Tfl, Tf0);
cannam@95 2894 }
cannam@95 2895 {
cannam@95 2896 V TfS, Tg1, TfV, Tg2;
cannam@95 2897 {
cannam@95 2898 V TfQ, TfR, TfT, TfU;
cannam@95 2899 TfQ = VSUB(TeK, TeR);
cannam@95 2900 TfR = VSUB(TeY, TeV);
cannam@95 2901 TfS = VFMA(LDK(KP773010453), TfQ, VMUL(LDK(KP634393284), TfR));
cannam@95 2902 Tg1 = VFNMS(LDK(KP634393284), TfQ, VMUL(LDK(KP773010453), TfR));
cannam@95 2903 TfT = VSUB(Tf5, Tfc);
cannam@95 2904 TfU = VSUB(Tfj, Tfg);
cannam@95 2905 TfV = VFNMS(LDK(KP634393284), TfU, VMUL(LDK(KP773010453), TfT));
cannam@95 2906 Tg2 = VFMA(LDK(KP634393284), TfT, VMUL(LDK(KP773010453), TfU));
cannam@95 2907 }
cannam@95 2908 TfW = VADD(TfS, TfV);
cannam@95 2909 Tgb = VSUB(Tg2, Tg1);
cannam@95 2910 Tg3 = VADD(Tg1, Tg2);
cannam@95 2911 Tg7 = VSUB(TfV, TfS);
cannam@95 2912 }
cannam@95 2913 {
cannam@95 2914 V Tfn, TfC, Tg9, Tgc;
cannam@95 2915 Tfn = VADD(TeF, Tfm);
cannam@95 2916 TfC = VBYI(VADD(Tfy, TfB));
cannam@95 2917 ST(&(xo[WS(os, 126)]), VSUB(Tfn, TfC), ovs, &(xo[0]));
cannam@95 2918 ST(&(xo[WS(os, 2)]), VADD(Tfn, TfC), ovs, &(xo[0]));
cannam@95 2919 Tg9 = VBYI(VSUB(Tg7, Tg8));
cannam@95 2920 Tgc = VSUB(Tga, Tgb);
cannam@95 2921 ST(&(xo[WS(os, 46)]), VADD(Tg9, Tgc), ovs, &(xo[0]));
cannam@95 2922 ST(&(xo[WS(os, 82)]), VSUB(Tgc, Tg9), ovs, &(xo[0]));
cannam@95 2923 }
cannam@95 2924 {
cannam@95 2925 V Tgd, Tge, TfD, TfE;
cannam@95 2926 Tgd = VBYI(VADD(Tg8, Tg7));
cannam@95 2927 Tge = VADD(Tga, Tgb);
cannam@95 2928 ST(&(xo[WS(os, 18)]), VADD(Tgd, Tge), ovs, &(xo[0]));
cannam@95 2929 ST(&(xo[WS(os, 110)]), VSUB(Tge, Tgd), ovs, &(xo[0]));
cannam@95 2930 TfD = VSUB(TeF, Tfm);
cannam@95 2931 TfE = VBYI(VSUB(TfB, Tfy));
cannam@95 2932 ST(&(xo[WS(os, 66)]), VSUB(TfD, TfE), ovs, &(xo[0]));
cannam@95 2933 ST(&(xo[WS(os, 62)]), VADD(TfD, TfE), ovs, &(xo[0]));
cannam@95 2934 }
cannam@95 2935 {
cannam@95 2936 V TfH, TfK, TfX, Tg4;
cannam@95 2937 TfH = VBYI(VSUB(TfF, TfG));
cannam@95 2938 TfK = VSUB(TfI, TfJ);
cannam@95 2939 ST(&(xo[WS(os, 34)]), VADD(TfH, TfK), ovs, &(xo[0]));
cannam@95 2940 ST(&(xo[WS(os, 94)]), VSUB(TfK, TfH), ovs, &(xo[0]));
cannam@95 2941 TfX = VADD(TfP, TfW);
cannam@95 2942 Tg4 = VBYI(VADD(Tg0, Tg3));
cannam@95 2943 ST(&(xo[WS(os, 114)]), VSUB(TfX, Tg4), ovs, &(xo[0]));
cannam@95 2944 ST(&(xo[WS(os, 14)]), VADD(TfX, Tg4), ovs, &(xo[0]));
cannam@95 2945 }
cannam@95 2946 {
cannam@95 2947 V Tg5, Tg6, TfL, TfM;
cannam@95 2948 Tg5 = VSUB(TfP, TfW);
cannam@95 2949 Tg6 = VBYI(VSUB(Tg3, Tg0));
cannam@95 2950 ST(&(xo[WS(os, 78)]), VSUB(Tg5, Tg6), ovs, &(xo[0]));
cannam@95 2951 ST(&(xo[WS(os, 50)]), VADD(Tg5, Tg6), ovs, &(xo[0]));
cannam@95 2952 TfL = VBYI(VADD(TfG, TfF));
cannam@95 2953 TfM = VADD(TfI, TfJ);
cannam@95 2954 ST(&(xo[WS(os, 30)]), VADD(TfL, TfM), ovs, &(xo[0]));
cannam@95 2955 ST(&(xo[WS(os, 98)]), VSUB(TfM, TfL), ovs, &(xo[0]));
cannam@95 2956 }
cannam@95 2957 }
cannam@95 2958 {
cannam@95 2959 V Tgp, Thm, TgW, The, TgM, Tho, TgU, Th3, TgE, TgX, TgP, TgT, Tha, Thp, Thh;
cannam@95 2960 V Thl;
cannam@95 2961 {
cannam@95 2962 V Tgh, Thc, Tgo, Thd, Tgk, Tgn;
cannam@95 2963 Tgh = VSUB(Tgf, Tgg);
cannam@95 2964 Thc = VADD(TgH, TgG);
cannam@95 2965 Tgk = VFMA(LDK(KP555570233), Tgi, VMUL(LDK(KP831469612), Tgj));
cannam@95 2966 Tgn = VFNMS(LDK(KP555570233), Tgm, VMUL(LDK(KP831469612), Tgl));
cannam@95 2967 Tgo = VSUB(Tgk, Tgn);
cannam@95 2968 Thd = VADD(Tgn, Tgk);
cannam@95 2969 Tgp = VADD(Tgh, Tgo);
cannam@95 2970 Thm = VSUB(Thd, Thc);
cannam@95 2971 TgW = VSUB(Tgh, Tgo);
cannam@95 2972 The = VADD(Thc, Thd);
cannam@95 2973 }
cannam@95 2974 {
cannam@95 2975 V TgI, Th1, TgL, Th2, TgJ, TgK;
cannam@95 2976 TgI = VSUB(TgG, TgH);
cannam@95 2977 Th1 = VADD(Tgf, Tgg);
cannam@95 2978 TgJ = VFNMS(LDK(KP555570233), Tgj, VMUL(LDK(KP831469612), Tgi));
cannam@95 2979 TgK = VFMA(LDK(KP831469612), Tgm, VMUL(LDK(KP555570233), Tgl));
cannam@95 2980 TgL = VSUB(TgJ, TgK);
cannam@95 2981 Th2 = VADD(TgK, TgJ);
cannam@95 2982 TgM = VADD(TgI, TgL);
cannam@95 2983 Tho = VSUB(Th1, Th2);
cannam@95 2984 TgU = VSUB(TgL, TgI);
cannam@95 2985 Th3 = VADD(Th1, Th2);
cannam@95 2986 }
cannam@95 2987 {
cannam@95 2988 V Tgw, TgN, TgD, TgO;
cannam@95 2989 {
cannam@95 2990 V Tgs, Tgv, Tgz, TgC;
cannam@95 2991 Tgs = VSUB(Tgq, Tgr);
cannam@95 2992 Tgv = VSUB(Tgt, Tgu);
cannam@95 2993 Tgw = VFMA(LDK(KP471396736), Tgs, VMUL(LDK(KP881921264), Tgv));
cannam@95 2994 TgN = VFNMS(LDK(KP471396736), Tgv, VMUL(LDK(KP881921264), Tgs));
cannam@95 2995 Tgz = VSUB(Tgx, Tgy);
cannam@95 2996 TgC = VSUB(TgA, TgB);
cannam@95 2997 TgD = VFNMS(LDK(KP471396736), TgC, VMUL(LDK(KP881921264), Tgz));
cannam@95 2998 TgO = VFMA(LDK(KP881921264), TgC, VMUL(LDK(KP471396736), Tgz));
cannam@95 2999 }
cannam@95 3000 TgE = VADD(Tgw, TgD);
cannam@95 3001 TgX = VSUB(TgO, TgN);
cannam@95 3002 TgP = VADD(TgN, TgO);
cannam@95 3003 TgT = VSUB(TgD, Tgw);
cannam@95 3004 }
cannam@95 3005 {
cannam@95 3006 V Th6, Thf, Th9, Thg;
cannam@95 3007 {
cannam@95 3008 V Th4, Th5, Th7, Th8;
cannam@95 3009 Th4 = VADD(Tgr, Tgq);
cannam@95 3010 Th5 = VADD(Tgt, Tgu);
cannam@95 3011 Th6 = VFMA(LDK(KP290284677), Th4, VMUL(LDK(KP956940335), Th5));
cannam@95 3012 Thf = VFNMS(LDK(KP290284677), Th5, VMUL(LDK(KP956940335), Th4));
cannam@95 3013 Th7 = VADD(Tgx, Tgy);
cannam@95 3014 Th8 = VADD(TgB, TgA);
cannam@95 3015 Th9 = VFNMS(LDK(KP290284677), Th8, VMUL(LDK(KP956940335), Th7));
cannam@95 3016 Thg = VFMA(LDK(KP956940335), Th8, VMUL(LDK(KP290284677), Th7));
cannam@95 3017 }
cannam@95 3018 Tha = VADD(Th6, Th9);
cannam@95 3019 Thp = VSUB(Thg, Thf);
cannam@95 3020 Thh = VADD(Thf, Thg);
cannam@95 3021 Thl = VSUB(Th9, Th6);
cannam@95 3022 }
cannam@95 3023 {
cannam@95 3024 V TgF, TgQ, Thn, Thq;
cannam@95 3025 TgF = VADD(Tgp, TgE);
cannam@95 3026 TgQ = VBYI(VADD(TgM, TgP));
cannam@95 3027 ST(&(xo[WS(os, 118)]), VSUB(TgF, TgQ), ovs, &(xo[0]));
cannam@95 3028 ST(&(xo[WS(os, 10)]), VADD(TgF, TgQ), ovs, &(xo[0]));
cannam@95 3029 Thn = VBYI(VSUB(Thl, Thm));
cannam@95 3030 Thq = VSUB(Tho, Thp);
cannam@95 3031 ST(&(xo[WS(os, 38)]), VADD(Thn, Thq), ovs, &(xo[0]));
cannam@95 3032 ST(&(xo[WS(os, 90)]), VSUB(Thq, Thn), ovs, &(xo[0]));
cannam@95 3033 }
cannam@95 3034 {
cannam@95 3035 V Thr, Ths, TgR, TgS;
cannam@95 3036 Thr = VBYI(VADD(Thm, Thl));
cannam@95 3037 Ths = VADD(Tho, Thp);
cannam@95 3038 ST(&(xo[WS(os, 26)]), VADD(Thr, Ths), ovs, &(xo[0]));
cannam@95 3039 ST(&(xo[WS(os, 102)]), VSUB(Ths, Thr), ovs, &(xo[0]));
cannam@95 3040 TgR = VSUB(Tgp, TgE);
cannam@95 3041 TgS = VBYI(VSUB(TgP, TgM));
cannam@95 3042 ST(&(xo[WS(os, 74)]), VSUB(TgR, TgS), ovs, &(xo[0]));
cannam@95 3043 ST(&(xo[WS(os, 54)]), VADD(TgR, TgS), ovs, &(xo[0]));
cannam@95 3044 }
cannam@95 3045 {
cannam@95 3046 V TgV, TgY, Thb, Thi;
cannam@95 3047 TgV = VBYI(VSUB(TgT, TgU));
cannam@95 3048 TgY = VSUB(TgW, TgX);
cannam@95 3049 ST(&(xo[WS(os, 42)]), VADD(TgV, TgY), ovs, &(xo[0]));
cannam@95 3050 ST(&(xo[WS(os, 86)]), VSUB(TgY, TgV), ovs, &(xo[0]));
cannam@95 3051 Thb = VADD(Th3, Tha);
cannam@95 3052 Thi = VBYI(VADD(The, Thh));
cannam@95 3053 ST(&(xo[WS(os, 122)]), VSUB(Thb, Thi), ovs, &(xo[0]));
cannam@95 3054 ST(&(xo[WS(os, 6)]), VADD(Thb, Thi), ovs, &(xo[0]));
cannam@95 3055 }
cannam@95 3056 {
cannam@95 3057 V Thj, Thk, TgZ, Th0;
cannam@95 3058 Thj = VSUB(Th3, Tha);
cannam@95 3059 Thk = VBYI(VSUB(Thh, The));
cannam@95 3060 ST(&(xo[WS(os, 70)]), VSUB(Thj, Thk), ovs, &(xo[0]));
cannam@95 3061 ST(&(xo[WS(os, 58)]), VADD(Thj, Thk), ovs, &(xo[0]));
cannam@95 3062 TgZ = VBYI(VADD(TgU, TgT));
cannam@95 3063 Th0 = VADD(TgW, TgX);
cannam@95 3064 ST(&(xo[WS(os, 22)]), VADD(TgZ, Th0), ovs, &(xo[0]));
cannam@95 3065 ST(&(xo[WS(os, 106)]), VSUB(Th0, TgZ), ovs, &(xo[0]));
cannam@95 3066 }
cannam@95 3067 }
cannam@95 3068 {
cannam@95 3069 V T80, T8n, T8f, T8j, T8A, T8P, T8H, T8L, T7n, T8M, T8O, T8c, T8k, T8t, T8E;
cannam@95 3070 V T8m;
cannam@95 3071 {
cannam@95 3072 V T7G, T8d, T7Z, T8e;
cannam@95 3073 {
cannam@95 3074 V T7y, T7F, T7R, T7Y;
cannam@95 3075 T7y = VADD(T7q, T7x);
cannam@95 3076 T7F = VADD(T7B, T7E);
cannam@95 3077 T7G = VFMA(LDK(KP989176509), T7y, VMUL(LDK(KP146730474), T7F));
cannam@95 3078 T8d = VFNMS(LDK(KP146730474), T7y, VMUL(LDK(KP989176509), T7F));
cannam@95 3079 T7R = VADD(T7J, T7Q);
cannam@95 3080 T7Y = VADD(T7U, T7X);
cannam@95 3081 T7Z = VFNMS(LDK(KP146730474), T7Y, VMUL(LDK(KP989176509), T7R));
cannam@95 3082 T8e = VFMA(LDK(KP146730474), T7R, VMUL(LDK(KP989176509), T7Y));
cannam@95 3083 }
cannam@95 3084 T80 = VADD(T7G, T7Z);
cannam@95 3085 T8n = VSUB(T8e, T8d);
cannam@95 3086 T8f = VADD(T8d, T8e);
cannam@95 3087 T8j = VSUB(T7Z, T7G);
cannam@95 3088 }
cannam@95 3089 {
cannam@95 3090 V T8w, T8F, T8z, T8G;
cannam@95 3091 {
cannam@95 3092 V T8u, T8v, T8x, T8y;
cannam@95 3093 T8u = VSUB(T7q, T7x);
cannam@95 3094 T8v = VSUB(T7E, T7B);
cannam@95 3095 T8w = VFMA(LDK(KP803207531), T8u, VMUL(LDK(KP595699304), T8v));
cannam@95 3096 T8F = VFNMS(LDK(KP595699304), T8u, VMUL(LDK(KP803207531), T8v));
cannam@95 3097 T8x = VSUB(T7J, T7Q);
cannam@95 3098 T8y = VSUB(T7X, T7U);
cannam@95 3099 T8z = VFNMS(LDK(KP595699304), T8y, VMUL(LDK(KP803207531), T8x));
cannam@95 3100 T8G = VFMA(LDK(KP595699304), T8x, VMUL(LDK(KP803207531), T8y));
cannam@95 3101 }
cannam@95 3102 T8A = VADD(T8w, T8z);
cannam@95 3103 T8P = VSUB(T8G, T8F);
cannam@95 3104 T8H = VADD(T8F, T8G);
cannam@95 3105 T8L = VSUB(T8z, T8w);
cannam@95 3106 }
cannam@95 3107 {
cannam@95 3108 V T77, T8r, T88, T8C, T7m, T8D, T8b, T8s, T76, T87;
cannam@95 3109 T76 = VADD(T72, T75);
cannam@95 3110 T77 = VADD(T6Z, T76);
cannam@95 3111 T8r = VSUB(T6Z, T76);
cannam@95 3112 T87 = VADD(T85, T86);
cannam@95 3113 T88 = VADD(T84, T87);
cannam@95 3114 T8C = VSUB(T87, T84);
cannam@95 3115 {
cannam@95 3116 V T7e, T7l, T89, T8a;
cannam@95 3117 T7e = VFMA(LDK(KP956940335), T7a, VMUL(LDK(KP290284677), T7d));
cannam@95 3118 T7l = VFNMS(LDK(KP290284677), T7k, VMUL(LDK(KP956940335), T7h));
cannam@95 3119 T7m = VADD(T7e, T7l);
cannam@95 3120 T8D = VSUB(T7l, T7e);
cannam@95 3121 T89 = VFNMS(LDK(KP290284677), T7a, VMUL(LDK(KP956940335), T7d));
cannam@95 3122 T8a = VFMA(LDK(KP290284677), T7h, VMUL(LDK(KP956940335), T7k));
cannam@95 3123 T8b = VADD(T89, T8a);
cannam@95 3124 T8s = VSUB(T8a, T89);
cannam@95 3125 }
cannam@95 3126 T7n = VADD(T77, T7m);
cannam@95 3127 T8M = VSUB(T8D, T8C);
cannam@95 3128 T8O = VSUB(T8r, T8s);
cannam@95 3129 T8c = VADD(T88, T8b);
cannam@95 3130 T8k = VSUB(T8b, T88);
cannam@95 3131 T8t = VADD(T8r, T8s);
cannam@95 3132 T8E = VADD(T8C, T8D);
cannam@95 3133 T8m = VSUB(T77, T7m);
cannam@95 3134 }
cannam@95 3135 {
cannam@95 3136 V T81, T8g, T8N, T8Q;
cannam@95 3137 T81 = VADD(T7n, T80);
cannam@95 3138 T8g = VBYI(VADD(T8c, T8f));
cannam@95 3139 ST(&(xo[WS(os, 125)]), VSUB(T81, T8g), ovs, &(xo[WS(os, 1)]));
cannam@95 3140 ST(&(xo[WS(os, 3)]), VADD(T81, T8g), ovs, &(xo[WS(os, 1)]));
cannam@95 3141 T8N = VBYI(VSUB(T8L, T8M));
cannam@95 3142 T8Q = VSUB(T8O, T8P);
cannam@95 3143 ST(&(xo[WS(os, 45)]), VADD(T8N, T8Q), ovs, &(xo[WS(os, 1)]));
cannam@95 3144 ST(&(xo[WS(os, 83)]), VSUB(T8Q, T8N), ovs, &(xo[WS(os, 1)]));
cannam@95 3145 }
cannam@95 3146 {
cannam@95 3147 V T8R, T8S, T8h, T8i;
cannam@95 3148 T8R = VBYI(VADD(T8M, T8L));
cannam@95 3149 T8S = VADD(T8O, T8P);
cannam@95 3150 ST(&(xo[WS(os, 19)]), VADD(T8R, T8S), ovs, &(xo[WS(os, 1)]));
cannam@95 3151 ST(&(xo[WS(os, 109)]), VSUB(T8S, T8R), ovs, &(xo[WS(os, 1)]));
cannam@95 3152 T8h = VSUB(T7n, T80);
cannam@95 3153 T8i = VBYI(VSUB(T8f, T8c));
cannam@95 3154 ST(&(xo[WS(os, 67)]), VSUB(T8h, T8i), ovs, &(xo[WS(os, 1)]));
cannam@95 3155 ST(&(xo[WS(os, 61)]), VADD(T8h, T8i), ovs, &(xo[WS(os, 1)]));
cannam@95 3156 }
cannam@95 3157 {
cannam@95 3158 V T8l, T8o, T8B, T8I;
cannam@95 3159 T8l = VBYI(VSUB(T8j, T8k));
cannam@95 3160 T8o = VSUB(T8m, T8n);
cannam@95 3161 ST(&(xo[WS(os, 35)]), VADD(T8l, T8o), ovs, &(xo[WS(os, 1)]));
cannam@95 3162 ST(&(xo[WS(os, 93)]), VSUB(T8o, T8l), ovs, &(xo[WS(os, 1)]));
cannam@95 3163 T8B = VADD(T8t, T8A);
cannam@95 3164 T8I = VBYI(VADD(T8E, T8H));
cannam@95 3165 ST(&(xo[WS(os, 115)]), VSUB(T8B, T8I), ovs, &(xo[WS(os, 1)]));
cannam@95 3166 ST(&(xo[WS(os, 13)]), VADD(T8B, T8I), ovs, &(xo[WS(os, 1)]));
cannam@95 3167 }
cannam@95 3168 {
cannam@95 3169 V T8J, T8K, T8p, T8q;
cannam@95 3170 T8J = VSUB(T8t, T8A);
cannam@95 3171 T8K = VBYI(VSUB(T8H, T8E));
cannam@95 3172 ST(&(xo[WS(os, 77)]), VSUB(T8J, T8K), ovs, &(xo[WS(os, 1)]));
cannam@95 3173 ST(&(xo[WS(os, 51)]), VADD(T8J, T8K), ovs, &(xo[WS(os, 1)]));
cannam@95 3174 T8p = VBYI(VADD(T8k, T8j));
cannam@95 3175 T8q = VADD(T8m, T8n);
cannam@95 3176 ST(&(xo[WS(os, 29)]), VADD(T8p, T8q), ovs, &(xo[WS(os, 1)]));
cannam@95 3177 ST(&(xo[WS(os, 99)]), VSUB(T8q, T8p), ovs, &(xo[WS(os, 1)]));
cannam@95 3178 }
cannam@95 3179 }
cannam@95 3180 {
cannam@95 3181 V T4K, T5d, T55, T59, T5q, T5F, T5x, T5B, T2f, T5C, T5E, T52, T5a, T5j, T5u;
cannam@95 3182 V T5c;
cannam@95 3183 {
cannam@95 3184 V T3u, T53, T4J, T54;
cannam@95 3185 {
cannam@95 3186 V T3g, T3t, T4v, T4I;
cannam@95 3187 T3g = VADD(T2G, T3f);
cannam@95 3188 T3t = VADD(T3p, T3s);
cannam@95 3189 T3u = VFMA(LDK(KP998795456), T3g, VMUL(LDK(KP049067674), T3t));
cannam@95 3190 T53 = VFNMS(LDK(KP049067674), T3g, VMUL(LDK(KP998795456), T3t));
cannam@95 3191 T4v = VADD(T3V, T4u);
cannam@95 3192 T4I = VADD(T4E, T4H);
cannam@95 3193 T4J = VFNMS(LDK(KP049067674), T4I, VMUL(LDK(KP998795456), T4v));
cannam@95 3194 T54 = VFMA(LDK(KP049067674), T4v, VMUL(LDK(KP998795456), T4I));
cannam@95 3195 }
cannam@95 3196 T4K = VADD(T3u, T4J);
cannam@95 3197 T5d = VSUB(T54, T53);
cannam@95 3198 T55 = VADD(T53, T54);
cannam@95 3199 T59 = VSUB(T4J, T3u);
cannam@95 3200 }
cannam@95 3201 {
cannam@95 3202 V T5m, T5v, T5p, T5w;
cannam@95 3203 {
cannam@95 3204 V T5k, T5l, T5n, T5o;
cannam@95 3205 T5k = VSUB(T2G, T3f);
cannam@95 3206 T5l = VSUB(T3s, T3p);
cannam@95 3207 T5m = VFMA(LDK(KP740951125), T5k, VMUL(LDK(KP671558954), T5l));
cannam@95 3208 T5v = VFNMS(LDK(KP671558954), T5k, VMUL(LDK(KP740951125), T5l));
cannam@95 3209 T5n = VSUB(T3V, T4u);
cannam@95 3210 T5o = VSUB(T4H, T4E);
cannam@95 3211 T5p = VFNMS(LDK(KP671558954), T5o, VMUL(LDK(KP740951125), T5n));
cannam@95 3212 T5w = VFMA(LDK(KP671558954), T5n, VMUL(LDK(KP740951125), T5o));
cannam@95 3213 }
cannam@95 3214 T5q = VADD(T5m, T5p);
cannam@95 3215 T5F = VSUB(T5w, T5v);
cannam@95 3216 T5x = VADD(T5v, T5w);
cannam@95 3217 T5B = VSUB(T5p, T5m);
cannam@95 3218 }
cannam@95 3219 {
cannam@95 3220 V T11, T5h, T4Y, T5s, T2e, T5t, T51, T5i, T10, T4X;
cannam@95 3221 T10 = VADD(TI, TZ);
cannam@95 3222 T11 = VADD(Tr, T10);
cannam@95 3223 T5h = VSUB(Tr, T10);
cannam@95 3224 T4X = VADD(T4V, T4W);
cannam@95 3225 T4Y = VADD(T4U, T4X);
cannam@95 3226 T5s = VSUB(T4X, T4U);
cannam@95 3227 {
cannam@95 3228 V T1C, T2d, T4Z, T50;
cannam@95 3229 T1C = VFMA(LDK(KP098017140), T1s, VMUL(LDK(KP995184726), T1B));
cannam@95 3230 T2d = VFNMS(LDK(KP098017140), T2c, VMUL(LDK(KP995184726), T23));
cannam@95 3231 T2e = VADD(T1C, T2d);
cannam@95 3232 T5t = VSUB(T2d, T1C);
cannam@95 3233 T4Z = VFNMS(LDK(KP098017140), T1B, VMUL(LDK(KP995184726), T1s));
cannam@95 3234 T50 = VFMA(LDK(KP995184726), T2c, VMUL(LDK(KP098017140), T23));
cannam@95 3235 T51 = VADD(T4Z, T50);
cannam@95 3236 T5i = VSUB(T50, T4Z);
cannam@95 3237 }
cannam@95 3238 T2f = VADD(T11, T2e);
cannam@95 3239 T5C = VSUB(T5t, T5s);
cannam@95 3240 T5E = VSUB(T5h, T5i);
cannam@95 3241 T52 = VADD(T4Y, T51);
cannam@95 3242 T5a = VSUB(T51, T4Y);
cannam@95 3243 T5j = VADD(T5h, T5i);
cannam@95 3244 T5u = VADD(T5s, T5t);
cannam@95 3245 T5c = VSUB(T11, T2e);
cannam@95 3246 }
cannam@95 3247 {
cannam@95 3248 V T4L, T56, T5D, T5G;
cannam@95 3249 T4L = VADD(T2f, T4K);
cannam@95 3250 T56 = VBYI(VADD(T52, T55));
cannam@95 3251 ST(&(xo[WS(os, 127)]), VSUB(T4L, T56), ovs, &(xo[WS(os, 1)]));
cannam@95 3252 ST(&(xo[WS(os, 1)]), VADD(T4L, T56), ovs, &(xo[WS(os, 1)]));
cannam@95 3253 T5D = VBYI(VSUB(T5B, T5C));
cannam@95 3254 T5G = VSUB(T5E, T5F);
cannam@95 3255 ST(&(xo[WS(os, 47)]), VADD(T5D, T5G), ovs, &(xo[WS(os, 1)]));
cannam@95 3256 ST(&(xo[WS(os, 81)]), VSUB(T5G, T5D), ovs, &(xo[WS(os, 1)]));
cannam@95 3257 }
cannam@95 3258 {
cannam@95 3259 V T5H, T5I, T57, T58;
cannam@95 3260 T5H = VBYI(VADD(T5C, T5B));
cannam@95 3261 T5I = VADD(T5E, T5F);
cannam@95 3262 ST(&(xo[WS(os, 17)]), VADD(T5H, T5I), ovs, &(xo[WS(os, 1)]));
cannam@95 3263 ST(&(xo[WS(os, 111)]), VSUB(T5I, T5H), ovs, &(xo[WS(os, 1)]));
cannam@95 3264 T57 = VSUB(T2f, T4K);
cannam@95 3265 T58 = VBYI(VSUB(T55, T52));
cannam@95 3266 ST(&(xo[WS(os, 65)]), VSUB(T57, T58), ovs, &(xo[WS(os, 1)]));
cannam@95 3267 ST(&(xo[WS(os, 63)]), VADD(T57, T58), ovs, &(xo[WS(os, 1)]));
cannam@95 3268 }
cannam@95 3269 {
cannam@95 3270 V T5b, T5e, T5r, T5y;
cannam@95 3271 T5b = VBYI(VSUB(T59, T5a));
cannam@95 3272 T5e = VSUB(T5c, T5d);
cannam@95 3273 ST(&(xo[WS(os, 33)]), VADD(T5b, T5e), ovs, &(xo[WS(os, 1)]));
cannam@95 3274 ST(&(xo[WS(os, 95)]), VSUB(T5e, T5b), ovs, &(xo[WS(os, 1)]));
cannam@95 3275 T5r = VADD(T5j, T5q);
cannam@95 3276 T5y = VBYI(VADD(T5u, T5x));
cannam@95 3277 ST(&(xo[WS(os, 113)]), VSUB(T5r, T5y), ovs, &(xo[WS(os, 1)]));
cannam@95 3278 ST(&(xo[WS(os, 15)]), VADD(T5r, T5y), ovs, &(xo[WS(os, 1)]));
cannam@95 3279 }
cannam@95 3280 {
cannam@95 3281 V T5z, T5A, T5f, T5g;
cannam@95 3282 T5z = VSUB(T5j, T5q);
cannam@95 3283 T5A = VBYI(VSUB(T5x, T5u));
cannam@95 3284 ST(&(xo[WS(os, 79)]), VSUB(T5z, T5A), ovs, &(xo[WS(os, 1)]));
cannam@95 3285 ST(&(xo[WS(os, 49)]), VADD(T5z, T5A), ovs, &(xo[WS(os, 1)]));
cannam@95 3286 T5f = VBYI(VADD(T5a, T59));
cannam@95 3287 T5g = VADD(T5c, T5d);
cannam@95 3288 ST(&(xo[WS(os, 31)]), VADD(T5f, T5g), ovs, &(xo[WS(os, 1)]));
cannam@95 3289 ST(&(xo[WS(os, 97)]), VSUB(T5g, T5f), ovs, &(xo[WS(os, 1)]));
cannam@95 3290 }
cannam@95 3291 }
cannam@95 3292 {
cannam@95 3293 V T9i, T9B, T9t, T9x, T9O, Ta3, T9V, T9Z, T93, Ta0, Ta2, T9q, T9y, T9H, T9S;
cannam@95 3294 V T9A;
cannam@95 3295 {
cannam@95 3296 V T9a, T9r, T9h, T9s;
cannam@95 3297 {
cannam@95 3298 V T96, T99, T9d, T9g;
cannam@95 3299 T96 = VSUB(T94, T95);
cannam@95 3300 T99 = VSUB(T97, T98);
cannam@95 3301 T9a = VFMA(LDK(KP514102744), T96, VMUL(LDK(KP857728610), T99));
cannam@95 3302 T9r = VFNMS(LDK(KP514102744), T99, VMUL(LDK(KP857728610), T96));
cannam@95 3303 T9d = VSUB(T9b, T9c);
cannam@95 3304 T9g = VSUB(T9e, T9f);
cannam@95 3305 T9h = VFNMS(LDK(KP514102744), T9g, VMUL(LDK(KP857728610), T9d));
cannam@95 3306 T9s = VFMA(LDK(KP857728610), T9g, VMUL(LDK(KP514102744), T9d));
cannam@95 3307 }
cannam@95 3308 T9i = VADD(T9a, T9h);
cannam@95 3309 T9B = VSUB(T9s, T9r);
cannam@95 3310 T9t = VADD(T9r, T9s);
cannam@95 3311 T9x = VSUB(T9h, T9a);
cannam@95 3312 }
cannam@95 3313 {
cannam@95 3314 V T9K, T9T, T9N, T9U;
cannam@95 3315 {
cannam@95 3316 V T9I, T9J, T9L, T9M;
cannam@95 3317 T9I = VADD(T95, T94);
cannam@95 3318 T9J = VADD(T97, T98);
cannam@95 3319 T9K = VFMA(LDK(KP242980179), T9I, VMUL(LDK(KP970031253), T9J));
cannam@95 3320 T9T = VFNMS(LDK(KP242980179), T9J, VMUL(LDK(KP970031253), T9I));
cannam@95 3321 T9L = VADD(T9b, T9c);
cannam@95 3322 T9M = VADD(T9f, T9e);
cannam@95 3323 T9N = VFNMS(LDK(KP242980179), T9M, VMUL(LDK(KP970031253), T9L));
cannam@95 3324 T9U = VFMA(LDK(KP970031253), T9M, VMUL(LDK(KP242980179), T9L));
cannam@95 3325 }
cannam@95 3326 T9O = VADD(T9K, T9N);
cannam@95 3327 Ta3 = VSUB(T9U, T9T);
cannam@95 3328 T9V = VADD(T9T, T9U);
cannam@95 3329 T9Z = VSUB(T9N, T9K);
cannam@95 3330 }
cannam@95 3331 {
cannam@95 3332 V T8V, T9F, T9m, T9Q, T92, T9R, T9p, T9G, T8U, T9k;
cannam@95 3333 T8U = VSUB(T86, T85);
cannam@95 3334 T8V = VSUB(T8T, T8U);
cannam@95 3335 T9F = VADD(T8T, T8U);
cannam@95 3336 T9k = VSUB(T75, T72);
cannam@95 3337 T9m = VSUB(T9k, T9l);
cannam@95 3338 T9Q = VADD(T9l, T9k);
cannam@95 3339 {
cannam@95 3340 V T8Y, T91, T9n, T9o;
cannam@95 3341 T8Y = VFMA(LDK(KP471396736), T8W, VMUL(LDK(KP881921264), T8X));
cannam@95 3342 T91 = VFNMS(LDK(KP471396736), T90, VMUL(LDK(KP881921264), T8Z));
cannam@95 3343 T92 = VSUB(T8Y, T91);
cannam@95 3344 T9R = VADD(T91, T8Y);
cannam@95 3345 T9n = VFNMS(LDK(KP471396736), T8X, VMUL(LDK(KP881921264), T8W));
cannam@95 3346 T9o = VFMA(LDK(KP881921264), T90, VMUL(LDK(KP471396736), T8Z));
cannam@95 3347 T9p = VSUB(T9n, T9o);
cannam@95 3348 T9G = VADD(T9o, T9n);
cannam@95 3349 }
cannam@95 3350 T93 = VADD(T8V, T92);
cannam@95 3351 Ta0 = VSUB(T9R, T9Q);
cannam@95 3352 Ta2 = VSUB(T9F, T9G);
cannam@95 3353 T9q = VADD(T9m, T9p);
cannam@95 3354 T9y = VSUB(T9p, T9m);
cannam@95 3355 T9H = VADD(T9F, T9G);
cannam@95 3356 T9S = VADD(T9Q, T9R);
cannam@95 3357 T9A = VSUB(T8V, T92);
cannam@95 3358 }
cannam@95 3359 {
cannam@95 3360 V T9j, T9u, Ta1, Ta4;
cannam@95 3361 T9j = VADD(T93, T9i);
cannam@95 3362 T9u = VBYI(VADD(T9q, T9t));
cannam@95 3363 ST(&(xo[WS(os, 117)]), VSUB(T9j, T9u), ovs, &(xo[WS(os, 1)]));
cannam@95 3364 ST(&(xo[WS(os, 11)]), VADD(T9j, T9u), ovs, &(xo[WS(os, 1)]));
cannam@95 3365 Ta1 = VBYI(VSUB(T9Z, Ta0));
cannam@95 3366 Ta4 = VSUB(Ta2, Ta3);
cannam@95 3367 ST(&(xo[WS(os, 37)]), VADD(Ta1, Ta4), ovs, &(xo[WS(os, 1)]));
cannam@95 3368 ST(&(xo[WS(os, 91)]), VSUB(Ta4, Ta1), ovs, &(xo[WS(os, 1)]));
cannam@95 3369 }
cannam@95 3370 {
cannam@95 3371 V Ta5, Ta6, T9v, T9w;
cannam@95 3372 Ta5 = VBYI(VADD(Ta0, T9Z));
cannam@95 3373 Ta6 = VADD(Ta2, Ta3);
cannam@95 3374 ST(&(xo[WS(os, 27)]), VADD(Ta5, Ta6), ovs, &(xo[WS(os, 1)]));
cannam@95 3375 ST(&(xo[WS(os, 101)]), VSUB(Ta6, Ta5), ovs, &(xo[WS(os, 1)]));
cannam@95 3376 T9v = VSUB(T93, T9i);
cannam@95 3377 T9w = VBYI(VSUB(T9t, T9q));
cannam@95 3378 ST(&(xo[WS(os, 75)]), VSUB(T9v, T9w), ovs, &(xo[WS(os, 1)]));
cannam@95 3379 ST(&(xo[WS(os, 53)]), VADD(T9v, T9w), ovs, &(xo[WS(os, 1)]));
cannam@95 3380 }
cannam@95 3381 {
cannam@95 3382 V T9z, T9C, T9P, T9W;
cannam@95 3383 T9z = VBYI(VSUB(T9x, T9y));
cannam@95 3384 T9C = VSUB(T9A, T9B);
cannam@95 3385 ST(&(xo[WS(os, 43)]), VADD(T9z, T9C), ovs, &(xo[WS(os, 1)]));
cannam@95 3386 ST(&(xo[WS(os, 85)]), VSUB(T9C, T9z), ovs, &(xo[WS(os, 1)]));
cannam@95 3387 T9P = VADD(T9H, T9O);
cannam@95 3388 T9W = VBYI(VADD(T9S, T9V));
cannam@95 3389 ST(&(xo[WS(os, 123)]), VSUB(T9P, T9W), ovs, &(xo[WS(os, 1)]));
cannam@95 3390 ST(&(xo[WS(os, 5)]), VADD(T9P, T9W), ovs, &(xo[WS(os, 1)]));
cannam@95 3391 }
cannam@95 3392 {
cannam@95 3393 V T9X, T9Y, T9D, T9E;
cannam@95 3394 T9X = VSUB(T9H, T9O);
cannam@95 3395 T9Y = VBYI(VSUB(T9V, T9S));
cannam@95 3396 ST(&(xo[WS(os, 69)]), VSUB(T9X, T9Y), ovs, &(xo[WS(os, 1)]));
cannam@95 3397 ST(&(xo[WS(os, 59)]), VADD(T9X, T9Y), ovs, &(xo[WS(os, 1)]));
cannam@95 3398 T9D = VBYI(VADD(T9y, T9x));
cannam@95 3399 T9E = VADD(T9A, T9B);
cannam@95 3400 ST(&(xo[WS(os, 21)]), VADD(T9D, T9E), ovs, &(xo[WS(os, 1)]));
cannam@95 3401 ST(&(xo[WS(os, 107)]), VSUB(T9E, T9D), ovs, &(xo[WS(os, 1)]));
cannam@95 3402 }
cannam@95 3403 }
cannam@95 3404 {
cannam@95 3405 V T68, T6r, T6j, T6n, T6E, T6T, T6L, T6P, T5T, T6Q, T6S, T6g, T6o, T6x, T6I;
cannam@95 3406 V T6q;
cannam@95 3407 {
cannam@95 3408 V T60, T6h, T67, T6i;
cannam@95 3409 {
cannam@95 3410 V T5W, T5Z, T63, T66;
cannam@95 3411 T5W = VSUB(T5U, T5V);
cannam@95 3412 T5Z = VSUB(T5X, T5Y);
cannam@95 3413 T60 = VFMA(LDK(KP427555093), T5W, VMUL(LDK(KP903989293), T5Z));
cannam@95 3414 T6h = VFNMS(LDK(KP427555093), T5Z, VMUL(LDK(KP903989293), T5W));
cannam@95 3415 T63 = VSUB(T61, T62);
cannam@95 3416 T66 = VSUB(T64, T65);
cannam@95 3417 T67 = VFNMS(LDK(KP427555093), T66, VMUL(LDK(KP903989293), T63));
cannam@95 3418 T6i = VFMA(LDK(KP903989293), T66, VMUL(LDK(KP427555093), T63));
cannam@95 3419 }
cannam@95 3420 T68 = VADD(T60, T67);
cannam@95 3421 T6r = VSUB(T6i, T6h);
cannam@95 3422 T6j = VADD(T6h, T6i);
cannam@95 3423 T6n = VSUB(T67, T60);
cannam@95 3424 }
cannam@95 3425 {
cannam@95 3426 V T6A, T6J, T6D, T6K;
cannam@95 3427 {
cannam@95 3428 V T6y, T6z, T6B, T6C;
cannam@95 3429 T6y = VADD(T5V, T5U);
cannam@95 3430 T6z = VADD(T5X, T5Y);
cannam@95 3431 T6A = VFMA(LDK(KP336889853), T6y, VMUL(LDK(KP941544065), T6z));
cannam@95 3432 T6J = VFNMS(LDK(KP336889853), T6z, VMUL(LDK(KP941544065), T6y));
cannam@95 3433 T6B = VADD(T61, T62);
cannam@95 3434 T6C = VADD(T65, T64);
cannam@95 3435 T6D = VFNMS(LDK(KP336889853), T6C, VMUL(LDK(KP941544065), T6B));
cannam@95 3436 T6K = VFMA(LDK(KP941544065), T6C, VMUL(LDK(KP336889853), T6B));
cannam@95 3437 }
cannam@95 3438 T6E = VADD(T6A, T6D);
cannam@95 3439 T6T = VSUB(T6K, T6J);
cannam@95 3440 T6L = VADD(T6J, T6K);
cannam@95 3441 T6P = VSUB(T6D, T6A);
cannam@95 3442 }
cannam@95 3443 {
cannam@95 3444 V T5L, T6v, T6c, T6G, T5S, T6H, T6f, T6w, T5K, T6a;
cannam@95 3445 T5K = VSUB(T4W, T4V);
cannam@95 3446 T5L = VSUB(T5J, T5K);
cannam@95 3447 T6v = VADD(T5J, T5K);
cannam@95 3448 T6a = VSUB(TZ, TI);
cannam@95 3449 T6c = VSUB(T6a, T6b);
cannam@95 3450 T6G = VADD(T6b, T6a);
cannam@95 3451 {
cannam@95 3452 V T5O, T5R, T6d, T6e;
cannam@95 3453 T5O = VFMA(LDK(KP773010453), T5M, VMUL(LDK(KP634393284), T5N));
cannam@95 3454 T5R = VFNMS(LDK(KP634393284), T5Q, VMUL(LDK(KP773010453), T5P));
cannam@95 3455 T5S = VSUB(T5O, T5R);
cannam@95 3456 T6H = VADD(T5R, T5O);
cannam@95 3457 T6d = VFNMS(LDK(KP634393284), T5M, VMUL(LDK(KP773010453), T5N));
cannam@95 3458 T6e = VFMA(LDK(KP634393284), T5P, VMUL(LDK(KP773010453), T5Q));
cannam@95 3459 T6f = VSUB(T6d, T6e);
cannam@95 3460 T6w = VADD(T6e, T6d);
cannam@95 3461 }
cannam@95 3462 T5T = VADD(T5L, T5S);
cannam@95 3463 T6Q = VSUB(T6H, T6G);
cannam@95 3464 T6S = VSUB(T6v, T6w);
cannam@95 3465 T6g = VADD(T6c, T6f);
cannam@95 3466 T6o = VSUB(T6f, T6c);
cannam@95 3467 T6x = VADD(T6v, T6w);
cannam@95 3468 T6I = VADD(T6G, T6H);
cannam@95 3469 T6q = VSUB(T5L, T5S);
cannam@95 3470 }
cannam@95 3471 {
cannam@95 3472 V T69, T6k, T6R, T6U;
cannam@95 3473 T69 = VADD(T5T, T68);
cannam@95 3474 T6k = VBYI(VADD(T6g, T6j));
cannam@95 3475 ST(&(xo[WS(os, 119)]), VSUB(T69, T6k), ovs, &(xo[WS(os, 1)]));
cannam@95 3476 ST(&(xo[WS(os, 9)]), VADD(T69, T6k), ovs, &(xo[WS(os, 1)]));
cannam@95 3477 T6R = VBYI(VSUB(T6P, T6Q));
cannam@95 3478 T6U = VSUB(T6S, T6T);
cannam@95 3479 ST(&(xo[WS(os, 39)]), VADD(T6R, T6U), ovs, &(xo[WS(os, 1)]));
cannam@95 3480 ST(&(xo[WS(os, 89)]), VSUB(T6U, T6R), ovs, &(xo[WS(os, 1)]));
cannam@95 3481 }
cannam@95 3482 {
cannam@95 3483 V T6V, T6W, T6l, T6m;
cannam@95 3484 T6V = VBYI(VADD(T6Q, T6P));
cannam@95 3485 T6W = VADD(T6S, T6T);
cannam@95 3486 ST(&(xo[WS(os, 25)]), VADD(T6V, T6W), ovs, &(xo[WS(os, 1)]));
cannam@95 3487 ST(&(xo[WS(os, 103)]), VSUB(T6W, T6V), ovs, &(xo[WS(os, 1)]));
cannam@95 3488 T6l = VSUB(T5T, T68);
cannam@95 3489 T6m = VBYI(VSUB(T6j, T6g));
cannam@95 3490 ST(&(xo[WS(os, 73)]), VSUB(T6l, T6m), ovs, &(xo[WS(os, 1)]));
cannam@95 3491 ST(&(xo[WS(os, 55)]), VADD(T6l, T6m), ovs, &(xo[WS(os, 1)]));
cannam@95 3492 }
cannam@95 3493 {
cannam@95 3494 V T6p, T6s, T6F, T6M;
cannam@95 3495 T6p = VBYI(VSUB(T6n, T6o));
cannam@95 3496 T6s = VSUB(T6q, T6r);
cannam@95 3497 ST(&(xo[WS(os, 41)]), VADD(T6p, T6s), ovs, &(xo[WS(os, 1)]));
cannam@95 3498 ST(&(xo[WS(os, 87)]), VSUB(T6s, T6p), ovs, &(xo[WS(os, 1)]));
cannam@95 3499 T6F = VADD(T6x, T6E);
cannam@95 3500 T6M = VBYI(VADD(T6I, T6L));
cannam@95 3501 ST(&(xo[WS(os, 121)]), VSUB(T6F, T6M), ovs, &(xo[WS(os, 1)]));
cannam@95 3502 ST(&(xo[WS(os, 7)]), VADD(T6F, T6M), ovs, &(xo[WS(os, 1)]));
cannam@95 3503 }
cannam@95 3504 {
cannam@95 3505 V T6N, T6O, T6t, T6u;
cannam@95 3506 T6N = VSUB(T6x, T6E);
cannam@95 3507 T6O = VBYI(VSUB(T6L, T6I));
cannam@95 3508 ST(&(xo[WS(os, 71)]), VSUB(T6N, T6O), ovs, &(xo[WS(os, 1)]));
cannam@95 3509 ST(&(xo[WS(os, 57)]), VADD(T6N, T6O), ovs, &(xo[WS(os, 1)]));
cannam@95 3510 T6t = VBYI(VADD(T6o, T6n));
cannam@95 3511 T6u = VADD(T6q, T6r);
cannam@95 3512 ST(&(xo[WS(os, 23)]), VADD(T6t, T6u), ovs, &(xo[WS(os, 1)]));
cannam@95 3513 ST(&(xo[WS(os, 105)]), VSUB(T6u, T6t), ovs, &(xo[WS(os, 1)]));
cannam@95 3514 }
cannam@95 3515 }
cannam@95 3516 }
cannam@95 3517 }
cannam@95 3518 VLEAVE();
cannam@95 3519 }
cannam@95 3520
cannam@95 3521 static const kdft_desc desc = { 128, XSIMD_STRING("n1fv_128"), {938, 186, 144, 0}, &GENUS, 0, 0, 0, 0 };
cannam@95 3522
cannam@95 3523 void XSIMD(codelet_n1fv_128) (planner *p) {
cannam@95 3524 X(kdft_register) (p, n1fv_128, &desc);
cannam@95 3525 }
cannam@95 3526
cannam@95 3527 #endif /* HAVE_FMA */