sv-dependency-builds: src/fftw-3.3.3/dft/simd/common/n1bv

annotate src/fftw-3.3.3/dft/simd/common/n1bv_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:37:08 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 -sign 1 -n 128 -name n1bv_128 -include n1b.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 "n1b.h"
cannam@95	36
cannam@95	37 static void n1bv_128(const R ri, const R ii, R ro, R io, stride is, stride os, INT v, INT ivs, INT ovs)
cannam@95	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 = ii;
cannam@95	75 xo = io;
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, T6d, T5O, T5R;
cannam@95	78 V T6e, 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, Tcf, Tdo, TdG, Tgi, Tet, Tgj, Teq, T8X, T7a, T5M, T1B, T8W;
cannam@95	85 V T7d, T5N, T1s, TaX, Tcg, Tdr, 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, Tc6, Th, Tc7, Tl, Tc9, Tca;
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(T6, T9);
cannam@95	132 Te = VSUB(Tc, Td);
cannam@95	133 Tc6 = VADD(Tc, Td);
cannam@95	134 Th = VSUB(Tf, Tg);
cannam@95	135 Tc7 = VADD(Tf, Tg);
cannam@95	136 Tl = VSUB(Tj, Tk);
cannam@95	137 Tc9 = VADD(Tj, Tk);
cannam@95	138 Tca = 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, Tc8, Tea, T4R, Ti, Tfo, Tac, Tp, T4S, Tcb, 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 Tc8 = VADD(Tc6, Tc7);
cannam@95	151 Tea = VSUB(Tc6, Tc7);
cannam@95	152 T4R = VFMA(LDK(KP414213562), Te, Th);
cannam@95	153 Ti = VFNMS(LDK(KP414213562), Th, Te);
cannam@95	154 Tfo = VSUB(Taa, Tab);
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 Tcb = VADD(Tc9, Tca);
cannam@95	159 Teb = VSUB(Tc9, Tca);
cannam@95	160 T4Q = VFMA(LDK(KP707106781), T4P, T4O);
cannam@95	161 T82 = VFNMS(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(Ti, Tp);
cannam@95	167 Tq = VADD(Ti, Tp);
cannam@95	168 Tfp = VSUB(Tea, Teb);
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(Tc8, Tcb);
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 = VFMA(LDK(KP923879532), T83, T82);
cannam@95	201 T84 = VFNMS(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, Tdp, 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, Tdm, 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, Tfr, T71, TH;
cannam@95	462 Teg = VFNMS(LDK(KP414213562), Tef, Tee);
cannam@95	463 Tfr = 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, Tfs;
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 Tfs = 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(Tak, Tar);
cannam@95	485 Tas = VADD(Tak, Tar);
cannam@95	486 TgH = VSUB(Teg, Tej);
cannam@95	487 Tek = VADD(Teg, Tej);
cannam@95	488 Tgg = VADD(Tfr, Tfs);
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 Tdm = 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, Tdn, Tes, Tep;
cannam@95	564 TaH = VSUB(TaD, TaG);
cannam@95	565 Tdn = 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 Tcf = VFMA(LDK(KP414213562), TaA, TaH);
cannam@95	578 Tdo = VADD(Tdm, Tdn);
cannam@95	579 TdG = VSUB(Tdm, Tdn);
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 Tdp = 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 Tdq, TaW, Tey, TeB;
cannam@95	655 Tdq = 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 Tcg = VFMA(LDK(KP414213562), TaP, TaW);
cannam@95	667 Tdr = VADD(Tdp, Tdq);
cannam@95	668 TdH = VSUB(Tdp, Tdq);
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, Tfz, Tf0, TfA, Tfl, Tg1, 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(Td2, Td3);
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 = VADD(TdA, TdB);
cannam@95	913 TdC = VSUB(TdA, TdB);
cannam@95	914 Tdt = VSUB(Tdc, Tdj);
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, TdM, TdV, TdW, TdP, Tds, Tdy;
cannam@95	921 TdI = VADD(TdG, TdH);
cannam@95	922 TdT = VSUB(TdG, TdH);
cannam@95	923 TdM = VFNMS(LDK(KP414213562), TdL, TdK);
cannam@95	924 TdV = VFMA(LDK(KP414213562), TdK, TdL);
cannam@95	925 TdW = VFMA(LDK(KP414213562), TdN, TdO);
cannam@95	926 TdP = VFNMS(LDK(KP414213562), TdO, TdN);
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(Tdo, Tdr);
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(TdV, TdW);
cannam@95	935 Te5 = VSUB(TdM, TdP);
cannam@95	936 TdQ = VADD(TdM, TdP);
cannam@95	937 Tdz = VSUB(Tdx, Tdy);
cannam@95	938 TdD = VADD(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[0]), VADD(TdD, TdE), ovs, &(xo[0]));
cannam@95	947 ST(&(xo[WS(os, 64)]), VSUB(TdD, TdE), ovs, &(xo[0]));
cannam@95	948 ST(&(xo[WS(os, 32)]), VFMAI(TdC, Tdz), ovs, &(xo[0]));
cannam@95	949 ST(&(xo[WS(os, 96)]), VFNMSI(TdC, Tdz), ovs, &(xo[0]));
cannam@95	950 ST(&(xo[WS(os, 112)]), VFNMSI(Tdw, Tdv), ovs, &(xo[0]));
cannam@95	951 ST(&(xo[WS(os, 16)]), VFMAI(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(TaI, TaX);
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(Tcf, Tcg);
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 Tcj, Tbw, Tck, Tc3;
cannam@95	1000 Tcj = VFMA(LDK(KP198912367), Tbm, Tbv);
cannam@95	1001 Tbw = VFNMS(LDK(KP198912367), Tbv, Tbm);
cannam@95	1002 Tck = 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(Tcj, Tck);
cannam@95	1009 Tcl = VSUB(Tcj, Tck);
cannam@95	1010 Tct = VSUB(Tbw, Tc3);
cannam@95	1011 Tc4 = VADD(Tbw, Tc3);
cannam@95	1012 }
cannam@95	1013 {
cannam@95	1014 V TfN, Tel, TfY, Tfu, Tfv, Tfw, 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 TcL, TcC, Tcr, Tcv;
cannam@95	1022 TcL = 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, TcM, TcF;
cannam@95	1034 Tcn = VFMA(LDK(KP980785280), Tc4, TaZ);
cannam@95	1035 Tc5 = VFNMS(LDK(KP980785280), Tc4, TaZ);
cannam@95	1036 TcM = 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 Tfv = 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(TcL, TcM);
cannam@95	1051 TcN = VSUB(TcL, TcM);
cannam@95	1052 TcV = VSUB(TcC, TcF);
cannam@95	1053 TcG = VADD(TcC, TcF);
cannam@95	1054 TeD = VFNMS(LDK(KP198912367), TeC, Tez);
cannam@95	1055 Tfw = 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(Teu, TeD);
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(Tfv, Tfw);
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 Tfz = VFMA(LDK(KP098491403), TeS, TeZ);
cannam@95	1099 Tf0 = VFNMS(LDK(KP098491403), TeZ, TeS);
cannam@95	1100 TfA = VFMA(LDK(KP098491403), Tfd, Tfk);
cannam@95	1101 Tfl = VFNMS(LDK(KP098491403), Tfk, Tfd);
cannam@95	1102 Tg1 = 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, Thf, Th6, Th3, Thl, TgW, TgM, TgU, TgP, TgX;
cannam@95	1114 V TgE;
cannam@95	1115 {
cannam@95	1116 V Th1, TgI, TgJ, TgK;
cannam@95	1117 {
cannam@95	1118 V Tgh, Thc, Tgk, TfG, TfB, TfJ, Tfm, Tg2, 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 TgJ = VFMA(LDK(KP668178637), Tgi, Tgj);
cannam@95	1124 Tgk = VFNMS(LDK(KP668178637), Tgj, Tgi);
cannam@95	1125 TfG = VADD(Tfz, TfA);
cannam@95	1126 TfB = VSUB(Tfz, TfA);
cannam@95	1127 TfJ = VSUB(Tf0, Tfl);
cannam@95	1128 Tfm = VADD(Tf0, Tfl);
cannam@95	1129 Tg2 = 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 TgK = 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(Tg1, Tg2);
cannam@95	1146 Tg3 = VSUB(Tg1, Tg2);
cannam@95	1147 {
cannam@95	1148 V Tgb, TfW, Thd, Tgo;
cannam@95	1149 Tgb = VSUB(TfS, TfV);
cannam@95	1150 TfW = VADD(TfS, TfV);
cannam@95	1151 Thd = VSUB(Tgk, Tgn);
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(TgJ, TgK);
cannam@95	1202 TgL = VSUB(TgJ, TgK);
cannam@95	1203 {
cannam@95	1204 V TgN, Tgw, TgO, TgD;
cannam@95	1205 TgN = VFMA(LDK(KP534511135), Tgs, Tgv);
cannam@95	1206 Tgw = VFNMS(LDK(KP534511135), Tgv, Tgs);
cannam@95	1207 TgO = VFMA(LDK(KP534511135), Tgz, TgC);
cannam@95	1208 TgD = VFNMS(LDK(KP534511135), TgC, Tgz);
cannam@95	1209 Thf = 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(TgN, TgO);
cannam@95	1216 TgP = VSUB(TgN, TgO);
cannam@95	1217 TgX = VSUB(Tgw, TgD);
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, Thg, Th9;
cannam@95	1242 TgR = VFMA(LDK(KP881921264), TgE, Tgp);
cannam@95	1243 TgF = VFNMS(LDK(KP881921264), TgE, Tgp);
cannam@95	1244 Thg = 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(Thf, Thg);
cannam@95	1257 Thh = VSUB(Thf, Thg);
cannam@95	1258 Thp = VSUB(Th6, Th9);
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(T7G, T7Z);
cannam@95	1292 T80 = VADD(T7G, T7Z);
cannam@95	1293 }
cannam@95	1294 }
cannam@95	1295 T9l = VSUB(T72, T75);
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(T7e, T7l);
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(T8w, T8z);
cannam@95	1330 T8A = VADD(T8w, T8z);
cannam@95	1331 {
cannam@95	1332 V T8E, T8O, T8j, T7n;
cannam@95	1333 T8E = VFMA(LDK(KP956940335), T8D, T8C);
cannam@95	1334 T8O = VFNMS(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 = VFNMS(LDK(KP803207531), T8P, T8O);
cannam@95	1348 T8Q = VFMA(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 = VFMA(LDK(KP989176509), T8n, T8m);
cannam@95	1364 T8o = VFNMS(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, 13)]), VFMAI(T8K, T8J), ovs, &(xo[WS(os, 1)]));
cannam@95	1368 ST(&(xo[WS(os, 115)]), VFNMSI(T8K, T8J), ovs, &(xo[WS(os, 1)]));
cannam@95	1369 ST(&(xo[WS(os, 77)]), VFMAI(T8I, T8B), ovs, &(xo[WS(os, 1)]));
cannam@95	1370 ST(&(xo[WS(os, 51)]), VFNMSI(T8I, T8B), ovs, &(xo[WS(os, 1)]));
cannam@95	1371 ST(&(xo[WS(os, 109)]), VFMAI(T8S, T8R), ovs, &(xo[WS(os, 1)]));
cannam@95	1372 ST(&(xo[WS(os, 19)]), VFNMSI(T8S, T8R), ovs, &(xo[WS(os, 1)]));
cannam@95	1373 ST(&(xo[WS(os, 83)]), VFNMSI(T8Q, T8N), ovs, &(xo[WS(os, 1)]));
cannam@95	1374 ST(&(xo[WS(os, 45)]), VFMAI(T8Q, T8N), ovs, &(xo[WS(os, 1)]));
cannam@95	1375 ST(&(xo[WS(os, 99)]), VFNMSI(T8q, T8p), ovs, &(xo[WS(os, 1)]));
cannam@95	1376 ST(&(xo[WS(os, 29)]), VFMAI(T8q, T8p), ovs, &(xo[WS(os, 1)]));
cannam@95	1377 ST(&(xo[WS(os, 93)]), VFMAI(T8o, T8l), ovs, &(xo[WS(os, 1)]));
cannam@95	1378 ST(&(xo[WS(os, 35)]), VFNMSI(T8o, T8l), ovs, &(xo[WS(os, 1)]));
cannam@95	1379 ST(&(xo[WS(os, 125)]), VFMAI(T8i, T8h), ovs, &(xo[WS(os, 1)]));
cannam@95	1380 ST(&(xo[WS(os, 3)]), VFNMSI(T8i, T8h), ovs, &(xo[WS(os, 1)]));
cannam@95	1381 ST(&(xo[WS(os, 61)]), VFMAI(T8g, T81), ovs, &(xo[WS(os, 1)]));
cannam@95	1382 ST(&(xo[WS(os, 67)]), 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(TI, TZ);
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(T3u, T4J);
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(T5m, T5p);
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, T9n, T9o, 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(T1C, T2d);
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 = VFNMS(LDK(KP995184726), T5t, T5s);
cannam@95	1453 T5E = VFMA(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 = VFMA(LDK(KP740951125), T5F, T5E);
cannam@95	1471 T5G = VFNMS(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 = VFNMS(LDK(KP998795456), T5d, T5c);
cannam@95	1487 T5e = VFMA(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(T9a, T9h);
cannam@95	1493 T9i = VADD(T9a, T9h);
cannam@95	1494 ST(&(xo[WS(os, 113)]), VFMAI(T5A, T5z), ovs, &(xo[WS(os, 1)]));
cannam@95	1495 ST(&(xo[WS(os, 15)]), VFNMSI(T5A, T5z), ovs, &(xo[WS(os, 1)]));
cannam@95	1496 ST(&(xo[WS(os, 49)]), VFMAI(T5y, T5r), ovs, &(xo[WS(os, 1)]));
cannam@95	1497 ST(&(xo[WS(os, 79)]), VFNMSI(T5y, T5r), ovs, &(xo[WS(os, 1)]));
cannam@95	1498 ST(&(xo[WS(os, 111)]), VFNMSI(T5I, T5H), ovs, &(xo[WS(os, 1)]));
cannam@95	1499 ST(&(xo[WS(os, 17)]), VFMAI(T5I, T5H), ovs, &(xo[WS(os, 1)]));
cannam@95	1500 ST(&(xo[WS(os, 81)]), VFMAI(T5G, T5D), ovs, &(xo[WS(os, 1)]));
cannam@95	1501 ST(&(xo[WS(os, 47)]), VFNMSI(T5G, T5D), ovs, &(xo[WS(os, 1)]));
cannam@95	1502 ST(&(xo[WS(os, 97)]), VFMAI(T5g, T5f), ovs, &(xo[WS(os, 1)]));
cannam@95	1503 ST(&(xo[WS(os, 31)]), VFNMSI(T5g, T5f), ovs, &(xo[WS(os, 1)]));
cannam@95	1504 ST(&(xo[WS(os, 95)]), VFNMSI(T5e, T5b), ovs, &(xo[WS(os, 1)]));
cannam@95	1505 ST(&(xo[WS(os, 33)]), VFMAI(T5e, T5b), ovs, &(xo[WS(os, 1)]));
cannam@95	1506 ST(&(xo[WS(os, 1)]), VFMAI(T58, T57), ovs, &(xo[WS(os, 1)]));
cannam@95	1507 ST(&(xo[WS(os, 127)]), VFNMSI(T58, T57), ovs, &(xo[WS(os, 1)]));
cannam@95	1508 ST(&(xo[WS(os, 65)]), VFMAI(T56, T4L), ovs, &(xo[WS(os, 1)]));
cannam@95	1509 ST(&(xo[WS(os, 63)]), 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 T9n = 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 T9o = 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 = VFMA(LDK(KP831469612), T9l, T9k);
cannam@95	1529 T9m = VFNMS(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(T9K, T9N);
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(T9n, T9o);
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 = VFNMS(LDK(KP970031253), Ta3, Ta2);
cannam@95	1559 Ta4 = VFMA(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 = VFMA(LDK(KP881921264), T9p, T9m);
cannam@95	1569 T9q = VFNMS(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 = VFMA(LDK(KP857728610), T9B, T9A);
cannam@95	1580 T9C = VFNMS(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, 5)]), VFMAI(T9Y, T9X), ovs, &(xo[WS(os, 1)]));
cannam@95	1590 ST(&(xo[WS(os, 123)]), VFNMSI(T9Y, T9X), ovs, &(xo[WS(os, 1)]));
cannam@95	1591 ST(&(xo[WS(os, 69)]), VFMAI(T9W, T9P), ovs, &(xo[WS(os, 1)]));
cannam@95	1592 ST(&(xo[WS(os, 59)]), VFNMSI(T9W, T9P), ovs, &(xo[WS(os, 1)]));
cannam@95	1593 ST(&(xo[WS(os, 101)]), VFMAI(Ta6, Ta5), ovs, &(xo[WS(os, 1)]));
cannam@95	1594 ST(&(xo[WS(os, 27)]), VFNMSI(Ta6, Ta5), ovs, &(xo[WS(os, 1)]));
cannam@95	1595 ST(&(xo[WS(os, 91)]), VFNMSI(Ta4, Ta1), ovs, &(xo[WS(os, 1)]));
cannam@95	1596 ST(&(xo[WS(os, 37)]), VFMAI(Ta4, Ta1), ovs, &(xo[WS(os, 1)]));
cannam@95	1597 ST(&(xo[WS(os, 107)]), VFNMSI(T9E, T9D), ovs, &(xo[WS(os, 1)]));
cannam@95	1598 ST(&(xo[WS(os, 21)]), VFMAI(T9E, T9D), ovs, &(xo[WS(os, 1)]));
cannam@95	1599 ST(&(xo[WS(os, 85)]), VFMAI(T9C, T9z), ovs, &(xo[WS(os, 1)]));
cannam@95	1600 ST(&(xo[WS(os, 43)]), VFNMSI(T9C, T9z), ovs, &(xo[WS(os, 1)]));
cannam@95	1601 ST(&(xo[WS(os, 117)]), VFMAI(T9w, T9v), ovs, &(xo[WS(os, 1)]));
cannam@95	1602 ST(&(xo[WS(os, 11)]), VFNMSI(T9w, T9v), ovs, &(xo[WS(os, 1)]));
cannam@95	1603 ST(&(xo[WS(os, 53)]), VFMAI(T9u, T9j), ovs, &(xo[WS(os, 1)]));
cannam@95	1604 ST(&(xo[WS(os, 75)]), 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(T60, T67);
cannam@95	1608 T68 = VADD(T60, T67);
cannam@95	1609 }
cannam@95	1610 }
cannam@95	1611 T6d = 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 T6e = 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 = VFMA(LDK(KP980785280), T6b, T6a);
cannam@95	1628 T6G = VFNMS(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(T6d, T6e);
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(T6A, T6D);
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 = VFMA(LDK(KP773010453), T6f, T6c);
cannam@95	1652 T6q = VFNMS(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 = VFNMS(LDK(KP941544065), T6T, T6S);
cannam@95	1658 T6W = VFMA(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 = VFMA(LDK(KP903989293), T6r, T6q);
cannam@95	1674 T6u = VFNMS(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, 121)]), VFMAI(T6O, T6N), ovs, &(xo[WS(os, 1)]));
cannam@95	1678 ST(&(xo[WS(os, 7)]), VFNMSI(T6O, T6N), ovs, &(xo[WS(os, 1)]));
cannam@95	1679 ST(&(xo[WS(os, 57)]), VFMAI(T6M, T6F), ovs, &(xo[WS(os, 1)]));
cannam@95	1680 ST(&(xo[WS(os, 71)]), VFNMSI(T6M, T6F), ovs, &(xo[WS(os, 1)]));
cannam@95	1681 ST(&(xo[WS(os, 103)]), VFNMSI(T6W, T6V), ovs, &(xo[WS(os, 1)]));
cannam@95	1682 ST(&(xo[WS(os, 25)]), VFMAI(T6W, T6V), ovs, &(xo[WS(os, 1)]));
cannam@95	1683 ST(&(xo[WS(os, 89)]), VFMAI(T6U, T6R), ovs, &(xo[WS(os, 1)]));
cannam@95	1684 ST(&(xo[WS(os, 39)]), VFNMSI(T6U, T6R), ovs, &(xo[WS(os, 1)]));
cannam@95	1685 ST(&(xo[WS(os, 105)]), VFMAI(T6u, T6t), ovs, &(xo[WS(os, 1)]));
cannam@95	1686 ST(&(xo[WS(os, 23)]), VFNMSI(T6u, T6t), ovs, &(xo[WS(os, 1)]));
cannam@95	1687 ST(&(xo[WS(os, 87)]), VFNMSI(T6s, T6p), ovs, &(xo[WS(os, 1)]));
cannam@95	1688 ST(&(xo[WS(os, 41)]), VFMAI(T6s, T6p), ovs, &(xo[WS(os, 1)]));
cannam@95	1689 ST(&(xo[WS(os, 9)]), VFMAI(T6m, T6l), ovs, &(xo[WS(os, 1)]));
cannam@95	1690 ST(&(xo[WS(os, 119)]), VFNMSI(T6m, T6l), ovs, &(xo[WS(os, 1)]));
cannam@95	1691 ST(&(xo[WS(os, 73)]), VFMAI(T6k, T69), ovs, &(xo[WS(os, 1)]));
cannam@95	1692 ST(&(xo[WS(os, 55)]), 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("n1bv_128"), {440, 0, 642, 0}, &GENUS, 0, 0, 0, 0 };
cannam@95	1708
cannam@95	1709 void XSIMD(codelet_n1bv_128) (planner *p) {
cannam@95	1710 X(kdft_register) (p, n1bv_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 -sign 1 -n 128 -name n1bv_128 -include n1b.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 "n1b.h"
cannam@95	1723
cannam@95	1724 static void n1bv_128(const R ri, const R ii, R ro, R io, stride is, stride os, INT v, INT ivs, INT ovs)
cannam@95	1725 {
cannam@95	1726 DVK(KP146730474, +0.146730474455361751658850129646717819706215317);
cannam@95	1727 DVK(KP989176509, +0.989176509964780973451673738016243063983689533);
cannam@95	1728 DVK(KP595699304, +0.595699304492433343467036528829969889511926338);
cannam@95	1729 DVK(KP803207531, +0.803207531480644909806676512963141923879569427);
cannam@95	1730 DVK(KP049067674, +0.049067674327418014254954976942682658314745363);
cannam@95	1731 DVK(KP998795456, +0.998795456205172392714771604759100694443203615);
cannam@95	1732 DVK(KP671558954, +0.671558954847018400625376850427421803228750632);
cannam@95	1733 DVK(KP740951125, +0.740951125354959091175616897495162729728955309);
cannam@95	1734 DVK(KP514102744, +0.514102744193221726593693838968815772608049120);
cannam@95	1735 DVK(KP857728610, +0.857728610000272069902269984284770137042490799);
cannam@95	1736 DVK(KP242980179, +0.242980179903263889948274162077471118320990783);
cannam@95	1737 DVK(KP970031253, +0.970031253194543992603984207286100251456865962);
cannam@95	1738 DVK(KP427555093, +0.427555093430282094320966856888798534304578629);
cannam@95	1739 DVK(KP903989293, +0.903989293123443331586200297230537048710132025);
cannam@95	1740 DVK(KP336889853, +0.336889853392220050689253212619147570477766780);
cannam@95	1741 DVK(KP941544065, +0.941544065183020778412509402599502357185589796);
cannam@95	1742 DVK(KP634393284, +0.634393284163645498215171613225493370675687095);
cannam@95	1743 DVK(KP773010453, +0.773010453362736960810906609758469800971041293);
cannam@95	1744 DVK(KP098017140, +0.098017140329560601994195563888641845861136673);
cannam@95	1745 DVK(KP995184726, +0.995184726672196886244836953109479921575474869);
cannam@95	1746 DVK(KP290284677, +0.290284677254462367636192375817395274691476278);
cannam@95	1747 DVK(KP956940335, +0.956940335732208864935797886980269969482849206);
cannam@95	1748 DVK(KP471396736, +0.471396736825997648556387625905254377657460319);
cannam@95	1749 DVK(KP881921264, +0.881921264348355029712756863660388349508442621);
cannam@95	1750 DVK(KP980785280, +0.980785280403230449126182236134239036973933731);
cannam@95	1751 DVK(KP195090322, +0.195090322016128267848284868477022240927691618);
cannam@95	1752 DVK(KP555570233, +0.555570233019602224742830813948532874374937191);
cannam@95	1753 DVK(KP831469612, +0.831469612302545237078788377617905756738560812);
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 = ii;
cannam@95	1762 xo = io;
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 T49, T6e, Tev, TgK, TfA, TgL, T4U, T5J, T7R, T9o, Tah, TdG, Tcw, TdB, T84;
cannam@95	1765 V T8T, Tfk, Tfo, T1G, T64, Tgs, Th6, T2p, T62, T7t, T9c, Tce, Tdm, T7i, T9e;
cannam@95	1766 V Tc8, Tdp, TgF, TgG, T4q, T4V, TeC, Tfx, T4H, T4W, T7X, T86, Tcr, TdH, T7U;
cannam@95	1767 V T85, Taw, TdC, Tf3, Tf7, Tr, T5X, Tgl, Th3, T1a, T5V, T7a, T95, TbD, Tdf;
cannam@95	1768 V T6Z, T97, Tbx, Tdi, Tgy, Tgz, TgA, TaN, Tdv, TeK, Tfu, T2W, T5M, T35, T5N;
cannam@95	1769 V T7F, T8X, TaI, Tdu, T7C, T8W, TgB, TgC, TgD, Tb4, Tdy, TeR, Tfv, T3x, T5P;
cannam@95	1770 V T3G, T5Q, T7M, T90, TaZ, Tdx, T7J, T8Z, Tbm, Tdg, TbG, Tdj, Tgo, Th4, Tf0;
cannam@95	1771 V Tf8, T76, T98, T7d, T94, T10, T5Y, T1d, T5U, TbX, Tdn, Tch, Tdq, Tgv, Th7;
cannam@95	1772 V Tfh, Tfp, T7p, T9f, T7w, T9b, T2f, T65, T2s, T61;
cannam@95	1773 {
cannam@95	1774 V T47, Ta8, T4O, Ta7, T44, Tcu, T4P, Tct, Taa, Tab, T3P, Tac, T4R, Tad, Tae;
cannam@95	1775 V T3W, Taf, T4S;
cannam@95	1776 {
cannam@95	1777 V T45, T46, T4M, T4N;
cannam@95	1778 T45 = LD(&(xi[WS(is, 32)]), ivs, &(xi[0]));
cannam@95	1779 T46 = LD(&(xi[WS(is, 96)]), ivs, &(xi[0]));
cannam@95	1780 T47 = VSUB(T45, T46);
cannam@95	1781 Ta8 = VADD(T45, T46);
cannam@95	1782 T4M = LD(&(xi[0]), ivs, &(xi[0]));
cannam@95	1783 T4N = LD(&(xi[WS(is, 64)]), ivs, &(xi[0]));
cannam@95	1784 T4O = VSUB(T4M, T4N);
cannam@95	1785 Ta7 = VADD(T4M, T4N);
cannam@95	1786 }
cannam@95	1787 {
cannam@95	1788 V T3Y, T3Z, T40, T41, T42, T43;
cannam@95	1789 T3Y = LD(&(xi[WS(is, 16)]), ivs, &(xi[0]));
cannam@95	1790 T3Z = LD(&(xi[WS(is, 80)]), ivs, &(xi[0]));
cannam@95	1791 T40 = VSUB(T3Y, T3Z);
cannam@95	1792 T41 = LD(&(xi[WS(is, 112)]), ivs, &(xi[0]));
cannam@95	1793 T42 = LD(&(xi[WS(is, 48)]), ivs, &(xi[0]));
cannam@95	1794 T43 = VSUB(T41, T42);
cannam@95	1795 T44 = VMUL(LDK(KP707106781), VSUB(T40, T43));
cannam@95	1796 Tcu = VADD(T41, T42);
cannam@95	1797 T4P = VMUL(LDK(KP707106781), VADD(T40, T43));
cannam@95	1798 Tct = VADD(T3Y, T3Z);
cannam@95	1799 }
cannam@95	1800 {
cannam@95	1801 V T3L, T3O, T3S, T3V;
cannam@95	1802 {
cannam@95	1803 V T3J, T3K, T3M, T3N;
cannam@95	1804 T3J = LD(&(xi[WS(is, 8)]), ivs, &(xi[0]));
cannam@95	1805 T3K = LD(&(xi[WS(is, 72)]), ivs, &(xi[0]));
cannam@95	1806 T3L = VSUB(T3J, T3K);
cannam@95	1807 Taa = VADD(T3J, T3K);
cannam@95	1808 T3M = LD(&(xi[WS(is, 40)]), ivs, &(xi[0]));
cannam@95	1809 T3N = LD(&(xi[WS(is, 104)]), ivs, &(xi[0]));
cannam@95	1810 T3O = VSUB(T3M, T3N);
cannam@95	1811 Tab = VADD(T3M, T3N);
cannam@95	1812 }
cannam@95	1813 T3P = VFNMS(LDK(KP382683432), T3O, VMUL(LDK(KP923879532), T3L));
cannam@95	1814 Tac = VSUB(Taa, Tab);
cannam@95	1815 T4R = VFMA(LDK(KP382683432), T3L, VMUL(LDK(KP923879532), T3O));
cannam@95	1816 {
cannam@95	1817 V T3Q, T3R, T3T, T3U;
cannam@95	1818 T3Q = LD(&(xi[WS(is, 120)]), ivs, &(xi[0]));
cannam@95	1819 T3R = LD(&(xi[WS(is, 56)]), ivs, &(xi[0]));
cannam@95	1820 T3S = VSUB(T3Q, T3R);
cannam@95	1821 Tad = VADD(T3Q, T3R);
cannam@95	1822 T3T = LD(&(xi[WS(is, 24)]), ivs, &(xi[0]));
cannam@95	1823 T3U = LD(&(xi[WS(is, 88)]), ivs, &(xi[0]));
cannam@95	1824 T3V = VSUB(T3T, T3U);
cannam@95	1825 Tae = VADD(T3T, T3U);
cannam@95	1826 }
cannam@95	1827 T3W = VFMA(LDK(KP923879532), T3S, VMUL(LDK(KP382683432), T3V));
cannam@95	1828 Taf = VSUB(Tad, Tae);
cannam@95	1829 T4S = VFNMS(LDK(KP382683432), T3S, VMUL(LDK(KP923879532), T3V));
cannam@95	1830 }
cannam@95	1831 {
cannam@95	1832 V T3X, T48, Tet, Teu;
cannam@95	1833 T3X = VSUB(T3P, T3W);
cannam@95	1834 T48 = VSUB(T44, T47);
cannam@95	1835 T49 = VSUB(T3X, T48);
cannam@95	1836 T6e = VADD(T48, T3X);
cannam@95	1837 Tet = VADD(Ta7, Ta8);
cannam@95	1838 Teu = VADD(Tct, Tcu);
cannam@95	1839 Tev = VSUB(Tet, Teu);
cannam@95	1840 TgK = VADD(Tet, Teu);
cannam@95	1841 }
cannam@95	1842 {
cannam@95	1843 V Tfy, Tfz, T4Q, T4T;
cannam@95	1844 Tfy = VADD(Taa, Tab);
cannam@95	1845 Tfz = VADD(Tad, Tae);
cannam@95	1846 TfA = VSUB(Tfy, Tfz);
cannam@95	1847 TgL = VADD(Tfy, Tfz);
cannam@95	1848 T4Q = VSUB(T4O, T4P);
cannam@95	1849 T4T = VSUB(T4R, T4S);
cannam@95	1850 T4U = VSUB(T4Q, T4T);
cannam@95	1851 T5J = VADD(T4Q, T4T);
cannam@95	1852 }
cannam@95	1853 {
cannam@95	1854 V T7P, T7Q, Ta9, Tag;
cannam@95	1855 T7P = VADD(T4R, T4S);
cannam@95	1856 T7Q = VADD(T47, T44);
cannam@95	1857 T7R = VSUB(T7P, T7Q);
cannam@95	1858 T9o = VADD(T7Q, T7P);
cannam@95	1859 Ta9 = VSUB(Ta7, Ta8);
cannam@95	1860 Tag = VMUL(LDK(KP707106781), VADD(Tac, Taf));
cannam@95	1861 Tah = VSUB(Ta9, Tag);
cannam@95	1862 TdG = VADD(Ta9, Tag);
cannam@95	1863 }
cannam@95	1864 {
cannam@95	1865 V Tcs, Tcv, T82, T83;
cannam@95	1866 Tcs = VMUL(LDK(KP707106781), VSUB(Tac, Taf));
cannam@95	1867 Tcv = VSUB(Tct, Tcu);
cannam@95	1868 Tcw = VSUB(Tcs, Tcv);
cannam@95	1869 TdB = VADD(Tcv, Tcs);
cannam@95	1870 T82 = VADD(T4O, T4P);
cannam@95	1871 T83 = VADD(T3P, T3W);
cannam@95	1872 T84 = VSUB(T82, T83);
cannam@95	1873 T8T = VADD(T82, T83);
cannam@95	1874 }
cannam@95	1875 }
cannam@95	1876 {
cannam@95	1877 V Tca, Tcb, T1i, Tfm, T2n, Tc5, Tc6, T1p, Tfn, T2k, T1x, Tfi, T2h, Tc0, T1E;
cannam@95	1878 V Tfj, T2i, Tc3, T1l, T1o, Tcc, Tcd;
cannam@95	1879 {
cannam@95	1880 V T1g, T1h, T2l, T2m;
cannam@95	1881 T1g = LD(&(xi[WS(is, 127)]), ivs, &(xi[WS(is, 1)]));
cannam@95	1882 T1h = LD(&(xi[WS(is, 63)]), ivs, &(xi[WS(is, 1)]));
cannam@95	1883 Tca = VADD(T1g, T1h);
cannam@95	1884 T2l = LD(&(xi[WS(is, 31)]), ivs, &(xi[WS(is, 1)]));
cannam@95	1885 T2m = LD(&(xi[WS(is, 95)]), ivs, &(xi[WS(is, 1)]));
cannam@95	1886 Tcb = VADD(T2l, T2m);
cannam@95	1887 T1i = VSUB(T1g, T1h);
cannam@95	1888 Tfm = VADD(Tca, Tcb);
cannam@95	1889 T2n = VSUB(T2l, T2m);
cannam@95	1890 }
cannam@95	1891 {
cannam@95	1892 V T1j, T1k, T1m, T1n;
cannam@95	1893 T1j = LD(&(xi[WS(is, 15)]), ivs, &(xi[WS(is, 1)]));
cannam@95	1894 T1k = LD(&(xi[WS(is, 79)]), ivs, &(xi[WS(is, 1)]));
cannam@95	1895 T1l = VSUB(T1j, T1k);
cannam@95	1896 Tc5 = VADD(T1j, T1k);
cannam@95	1897 T1m = LD(&(xi[WS(is, 111)]), ivs, &(xi[WS(is, 1)]));
cannam@95	1898 T1n = LD(&(xi[WS(is, 47)]), ivs, &(xi[WS(is, 1)]));
cannam@95	1899 T1o = VSUB(T1m, T1n);
cannam@95	1900 Tc6 = VADD(T1m, T1n);
cannam@95	1901 }
cannam@95	1902 T1p = VMUL(LDK(KP707106781), VADD(T1l, T1o));
cannam@95	1903 Tfn = VADD(Tc5, Tc6);
cannam@95	1904 T2k = VMUL(LDK(KP707106781), VSUB(T1l, T1o));
cannam@95	1905 {
cannam@95	1906 V T1t, TbY, T1w, TbZ;
cannam@95	1907 {
cannam@95	1908 V T1r, T1s, T1u, T1v;
cannam@95	1909 T1r = LD(&(xi[WS(is, 7)]), ivs, &(xi[WS(is, 1)]));
cannam@95	1910 T1s = LD(&(xi[WS(is, 71)]), ivs, &(xi[WS(is, 1)]));
cannam@95	1911 T1t = VSUB(T1r, T1s);
cannam@95	1912 TbY = VADD(T1r, T1s);
cannam@95	1913 T1u = LD(&(xi[WS(is, 39)]), ivs, &(xi[WS(is, 1)]));
cannam@95	1914 T1v = LD(&(xi[WS(is, 103)]), ivs, &(xi[WS(is, 1)]));
cannam@95	1915 T1w = VSUB(T1u, T1v);
cannam@95	1916 TbZ = VADD(T1u, T1v);
cannam@95	1917 }
cannam@95	1918 T1x = VFMA(LDK(KP382683432), T1t, VMUL(LDK(KP923879532), T1w));
cannam@95	1919 Tfi = VADD(TbY, TbZ);
cannam@95	1920 T2h = VFNMS(LDK(KP382683432), T1w, VMUL(LDK(KP923879532), T1t));
cannam@95	1921 Tc0 = VSUB(TbY, TbZ);
cannam@95	1922 }
cannam@95	1923 {
cannam@95	1924 V T1A, Tc2, T1D, Tc1;
cannam@95	1925 {
cannam@95	1926 V T1y, T1z, T1B, T1C;
cannam@95	1927 T1y = LD(&(xi[WS(is, 23)]), ivs, &(xi[WS(is, 1)]));
cannam@95	1928 T1z = LD(&(xi[WS(is, 87)]), ivs, &(xi[WS(is, 1)]));
cannam@95	1929 T1A = VSUB(T1y, T1z);
cannam@95	1930 Tc2 = VADD(T1y, T1z);
cannam@95	1931 T1B = LD(&(xi[WS(is, 119)]), ivs, &(xi[WS(is, 1)]));
cannam@95	1932 T1C = LD(&(xi[WS(is, 55)]), ivs, &(xi[WS(is, 1)]));
cannam@95	1933 T1D = VSUB(T1B, T1C);
cannam@95	1934 Tc1 = VADD(T1B, T1C);
cannam@95	1935 }
cannam@95	1936 T1E = VFNMS(LDK(KP382683432), T1D, VMUL(LDK(KP923879532), T1A));
cannam@95	1937 Tfj = VADD(Tc1, Tc2);
cannam@95	1938 T2i = VFMA(LDK(KP923879532), T1D, VMUL(LDK(KP382683432), T1A));
cannam@95	1939 Tc3 = VSUB(Tc1, Tc2);
cannam@95	1940 }
cannam@95	1941 Tfk = VSUB(Tfi, Tfj);
cannam@95	1942 Tfo = VSUB(Tfm, Tfn);
cannam@95	1943 {
cannam@95	1944 V T1q, T1F, Tgq, Tgr;
cannam@95	1945 T1q = VSUB(T1i, T1p);
cannam@95	1946 T1F = VSUB(T1x, T1E);
cannam@95	1947 T1G = VSUB(T1q, T1F);
cannam@95	1948 T64 = VADD(T1q, T1F);
cannam@95	1949 Tgq = VADD(Tfm, Tfn);
cannam@95	1950 Tgr = VADD(Tfi, Tfj);
cannam@95	1951 Tgs = VSUB(Tgq, Tgr);
cannam@95	1952 Th6 = VADD(Tgq, Tgr);
cannam@95	1953 }
cannam@95	1954 {
cannam@95	1955 V T2j, T2o, T7r, T7s;
cannam@95	1956 T2j = VSUB(T2h, T2i);
cannam@95	1957 T2o = VSUB(T2k, T2n);
cannam@95	1958 T2p = VSUB(T2j, T2o);
cannam@95	1959 T62 = VADD(T2o, T2j);
cannam@95	1960 T7r = VADD(T1x, T1E);
cannam@95	1961 T7s = VADD(T2n, T2k);
cannam@95	1962 T7t = VSUB(T7r, T7s);
cannam@95	1963 T9c = VADD(T7s, T7r);
cannam@95	1964 }
cannam@95	1965 Tcc = VSUB(Tca, Tcb);
cannam@95	1966 Tcd = VMUL(LDK(KP707106781), VADD(Tc0, Tc3));
cannam@95	1967 Tce = VSUB(Tcc, Tcd);
cannam@95	1968 Tdm = VADD(Tcc, Tcd);
cannam@95	1969 {
cannam@95	1970 V T7g, T7h, Tc4, Tc7;
cannam@95	1971 T7g = VADD(T1i, T1p);
cannam@95	1972 T7h = VADD(T2h, T2i);
cannam@95	1973 T7i = VSUB(T7g, T7h);
cannam@95	1974 T9e = VADD(T7g, T7h);
cannam@95	1975 Tc4 = VMUL(LDK(KP707106781), VSUB(Tc0, Tc3));
cannam@95	1976 Tc7 = VSUB(Tc5, Tc6);
cannam@95	1977 Tc8 = VSUB(Tc4, Tc7);
cannam@95	1978 Tdp = VADD(Tc7, Tc4);
cannam@95	1979 }
cannam@95	1980 }
cannam@95	1981 {
cannam@95	1982 V T4c, Tew, T4o, Tak, T4A, Tez, T4E, Tau, T4j, Tex, T4l, Tan, T4x, TeA, T4F;
cannam@95	1983 V Tar, Tcp, Tcq;
cannam@95	1984 {
cannam@95	1985 V T4a, T4b, Tai, T4m, T4n, Taj;
cannam@95	1986 T4a = LD(&(xi[WS(is, 4)]), ivs, &(xi[0]));
cannam@95	1987 T4b = LD(&(xi[WS(is, 68)]), ivs, &(xi[0]));
cannam@95	1988 Tai = VADD(T4a, T4b);
cannam@95	1989 T4m = LD(&(xi[WS(is, 36)]), ivs, &(xi[0]));
cannam@95	1990 T4n = LD(&(xi[WS(is, 100)]), ivs, &(xi[0]));
cannam@95	1991 Taj = VADD(T4m, T4n);
cannam@95	1992 T4c = VSUB(T4a, T4b);
cannam@95	1993 Tew = VADD(Tai, Taj);
cannam@95	1994 T4o = VSUB(T4m, T4n);
cannam@95	1995 Tak = VSUB(Tai, Taj);
cannam@95	1996 }
cannam@95	1997 {
cannam@95	1998 V T4y, T4z, Tat, T4C, T4D, Tas;
cannam@95	1999 T4y = LD(&(xi[WS(is, 28)]), ivs, &(xi[0]));
cannam@95	2000 T4z = LD(&(xi[WS(is, 92)]), ivs, &(xi[0]));
cannam@95	2001 Tat = VADD(T4y, T4z);
cannam@95	2002 T4C = LD(&(xi[WS(is, 124)]), ivs, &(xi[0]));
cannam@95	2003 T4D = LD(&(xi[WS(is, 60)]), ivs, &(xi[0]));
cannam@95	2004 Tas = VADD(T4C, T4D);
cannam@95	2005 T4A = VSUB(T4y, T4z);
cannam@95	2006 Tez = VADD(Tas, Tat);
cannam@95	2007 T4E = VSUB(T4C, T4D);
cannam@95	2008 Tau = VSUB(Tas, Tat);
cannam@95	2009 }
cannam@95	2010 {
cannam@95	2011 V T4f, Tal, T4i, Tam;
cannam@95	2012 {
cannam@95	2013 V T4d, T4e, T4g, T4h;
cannam@95	2014 T4d = LD(&(xi[WS(is, 20)]), ivs, &(xi[0]));
cannam@95	2015 T4e = LD(&(xi[WS(is, 84)]), ivs, &(xi[0]));
cannam@95	2016 T4f = VSUB(T4d, T4e);
cannam@95	2017 Tal = VADD(T4d, T4e);
cannam@95	2018 T4g = LD(&(xi[WS(is, 116)]), ivs, &(xi[0]));
cannam@95	2019 T4h = LD(&(xi[WS(is, 52)]), ivs, &(xi[0]));
cannam@95	2020 T4i = VSUB(T4g, T4h);
cannam@95	2021 Tam = VADD(T4g, T4h);
cannam@95	2022 }
cannam@95	2023 T4j = VMUL(LDK(KP707106781), VADD(T4f, T4i));
cannam@95	2024 Tex = VADD(Tal, Tam);
cannam@95	2025 T4l = VMUL(LDK(KP707106781), VSUB(T4f, T4i));
cannam@95	2026 Tan = VSUB(Tal, Tam);
cannam@95	2027 }
cannam@95	2028 {
cannam@95	2029 V T4t, Tap, T4w, Taq;
cannam@95	2030 {
cannam@95	2031 V T4r, T4s, T4u, T4v;
cannam@95	2032 T4r = LD(&(xi[WS(is, 12)]), ivs, &(xi[0]));
cannam@95	2033 T4s = LD(&(xi[WS(is, 76)]), ivs, &(xi[0]));
cannam@95	2034 T4t = VSUB(T4r, T4s);
cannam@95	2035 Tap = VADD(T4r, T4s);
cannam@95	2036 T4u = LD(&(xi[WS(is, 108)]), ivs, &(xi[0]));
cannam@95	2037 T4v = LD(&(xi[WS(is, 44)]), ivs, &(xi[0]));
cannam@95	2038 T4w = VSUB(T4u, T4v);
cannam@95	2039 Taq = VADD(T4u, T4v);
cannam@95	2040 }
cannam@95	2041 T4x = VMUL(LDK(KP707106781), VSUB(T4t, T4w));
cannam@95	2042 TeA = VADD(Tap, Taq);
cannam@95	2043 T4F = VMUL(LDK(KP707106781), VADD(T4t, T4w));
cannam@95	2044 Tar = VSUB(Tap, Taq);
cannam@95	2045 }
cannam@95	2046 TgF = VADD(Tew, Tex);
cannam@95	2047 TgG = VADD(Tez, TeA);
cannam@95	2048 {
cannam@95	2049 V T4k, T4p, Tey, TeB;
cannam@95	2050 T4k = VSUB(T4c, T4j);
cannam@95	2051 T4p = VSUB(T4l, T4o);
cannam@95	2052 T4q = VFNMS(LDK(KP555570233), T4p, VMUL(LDK(KP831469612), T4k));
cannam@95	2053 T4V = VFMA(LDK(KP831469612), T4p, VMUL(LDK(KP555570233), T4k));
cannam@95	2054 Tey = VSUB(Tew, Tex);
cannam@95	2055 TeB = VSUB(Tez, TeA);
cannam@95	2056 TeC = VMUL(LDK(KP707106781), VADD(Tey, TeB));
cannam@95	2057 Tfx = VMUL(LDK(KP707106781), VSUB(Tey, TeB));
cannam@95	2058 }
cannam@95	2059 {
cannam@95	2060 V T4B, T4G, T7V, T7W;
cannam@95	2061 T4B = VSUB(T4x, T4A);
cannam@95	2062 T4G = VSUB(T4E, T4F);
cannam@95	2063 T4H = VFMA(LDK(KP555570233), T4B, VMUL(LDK(KP831469612), T4G));
cannam@95	2064 T4W = VFNMS(LDK(KP555570233), T4G, VMUL(LDK(KP831469612), T4B));
cannam@95	2065 T7V = VADD(T4A, T4x);
cannam@95	2066 T7W = VADD(T4E, T4F);
cannam@95	2067 T7X = VFMA(LDK(KP195090322), T7V, VMUL(LDK(KP980785280), T7W));
cannam@95	2068 T86 = VFNMS(LDK(KP195090322), T7W, VMUL(LDK(KP980785280), T7V));
cannam@95	2069 }
cannam@95	2070 Tcp = VFNMS(LDK(KP382683432), Tan, VMUL(LDK(KP923879532), Tak));
cannam@95	2071 Tcq = VFMA(LDK(KP923879532), Tau, VMUL(LDK(KP382683432), Tar));
cannam@95	2072 Tcr = VSUB(Tcp, Tcq);
cannam@95	2073 TdH = VADD(Tcp, Tcq);
cannam@95	2074 {
cannam@95	2075 V T7S, T7T, Tao, Tav;
cannam@95	2076 T7S = VADD(T4c, T4j);
cannam@95	2077 T7T = VADD(T4o, T4l);
cannam@95	2078 T7U = VFNMS(LDK(KP195090322), T7T, VMUL(LDK(KP980785280), T7S));
cannam@95	2079 T85 = VFMA(LDK(KP980785280), T7T, VMUL(LDK(KP195090322), T7S));
cannam@95	2080 Tao = VFMA(LDK(KP382683432), Tak, VMUL(LDK(KP923879532), Tan));
cannam@95	2081 Tav = VFNMS(LDK(KP382683432), Tau, VMUL(LDK(KP923879532), Tar));
cannam@95	2082 Taw = VSUB(Tao, Tav);
cannam@95	2083 TdC = VADD(Tao, Tav);
cannam@95	2084 }
cannam@95	2085 }
cannam@95	2086 {
cannam@95	2087 V Tbz, TbA, T3, Tf5, T18, Tbu, Tbv, Ta, Tf6, T15, Ti, Tf1, T12, Tbp, Tp;
cannam@95	2088 V Tf2, T13, Tbs, T6, T9, TbB, TbC;
cannam@95	2089 {
cannam@95	2090 V T1, T2, T16, T17;
cannam@95	2091 T1 = LD(&(xi[WS(is, 1)]), ivs, &(xi[WS(is, 1)]));
cannam@95	2092 T2 = LD(&(xi[WS(is, 65)]), ivs, &(xi[WS(is, 1)]));
cannam@95	2093 Tbz = VADD(T1, T2);
cannam@95	2094 T16 = LD(&(xi[WS(is, 33)]), ivs, &(xi[WS(is, 1)]));
cannam@95	2095 T17 = LD(&(xi[WS(is, 97)]), ivs, &(xi[WS(is, 1)]));
cannam@95	2096 TbA = VADD(T16, T17);
cannam@95	2097 T3 = VSUB(T1, T2);
cannam@95	2098 Tf5 = VADD(Tbz, TbA);
cannam@95	2099 T18 = VSUB(T16, T17);
cannam@95	2100 }
cannam@95	2101 {
cannam@95	2102 V T4, T5, T7, T8;
cannam@95	2103 T4 = LD(&(xi[WS(is, 17)]), ivs, &(xi[WS(is, 1)]));
cannam@95	2104 T5 = LD(&(xi[WS(is, 81)]), ivs, &(xi[WS(is, 1)]));
cannam@95	2105 T6 = VSUB(T4, T5);
cannam@95	2106 Tbu = VADD(T4, T5);
cannam@95	2107 T7 = LD(&(xi[WS(is, 113)]), ivs, &(xi[WS(is, 1)]));
cannam@95	2108 T8 = LD(&(xi[WS(is, 49)]), ivs, &(xi[WS(is, 1)]));
cannam@95	2109 T9 = VSUB(T7, T8);
cannam@95	2110 Tbv = VADD(T7, T8);
cannam@95	2111 }
cannam@95	2112 Ta = VMUL(LDK(KP707106781), VADD(T6, T9));
cannam@95	2113 Tf6 = VADD(Tbu, Tbv);
cannam@95	2114 T15 = VMUL(LDK(KP707106781), VSUB(T6, T9));
cannam@95	2115 {
cannam@95	2116 V Te, Tbn, Th, Tbo;
cannam@95	2117 {
cannam@95	2118 V Tc, Td, Tf, Tg;
cannam@95	2119 Tc = LD(&(xi[WS(is, 9)]), ivs, &(xi[WS(is, 1)]));
cannam@95	2120 Td = LD(&(xi[WS(is, 73)]), ivs, &(xi[WS(is, 1)]));
cannam@95	2121 Te = VSUB(Tc, Td);
cannam@95	2122 Tbn = VADD(Tc, Td);
cannam@95	2123 Tf = LD(&(xi[WS(is, 41)]), ivs, &(xi[WS(is, 1)]));
cannam@95	2124 Tg = LD(&(xi[WS(is, 105)]), ivs, &(xi[WS(is, 1)]));
cannam@95	2125 Th = VSUB(Tf, Tg);
cannam@95	2126 Tbo = VADD(Tf, Tg);
cannam@95	2127 }
cannam@95	2128 Ti = VFMA(LDK(KP382683432), Te, VMUL(LDK(KP923879532), Th));
cannam@95	2129 Tf1 = VADD(Tbn, Tbo);
cannam@95	2130 T12 = VFNMS(LDK(KP382683432), Th, VMUL(LDK(KP923879532), Te));
cannam@95	2131 Tbp = VSUB(Tbn, Tbo);
cannam@95	2132 }
cannam@95	2133 {
cannam@95	2134 V Tl, Tbr, To, Tbq;
cannam@95	2135 {
cannam@95	2136 V Tj, Tk, Tm, Tn;
cannam@95	2137 Tj = LD(&(xi[WS(is, 25)]), ivs, &(xi[WS(is, 1)]));
cannam@95	2138 Tk = LD(&(xi[WS(is, 89)]), ivs, &(xi[WS(is, 1)]));
cannam@95	2139 Tl = VSUB(Tj, Tk);
cannam@95	2140 Tbr = VADD(Tj, Tk);
cannam@95	2141 Tm = LD(&(xi[WS(is, 121)]), ivs, &(xi[WS(is, 1)]));
cannam@95	2142 Tn = LD(&(xi[WS(is, 57)]), ivs, &(xi[WS(is, 1)]));
cannam@95	2143 To = VSUB(Tm, Tn);
cannam@95	2144 Tbq = VADD(Tm, Tn);
cannam@95	2145 }
cannam@95	2146 Tp = VFNMS(LDK(KP382683432), To, VMUL(LDK(KP923879532), Tl));
cannam@95	2147 Tf2 = VADD(Tbq, Tbr);
cannam@95	2148 T13 = VFMA(LDK(KP923879532), To, VMUL(LDK(KP382683432), Tl));
cannam@95	2149 Tbs = VSUB(Tbq, Tbr);
cannam@95	2150 }
cannam@95	2151 Tf3 = VSUB(Tf1, Tf2);
cannam@95	2152 Tf7 = VSUB(Tf5, Tf6);
cannam@95	2153 {
cannam@95	2154 V Tb, Tq, Tgj, Tgk;
cannam@95	2155 Tb = VSUB(T3, Ta);
cannam@95	2156 Tq = VSUB(Ti, Tp);
cannam@95	2157 Tr = VSUB(Tb, Tq);
cannam@95	2158 T5X = VADD(Tb, Tq);
cannam@95	2159 Tgj = VADD(Tf5, Tf6);
cannam@95	2160 Tgk = VADD(Tf1, Tf2);
cannam@95	2161 Tgl = VSUB(Tgj, Tgk);
cannam@95	2162 Th3 = VADD(Tgj, Tgk);
cannam@95	2163 }
cannam@95	2164 {
cannam@95	2165 V T14, T19, T78, T79;
cannam@95	2166 T14 = VSUB(T12, T13);
cannam@95	2167 T19 = VSUB(T15, T18);
cannam@95	2168 T1a = VSUB(T14, T19);
cannam@95	2169 T5V = VADD(T19, T14);
cannam@95	2170 T78 = VADD(Ti, Tp);
cannam@95	2171 T79 = VADD(T18, T15);
cannam@95	2172 T7a = VSUB(T78, T79);
cannam@95	2173 T95 = VADD(T79, T78);
cannam@95	2174 }
cannam@95	2175 TbB = VSUB(Tbz, TbA);
cannam@95	2176 TbC = VMUL(LDK(KP707106781), VADD(Tbp, Tbs));
cannam@95	2177 TbD = VSUB(TbB, TbC);
cannam@95	2178 Tdf = VADD(TbB, TbC);
cannam@95	2179 {
cannam@95	2180 V T6X, T6Y, Tbt, Tbw;
cannam@95	2181 T6X = VADD(T3, Ta);
cannam@95	2182 T6Y = VADD(T12, T13);
cannam@95	2183 T6Z = VSUB(T6X, T6Y);
cannam@95	2184 T97 = VADD(T6X, T6Y);
cannam@95	2185 Tbt = VMUL(LDK(KP707106781), VSUB(Tbp, Tbs));
cannam@95	2186 Tbw = VSUB(Tbu, Tbv);
cannam@95	2187 Tbx = VSUB(Tbt, Tbw);
cannam@95	2188 Tdi = VADD(Tbw, Tbt);
cannam@95	2189 }
cannam@95	2190 }
cannam@95	2191 {
cannam@95	2192 V TaK, TaJ, T2U, TeE, T2Z, TaF, TaG, T2R, TeF, T30, T2C, TeH, T32, TaA, T2J;
cannam@95	2193 V TeI, T33, TaD, T2N, T2Q, TaL, TaM;
cannam@95	2194 {
cannam@95	2195 V T2S, T2T, T2X, T2Y;
cannam@95	2196 T2S = LD(&(xi[WS(is, 34)]), ivs, &(xi[0]));
cannam@95	2197 T2T = LD(&(xi[WS(is, 98)]), ivs, &(xi[0]));
cannam@95	2198 TaK = VADD(T2S, T2T);
cannam@95	2199 T2X = LD(&(xi[WS(is, 2)]), ivs, &(xi[0]));
cannam@95	2200 T2Y = LD(&(xi[WS(is, 66)]), ivs, &(xi[0]));
cannam@95	2201 TaJ = VADD(T2X, T2Y);
cannam@95	2202 T2U = VSUB(T2S, T2T);
cannam@95	2203 TeE = VADD(TaJ, TaK);
cannam@95	2204 T2Z = VSUB(T2X, T2Y);
cannam@95	2205 }
cannam@95	2206 {
cannam@95	2207 V T2L, T2M, T2O, T2P;
cannam@95	2208 T2L = LD(&(xi[WS(is, 18)]), ivs, &(xi[0]));
cannam@95	2209 T2M = LD(&(xi[WS(is, 82)]), ivs, &(xi[0]));
cannam@95	2210 T2N = VSUB(T2L, T2M);
cannam@95	2211 TaF = VADD(T2L, T2M);
cannam@95	2212 T2O = LD(&(xi[WS(is, 114)]), ivs, &(xi[0]));
cannam@95	2213 T2P = LD(&(xi[WS(is, 50)]), ivs, &(xi[0]));
cannam@95	2214 T2Q = VSUB(T2O, T2P);
cannam@95	2215 TaG = VADD(T2O, T2P);
cannam@95	2216 }
cannam@95	2217 T2R = VMUL(LDK(KP707106781), VSUB(T2N, T2Q));
cannam@95	2218 TeF = VADD(TaF, TaG);
cannam@95	2219 T30 = VMUL(LDK(KP707106781), VADD(T2N, T2Q));
cannam@95	2220 {
cannam@95	2221 V T2y, Tay, T2B, Taz;
cannam@95	2222 {
cannam@95	2223 V T2w, T2x, T2z, T2A;
cannam@95	2224 T2w = LD(&(xi[WS(is, 10)]), ivs, &(xi[0]));
cannam@95	2225 T2x = LD(&(xi[WS(is, 74)]), ivs, &(xi[0]));
cannam@95	2226 T2y = VSUB(T2w, T2x);
cannam@95	2227 Tay = VADD(T2w, T2x);
cannam@95	2228 T2z = LD(&(xi[WS(is, 42)]), ivs, &(xi[0]));
cannam@95	2229 T2A = LD(&(xi[WS(is, 106)]), ivs, &(xi[0]));
cannam@95	2230 T2B = VSUB(T2z, T2A);
cannam@95	2231 Taz = VADD(T2z, T2A);
cannam@95	2232 }
cannam@95	2233 T2C = VFNMS(LDK(KP382683432), T2B, VMUL(LDK(KP923879532), T2y));
cannam@95	2234 TeH = VADD(Tay, Taz);
cannam@95	2235 T32 = VFMA(LDK(KP382683432), T2y, VMUL(LDK(KP923879532), T2B));
cannam@95	2236 TaA = VSUB(Tay, Taz);
cannam@95	2237 }
cannam@95	2238 {
cannam@95	2239 V T2F, TaB, T2I, TaC;
cannam@95	2240 {
cannam@95	2241 V T2D, T2E, T2G, T2H;
cannam@95	2242 T2D = LD(&(xi[WS(is, 122)]), ivs, &(xi[0]));
cannam@95	2243 T2E = LD(&(xi[WS(is, 58)]), ivs, &(xi[0]));
cannam@95	2244 T2F = VSUB(T2D, T2E);
cannam@95	2245 TaB = VADD(T2D, T2E);
cannam@95	2246 T2G = LD(&(xi[WS(is, 26)]), ivs, &(xi[0]));
cannam@95	2247 T2H = LD(&(xi[WS(is, 90)]), ivs, &(xi[0]));
cannam@95	2248 T2I = VSUB(T2G, T2H);
cannam@95	2249 TaC = VADD(T2G, T2H);
cannam@95	2250 }
cannam@95	2251 T2J = VFMA(LDK(KP923879532), T2F, VMUL(LDK(KP382683432), T2I));
cannam@95	2252 TeI = VADD(TaB, TaC);
cannam@95	2253 T33 = VFNMS(LDK(KP382683432), T2F, VMUL(LDK(KP923879532), T2I));
cannam@95	2254 TaD = VSUB(TaB, TaC);
cannam@95	2255 }
cannam@95	2256 Tgy = VADD(TeE, TeF);
cannam@95	2257 Tgz = VADD(TeH, TeI);
cannam@95	2258 TgA = VSUB(Tgy, Tgz);
cannam@95	2259 TaL = VSUB(TaJ, TaK);
cannam@95	2260 TaM = VMUL(LDK(KP707106781), VADD(TaA, TaD));
cannam@95	2261 TaN = VSUB(TaL, TaM);
cannam@95	2262 Tdv = VADD(TaL, TaM);
cannam@95	2263 {
cannam@95	2264 V TeG, TeJ, T2K, T2V;
cannam@95	2265 TeG = VSUB(TeE, TeF);
cannam@95	2266 TeJ = VSUB(TeH, TeI);
cannam@95	2267 TeK = VFMA(LDK(KP382683432), TeG, VMUL(LDK(KP923879532), TeJ));
cannam@95	2268 Tfu = VFNMS(LDK(KP382683432), TeJ, VMUL(LDK(KP923879532), TeG));
cannam@95	2269 T2K = VSUB(T2C, T2J);
cannam@95	2270 T2V = VSUB(T2R, T2U);
cannam@95	2271 T2W = VSUB(T2K, T2V);
cannam@95	2272 T5M = VADD(T2V, T2K);
cannam@95	2273 }
cannam@95	2274 {
cannam@95	2275 V T31, T34, T7D, T7E;
cannam@95	2276 T31 = VSUB(T2Z, T30);
cannam@95	2277 T34 = VSUB(T32, T33);
cannam@95	2278 T35 = VSUB(T31, T34);
cannam@95	2279 T5N = VADD(T31, T34);
cannam@95	2280 T7D = VADD(T32, T33);
cannam@95	2281 T7E = VADD(T2U, T2R);
cannam@95	2282 T7F = VSUB(T7D, T7E);
cannam@95	2283 T8X = VADD(T7E, T7D);
cannam@95	2284 }
cannam@95	2285 {
cannam@95	2286 V TaE, TaH, T7A, T7B;
cannam@95	2287 TaE = VMUL(LDK(KP707106781), VSUB(TaA, TaD));
cannam@95	2288 TaH = VSUB(TaF, TaG);
cannam@95	2289 TaI = VSUB(TaE, TaH);
cannam@95	2290 Tdu = VADD(TaH, TaE);
cannam@95	2291 T7A = VADD(T2Z, T30);
cannam@95	2292 T7B = VADD(T2C, T2J);
cannam@95	2293 T7C = VSUB(T7A, T7B);
cannam@95	2294 T8W = VADD(T7A, T7B);
cannam@95	2295 }
cannam@95	2296 }
cannam@95	2297 {
cannam@95	2298 V Tb1, Tb0, T3v, TeO, T3A, TaW, TaX, T3s, TeP, T3B, T3d, TeL, T3D, TaR, T3k;
cannam@95	2299 V TeM, T3E, TaU, T3o, T3r, Tb2, Tb3;
cannam@95	2300 {
cannam@95	2301 V T3t, T3u, T3y, T3z;
cannam@95	2302 T3t = LD(&(xi[WS(is, 30)]), ivs, &(xi[0]));
cannam@95	2303 T3u = LD(&(xi[WS(is, 94)]), ivs, &(xi[0]));
cannam@95	2304 Tb1 = VADD(T3t, T3u);
cannam@95	2305 T3y = LD(&(xi[WS(is, 126)]), ivs, &(xi[0]));
cannam@95	2306 T3z = LD(&(xi[WS(is, 62)]), ivs, &(xi[0]));
cannam@95	2307 Tb0 = VADD(T3y, T3z);
cannam@95	2308 T3v = VSUB(T3t, T3u);
cannam@95	2309 TeO = VADD(Tb0, Tb1);
cannam@95	2310 T3A = VSUB(T3y, T3z);
cannam@95	2311 }
cannam@95	2312 {
cannam@95	2313 V T3m, T3n, T3p, T3q;
cannam@95	2314 T3m = LD(&(xi[WS(is, 14)]), ivs, &(xi[0]));
cannam@95	2315 T3n = LD(&(xi[WS(is, 78)]), ivs, &(xi[0]));
cannam@95	2316 T3o = VSUB(T3m, T3n);
cannam@95	2317 TaW = VADD(T3m, T3n);
cannam@95	2318 T3p = LD(&(xi[WS(is, 110)]), ivs, &(xi[0]));
cannam@95	2319 T3q = LD(&(xi[WS(is, 46)]), ivs, &(xi[0]));
cannam@95	2320 T3r = VSUB(T3p, T3q);
cannam@95	2321 TaX = VADD(T3p, T3q);
cannam@95	2322 }
cannam@95	2323 T3s = VMUL(LDK(KP707106781), VSUB(T3o, T3r));
cannam@95	2324 TeP = VADD(TaW, TaX);
cannam@95	2325 T3B = VMUL(LDK(KP707106781), VADD(T3o, T3r));
cannam@95	2326 {
cannam@95	2327 V T39, TaP, T3c, TaQ;
cannam@95	2328 {
cannam@95	2329 V T37, T38, T3a, T3b;
cannam@95	2330 T37 = LD(&(xi[WS(is, 6)]), ivs, &(xi[0]));
cannam@95	2331 T38 = LD(&(xi[WS(is, 70)]), ivs, &(xi[0]));
cannam@95	2332 T39 = VSUB(T37, T38);
cannam@95	2333 TaP = VADD(T37, T38);
cannam@95	2334 T3a = LD(&(xi[WS(is, 38)]), ivs, &(xi[0]));
cannam@95	2335 T3b = LD(&(xi[WS(is, 102)]), ivs, &(xi[0]));
cannam@95	2336 T3c = VSUB(T3a, T3b);
cannam@95	2337 TaQ = VADD(T3a, T3b);
cannam@95	2338 }
cannam@95	2339 T3d = VFNMS(LDK(KP382683432), T3c, VMUL(LDK(KP923879532), T39));
cannam@95	2340 TeL = VADD(TaP, TaQ);
cannam@95	2341 T3D = VFMA(LDK(KP382683432), T39, VMUL(LDK(KP923879532), T3c));
cannam@95	2342 TaR = VSUB(TaP, TaQ);
cannam@95	2343 }
cannam@95	2344 {
cannam@95	2345 V T3g, TaS, T3j, TaT;
cannam@95	2346 {
cannam@95	2347 V T3e, T3f, T3h, T3i;
cannam@95	2348 T3e = LD(&(xi[WS(is, 118)]), ivs, &(xi[0]));
cannam@95	2349 T3f = LD(&(xi[WS(is, 54)]), ivs, &(xi[0]));
cannam@95	2350 T3g = VSUB(T3e, T3f);
cannam@95	2351 TaS = VADD(T3e, T3f);
cannam@95	2352 T3h = LD(&(xi[WS(is, 22)]), ivs, &(xi[0]));
cannam@95	2353 T3i = LD(&(xi[WS(is, 86)]), ivs, &(xi[0]));
cannam@95	2354 T3j = VSUB(T3h, T3i);
cannam@95	2355 TaT = VADD(T3h, T3i);
cannam@95	2356 }
cannam@95	2357 T3k = VFMA(LDK(KP923879532), T3g, VMUL(LDK(KP382683432), T3j));
cannam@95	2358 TeM = VADD(TaS, TaT);
cannam@95	2359 T3E = VFNMS(LDK(KP382683432), T3g, VMUL(LDK(KP923879532), T3j));
cannam@95	2360 TaU = VSUB(TaS, TaT);
cannam@95	2361 }
cannam@95	2362 TgB = VADD(TeO, TeP);
cannam@95	2363 TgC = VADD(TeL, TeM);
cannam@95	2364 TgD = VSUB(TgB, TgC);
cannam@95	2365 Tb2 = VSUB(Tb0, Tb1);
cannam@95	2366 Tb3 = VMUL(LDK(KP707106781), VADD(TaR, TaU));
cannam@95	2367 Tb4 = VSUB(Tb2, Tb3);
cannam@95	2368 Tdy = VADD(Tb2, Tb3);
cannam@95	2369 {
cannam@95	2370 V TeN, TeQ, T3l, T3w;
cannam@95	2371 TeN = VSUB(TeL, TeM);
cannam@95	2372 TeQ = VSUB(TeO, TeP);
cannam@95	2373 TeR = VFNMS(LDK(KP382683432), TeQ, VMUL(LDK(KP923879532), TeN));
cannam@95	2374 Tfv = VFMA(LDK(KP923879532), TeQ, VMUL(LDK(KP382683432), TeN));
cannam@95	2375 T3l = VSUB(T3d, T3k);
cannam@95	2376 T3w = VSUB(T3s, T3v);
cannam@95	2377 T3x = VSUB(T3l, T3w);
cannam@95	2378 T5P = VADD(T3w, T3l);
cannam@95	2379 }
cannam@95	2380 {
cannam@95	2381 V T3C, T3F, T7K, T7L;
cannam@95	2382 T3C = VSUB(T3A, T3B);
cannam@95	2383 T3F = VSUB(T3D, T3E);
cannam@95	2384 T3G = VSUB(T3C, T3F);
cannam@95	2385 T5Q = VADD(T3C, T3F);
cannam@95	2386 T7K = VADD(T3A, T3B);
cannam@95	2387 T7L = VADD(T3d, T3k);
cannam@95	2388 T7M = VSUB(T7K, T7L);
cannam@95	2389 T90 = VADD(T7K, T7L);
cannam@95	2390 }
cannam@95	2391 {
cannam@95	2392 V TaV, TaY, T7H, T7I;
cannam@95	2393 TaV = VMUL(LDK(KP707106781), VSUB(TaR, TaU));
cannam@95	2394 TaY = VSUB(TaW, TaX);
cannam@95	2395 TaZ = VSUB(TaV, TaY);
cannam@95	2396 Tdx = VADD(TaY, TaV);
cannam@95	2397 T7H = VADD(T3D, T3E);
cannam@95	2398 T7I = VADD(T3v, T3s);
cannam@95	2399 T7J = VSUB(T7H, T7I);
cannam@95	2400 T8Z = VADD(T7I, T7H);
cannam@95	2401 }
cannam@95	2402 }
cannam@95	2403 {
cannam@95	2404 V TB, TeU, TF, Tba, TS, TeX, TW, Tbh, Ty, TeV, TG, Tbd, TP, TeY, TX;
cannam@95	2405 V Tbk;
cannam@95	2406 {
cannam@95	2407 V Tz, TA, Tb9, TD, TE, Tb8;
cannam@95	2408 Tz = LD(&(xi[WS(is, 37)]), ivs, &(xi[WS(is, 1)]));
cannam@95	2409 TA = LD(&(xi[WS(is, 101)]), ivs, &(xi[WS(is, 1)]));
cannam@95	2410 Tb9 = VADD(Tz, TA);
cannam@95	2411 TD = LD(&(xi[WS(is, 5)]), ivs, &(xi[WS(is, 1)]));
cannam@95	2412 TE = LD(&(xi[WS(is, 69)]), ivs, &(xi[WS(is, 1)]));
cannam@95	2413 Tb8 = VADD(TD, TE);
cannam@95	2414 TB = VSUB(Tz, TA);
cannam@95	2415 TeU = VADD(Tb8, Tb9);
cannam@95	2416 TF = VSUB(TD, TE);
cannam@95	2417 Tba = VSUB(Tb8, Tb9);
cannam@95	2418 }
cannam@95	2419 {
cannam@95	2420 V TQ, TR, Tbg, TU, TV, Tbf;
cannam@95	2421 TQ = LD(&(xi[WS(is, 29)]), ivs, &(xi[WS(is, 1)]));
cannam@95	2422 TR = LD(&(xi[WS(is, 93)]), ivs, &(xi[WS(is, 1)]));
cannam@95	2423 Tbg = VADD(TQ, TR);
cannam@95	2424 TU = LD(&(xi[WS(is, 125)]), ivs, &(xi[WS(is, 1)]));
cannam@95	2425 TV = LD(&(xi[WS(is, 61)]), ivs, &(xi[WS(is, 1)]));
cannam@95	2426 Tbf = VADD(TU, TV);
cannam@95	2427 TS = VSUB(TQ, TR);
cannam@95	2428 TeX = VADD(Tbf, Tbg);
cannam@95	2429 TW = VSUB(TU, TV);
cannam@95	2430 Tbh = VSUB(Tbf, Tbg);
cannam@95	2431 }
cannam@95	2432 {
cannam@95	2433 V Tu, Tbb, Tx, Tbc;
cannam@95	2434 {
cannam@95	2435 V Ts, Tt, Tv, Tw;
cannam@95	2436 Ts = LD(&(xi[WS(is, 21)]), ivs, &(xi[WS(is, 1)]));
cannam@95	2437 Tt = LD(&(xi[WS(is, 85)]), ivs, &(xi[WS(is, 1)]));
cannam@95	2438 Tu = VSUB(Ts, Tt);
cannam@95	2439 Tbb = VADD(Ts, Tt);
cannam@95	2440 Tv = LD(&(xi[WS(is, 117)]), ivs, &(xi[WS(is, 1)]));
cannam@95	2441 Tw = LD(&(xi[WS(is, 53)]), ivs, &(xi[WS(is, 1)]));
cannam@95	2442 Tx = VSUB(Tv, Tw);
cannam@95	2443 Tbc = VADD(Tv, Tw);
cannam@95	2444 }
cannam@95	2445 Ty = VMUL(LDK(KP707106781), VSUB(Tu, Tx));
cannam@95	2446 TeV = VADD(Tbb, Tbc);
cannam@95	2447 TG = VMUL(LDK(KP707106781), VADD(Tu, Tx));
cannam@95	2448 Tbd = VSUB(Tbb, Tbc);
cannam@95	2449 }
cannam@95	2450 {
cannam@95	2451 V TL, Tbi, TO, Tbj;
cannam@95	2452 {
cannam@95	2453 V TJ, TK, TM, TN;
cannam@95	2454 TJ = LD(&(xi[WS(is, 13)]), ivs, &(xi[WS(is, 1)]));
cannam@95	2455 TK = LD(&(xi[WS(is, 77)]), ivs, &(xi[WS(is, 1)]));
cannam@95	2456 TL = VSUB(TJ, TK);
cannam@95	2457 Tbi = VADD(TJ, TK);
cannam@95	2458 TM = LD(&(xi[WS(is, 109)]), ivs, &(xi[WS(is, 1)]));
cannam@95	2459 TN = LD(&(xi[WS(is, 45)]), ivs, &(xi[WS(is, 1)]));
cannam@95	2460 TO = VSUB(TM, TN);
cannam@95	2461 Tbj = VADD(TM, TN);
cannam@95	2462 }
cannam@95	2463 TP = VMUL(LDK(KP707106781), VSUB(TL, TO));
cannam@95	2464 TeY = VADD(Tbi, Tbj);
cannam@95	2465 TX = VMUL(LDK(KP707106781), VADD(TL, TO));
cannam@95	2466 Tbk = VSUB(Tbi, Tbj);
cannam@95	2467 }
cannam@95	2468 {
cannam@95	2469 V Tbe, Tbl, TeW, TeZ;
cannam@95	2470 Tbe = VFNMS(LDK(KP382683432), Tbd, VMUL(LDK(KP923879532), Tba));
cannam@95	2471 Tbl = VFMA(LDK(KP923879532), Tbh, VMUL(LDK(KP382683432), Tbk));
cannam@95	2472 Tbm = VSUB(Tbe, Tbl);
cannam@95	2473 Tdg = VADD(Tbe, Tbl);
cannam@95	2474 {
cannam@95	2475 V TbE, TbF, Tgm, Tgn;
cannam@95	2476 TbE = VFMA(LDK(KP382683432), Tba, VMUL(LDK(KP923879532), Tbd));
cannam@95	2477 TbF = VFNMS(LDK(KP382683432), Tbh, VMUL(LDK(KP923879532), Tbk));
cannam@95	2478 TbG = VSUB(TbE, TbF);
cannam@95	2479 Tdj = VADD(TbE, TbF);
cannam@95	2480 Tgm = VADD(TeU, TeV);
cannam@95	2481 Tgn = VADD(TeX, TeY);
cannam@95	2482 Tgo = VSUB(Tgm, Tgn);
cannam@95	2483 Th4 = VADD(Tgm, Tgn);
cannam@95	2484 }
cannam@95	2485 TeW = VSUB(TeU, TeV);
cannam@95	2486 TeZ = VSUB(TeX, TeY);
cannam@95	2487 Tf0 = VMUL(LDK(KP707106781), VSUB(TeW, TeZ));
cannam@95	2488 Tf8 = VMUL(LDK(KP707106781), VADD(TeW, TeZ));
cannam@95	2489 {
cannam@95	2490 V T72, T7b, T75, T7c;
cannam@95	2491 {
cannam@95	2492 V T70, T71, T73, T74;
cannam@95	2493 T70 = VADD(TB, Ty);
cannam@95	2494 T71 = VADD(TF, TG);
cannam@95	2495 T72 = VFMA(LDK(KP980785280), T70, VMUL(LDK(KP195090322), T71));
cannam@95	2496 T7b = VFNMS(LDK(KP195090322), T70, VMUL(LDK(KP980785280), T71));
cannam@95	2497 T73 = VADD(TS, TP);
cannam@95	2498 T74 = VADD(TW, TX);
cannam@95	2499 T75 = VFNMS(LDK(KP195090322), T74, VMUL(LDK(KP980785280), T73));
cannam@95	2500 T7c = VFMA(LDK(KP195090322), T73, VMUL(LDK(KP980785280), T74));
cannam@95	2501 }
cannam@95	2502 T76 = VSUB(T72, T75);
cannam@95	2503 T98 = VADD(T7b, T7c);
cannam@95	2504 T7d = VSUB(T7b, T7c);
cannam@95	2505 T94 = VADD(T72, T75);
cannam@95	2506 }
cannam@95	2507 {
cannam@95	2508 V TI, T1b, TZ, T1c;
cannam@95	2509 {
cannam@95	2510 V TC, TH, TT, TY;
cannam@95	2511 TC = VSUB(Ty, TB);
cannam@95	2512 TH = VSUB(TF, TG);
cannam@95	2513 TI = VFMA(LDK(KP831469612), TC, VMUL(LDK(KP555570233), TH));
cannam@95	2514 T1b = VFNMS(LDK(KP555570233), TC, VMUL(LDK(KP831469612), TH));
cannam@95	2515 TT = VSUB(TP, TS);
cannam@95	2516 TY = VSUB(TW, TX);
cannam@95	2517 TZ = VFNMS(LDK(KP555570233), TY, VMUL(LDK(KP831469612), TT));
cannam@95	2518 T1c = VFMA(LDK(KP555570233), TT, VMUL(LDK(KP831469612), TY));
cannam@95	2519 }
cannam@95	2520 T10 = VSUB(TI, TZ);
cannam@95	2521 T5Y = VADD(T1b, T1c);
cannam@95	2522 T1d = VSUB(T1b, T1c);
cannam@95	2523 T5U = VADD(TI, TZ);
cannam@95	2524 }
cannam@95	2525 }
cannam@95	2526 }
cannam@95	2527 {
cannam@95	2528 V T1Q, Tfb, T1U, TbL, T27, Tfe, T2b, TbS, T1N, Tfc, T1V, TbO, T24, Tff, T2c;
cannam@95	2529 V TbV;
cannam@95	2530 {
cannam@95	2531 V T1O, T1P, TbK, T1S, T1T, TbJ;
cannam@95	2532 T1O = LD(&(xi[WS(is, 35)]), ivs, &(xi[WS(is, 1)]));
cannam@95	2533 T1P = LD(&(xi[WS(is, 99)]), ivs, &(xi[WS(is, 1)]));
cannam@95	2534 TbK = VADD(T1O, T1P);
cannam@95	2535 T1S = LD(&(xi[WS(is, 3)]), ivs, &(xi[WS(is, 1)]));
cannam@95	2536 T1T = LD(&(xi[WS(is, 67)]), ivs, &(xi[WS(is, 1)]));
cannam@95	2537 TbJ = VADD(T1S, T1T);
cannam@95	2538 T1Q = VSUB(T1O, T1P);
cannam@95	2539 Tfb = VADD(TbJ, TbK);
cannam@95	2540 T1U = VSUB(T1S, T1T);
cannam@95	2541 TbL = VSUB(TbJ, TbK);
cannam@95	2542 }
cannam@95	2543 {
cannam@95	2544 V T25, T26, TbR, T29, T2a, TbQ;
cannam@95	2545 T25 = LD(&(xi[WS(is, 27)]), ivs, &(xi[WS(is, 1)]));
cannam@95	2546 T26 = LD(&(xi[WS(is, 91)]), ivs, &(xi[WS(is, 1)]));
cannam@95	2547 TbR = VADD(T25, T26);
cannam@95	2548 T29 = LD(&(xi[WS(is, 123)]), ivs, &(xi[WS(is, 1)]));
cannam@95	2549 T2a = LD(&(xi[WS(is, 59)]), ivs, &(xi[WS(is, 1)]));
cannam@95	2550 TbQ = VADD(T29, T2a);
cannam@95	2551 T27 = VSUB(T25, T26);
cannam@95	2552 Tfe = VADD(TbQ, TbR);
cannam@95	2553 T2b = VSUB(T29, T2a);
cannam@95	2554 TbS = VSUB(TbQ, TbR);
cannam@95	2555 }
cannam@95	2556 {
cannam@95	2557 V T1J, TbM, T1M, TbN;
cannam@95	2558 {
cannam@95	2559 V T1H, T1I, T1K, T1L;
cannam@95	2560 T1H = LD(&(xi[WS(is, 19)]), ivs, &(xi[WS(is, 1)]));
cannam@95	2561 T1I = LD(&(xi[WS(is, 83)]), ivs, &(xi[WS(is, 1)]));
cannam@95	2562 T1J = VSUB(T1H, T1I);
cannam@95	2563 TbM = VADD(T1H, T1I);
cannam@95	2564 T1K = LD(&(xi[WS(is, 115)]), ivs, &(xi[WS(is, 1)]));
cannam@95	2565 T1L = LD(&(xi[WS(is, 51)]), ivs, &(xi[WS(is, 1)]));
cannam@95	2566 T1M = VSUB(T1K, T1L);
cannam@95	2567 TbN = VADD(T1K, T1L);
cannam@95	2568 }
cannam@95	2569 T1N = VMUL(LDK(KP707106781), VSUB(T1J, T1M));
cannam@95	2570 Tfc = VADD(TbM, TbN);
cannam@95	2571 T1V = VMUL(LDK(KP707106781), VADD(T1J, T1M));
cannam@95	2572 TbO = VSUB(TbM, TbN);
cannam@95	2573 }
cannam@95	2574 {
cannam@95	2575 V T20, TbT, T23, TbU;
cannam@95	2576 {
cannam@95	2577 V T1Y, T1Z, T21, T22;
cannam@95	2578 T1Y = LD(&(xi[WS(is, 11)]), ivs, &(xi[WS(is, 1)]));
cannam@95	2579 T1Z = LD(&(xi[WS(is, 75)]), ivs, &(xi[WS(is, 1)]));
cannam@95	2580 T20 = VSUB(T1Y, T1Z);
cannam@95	2581 TbT = VADD(T1Y, T1Z);
cannam@95	2582 T21 = LD(&(xi[WS(is, 107)]), ivs, &(xi[WS(is, 1)]));
cannam@95	2583 T22 = LD(&(xi[WS(is, 43)]), ivs, &(xi[WS(is, 1)]));
cannam@95	2584 T23 = VSUB(T21, T22);
cannam@95	2585 TbU = VADD(T21, T22);
cannam@95	2586 }
cannam@95	2587 T24 = VMUL(LDK(KP707106781), VSUB(T20, T23));
cannam@95	2588 Tff = VADD(TbT, TbU);
cannam@95	2589 T2c = VMUL(LDK(KP707106781), VADD(T20, T23));
cannam@95	2590 TbV = VSUB(TbT, TbU);
cannam@95	2591 }
cannam@95	2592 {
cannam@95	2593 V TbP, TbW, Tfd, Tfg;
cannam@95	2594 TbP = VFNMS(LDK(KP382683432), TbO, VMUL(LDK(KP923879532), TbL));
cannam@95	2595 TbW = VFMA(LDK(KP923879532), TbS, VMUL(LDK(KP382683432), TbV));
cannam@95	2596 TbX = VSUB(TbP, TbW);
cannam@95	2597 Tdn = VADD(TbP, TbW);
cannam@95	2598 {
cannam@95	2599 V Tcf, Tcg, Tgt, Tgu;
cannam@95	2600 Tcf = VFMA(LDK(KP382683432), TbL, VMUL(LDK(KP923879532), TbO));
cannam@95	2601 Tcg = VFNMS(LDK(KP382683432), TbS, VMUL(LDK(KP923879532), TbV));
cannam@95	2602 Tch = VSUB(Tcf, Tcg);
cannam@95	2603 Tdq = VADD(Tcf, Tcg);
cannam@95	2604 Tgt = VADD(Tfb, Tfc);
cannam@95	2605 Tgu = VADD(Tfe, Tff);
cannam@95	2606 Tgv = VSUB(Tgt, Tgu);
cannam@95	2607 Th7 = VADD(Tgt, Tgu);
cannam@95	2608 }
cannam@95	2609 Tfd = VSUB(Tfb, Tfc);
cannam@95	2610 Tfg = VSUB(Tfe, Tff);
cannam@95	2611 Tfh = VMUL(LDK(KP707106781), VSUB(Tfd, Tfg));
cannam@95	2612 Tfp = VMUL(LDK(KP707106781), VADD(Tfd, Tfg));
cannam@95	2613 {
cannam@95	2614 V T7l, T7u, T7o, T7v;
cannam@95	2615 {
cannam@95	2616 V T7j, T7k, T7m, T7n;
cannam@95	2617 T7j = VADD(T1Q, T1N);
cannam@95	2618 T7k = VADD(T1U, T1V);
cannam@95	2619 T7l = VFMA(LDK(KP980785280), T7j, VMUL(LDK(KP195090322), T7k));
cannam@95	2620 T7u = VFNMS(LDK(KP195090322), T7j, VMUL(LDK(KP980785280), T7k));
cannam@95	2621 T7m = VADD(T27, T24);
cannam@95	2622 T7n = VADD(T2b, T2c);
cannam@95	2623 T7o = VFNMS(LDK(KP195090322), T7n, VMUL(LDK(KP980785280), T7m));
cannam@95	2624 T7v = VFMA(LDK(KP195090322), T7m, VMUL(LDK(KP980785280), T7n));
cannam@95	2625 }
cannam@95	2626 T7p = VSUB(T7l, T7o);
cannam@95	2627 T9f = VADD(T7u, T7v);
cannam@95	2628 T7w = VSUB(T7u, T7v);
cannam@95	2629 T9b = VADD(T7l, T7o);
cannam@95	2630 }
cannam@95	2631 {
cannam@95	2632 V T1X, T2q, T2e, T2r;
cannam@95	2633 {
cannam@95	2634 V T1R, T1W, T28, T2d;
cannam@95	2635 T1R = VSUB(T1N, T1Q);
cannam@95	2636 T1W = VSUB(T1U, T1V);
cannam@95	2637 T1X = VFMA(LDK(KP831469612), T1R, VMUL(LDK(KP555570233), T1W));
cannam@95	2638 T2q = VFNMS(LDK(KP555570233), T1R, VMUL(LDK(KP831469612), T1W));
cannam@95	2639 T28 = VSUB(T24, T27);
cannam@95	2640 T2d = VSUB(T2b, T2c);
cannam@95	2641 T2e = VFNMS(LDK(KP555570233), T2d, VMUL(LDK(KP831469612), T28));
cannam@95	2642 T2r = VFMA(LDK(KP555570233), T28, VMUL(LDK(KP831469612), T2d));
cannam@95	2643 }
cannam@95	2644 T2f = VSUB(T1X, T2e);
cannam@95	2645 T65 = VADD(T2q, T2r);
cannam@95	2646 T2s = VSUB(T2q, T2r);
cannam@95	2647 T61 = VADD(T1X, T2e);
cannam@95	2648 }
cannam@95	2649 }
cannam@95	2650 }
cannam@95	2651 {
cannam@95	2652 V Tgx, TgW, TgR, TgZ, TgI, TgY, TgO, TgV;
cannam@95	2653 {
cannam@95	2654 V Tgp, Tgw, TgP, TgQ;
cannam@95	2655 Tgp = VFNMS(LDK(KP382683432), Tgo, VMUL(LDK(KP923879532), Tgl));
cannam@95	2656 Tgw = VFMA(LDK(KP923879532), Tgs, VMUL(LDK(KP382683432), Tgv));
cannam@95	2657 Tgx = VSUB(Tgp, Tgw);
cannam@95	2658 TgW = VADD(Tgp, Tgw);
cannam@95	2659 TgP = VFMA(LDK(KP382683432), Tgl, VMUL(LDK(KP923879532), Tgo));
cannam@95	2660 TgQ = VFNMS(LDK(KP382683432), Tgs, VMUL(LDK(KP923879532), Tgv));
cannam@95	2661 TgR = VSUB(TgP, TgQ);
cannam@95	2662 TgZ = VADD(TgP, TgQ);
cannam@95	2663 }
cannam@95	2664 {
cannam@95	2665 V TgE, TgH, TgM, TgN;
cannam@95	2666 TgE = VMUL(LDK(KP707106781), VSUB(TgA, TgD));
cannam@95	2667 TgH = VSUB(TgF, TgG);
cannam@95	2668 TgI = VSUB(TgE, TgH);
cannam@95	2669 TgY = VADD(TgH, TgE);
cannam@95	2670 TgM = VSUB(TgK, TgL);
cannam@95	2671 TgN = VMUL(LDK(KP707106781), VADD(TgA, TgD));
cannam@95	2672 TgO = VSUB(TgM, TgN);
cannam@95	2673 TgV = VADD(TgM, TgN);
cannam@95	2674 }
cannam@95	2675 {
cannam@95	2676 V TgJ, TgS, Th1, Th2;
cannam@95	2677 TgJ = VBYI(VSUB(Tgx, TgI));
cannam@95	2678 TgS = VSUB(TgO, TgR);
cannam@95	2679 ST(&(xo[WS(os, 40)]), VADD(TgJ, TgS), ovs, &(xo[0]));
cannam@95	2680 ST(&(xo[WS(os, 88)]), VSUB(TgS, TgJ), ovs, &(xo[0]));
cannam@95	2681 Th1 = VSUB(TgV, TgW);
cannam@95	2682 Th2 = VBYI(VSUB(TgZ, TgY));
cannam@95	2683 ST(&(xo[WS(os, 72)]), VSUB(Th1, Th2), ovs, &(xo[0]));
cannam@95	2684 ST(&(xo[WS(os, 56)]), VADD(Th1, Th2), ovs, &(xo[0]));
cannam@95	2685 }
cannam@95	2686 {
cannam@95	2687 V TgT, TgU, TgX, Th0;
cannam@95	2688 TgT = VBYI(VADD(TgI, Tgx));
cannam@95	2689 TgU = VADD(TgO, TgR);
cannam@95	2690 ST(&(xo[WS(os, 24)]), VADD(TgT, TgU), ovs, &(xo[0]));
cannam@95	2691 ST(&(xo[WS(os, 104)]), VSUB(TgU, TgT), ovs, &(xo[0]));
cannam@95	2692 TgX = VADD(TgV, TgW);
cannam@95	2693 Th0 = VBYI(VADD(TgY, TgZ));
cannam@95	2694 ST(&(xo[WS(os, 120)]), VSUB(TgX, Th0), ovs, &(xo[0]));
cannam@95	2695 ST(&(xo[WS(os, 8)]), VADD(TgX, Th0), ovs, &(xo[0]));
cannam@95	2696 }
cannam@95	2697 }
cannam@95	2698 {
cannam@95	2699 V Th9, Thh, Thq, Ths, Thc, Thm, Thg, Thl, Thn, Thr;
cannam@95	2700 {
cannam@95	2701 V Th5, Th8, Tho, Thp;
cannam@95	2702 Th5 = VSUB(Th3, Th4);
cannam@95	2703 Th8 = VSUB(Th6, Th7);
cannam@95	2704 Th9 = VMUL(LDK(KP707106781), VSUB(Th5, Th8));
cannam@95	2705 Thh = VMUL(LDK(KP707106781), VADD(Th5, Th8));
cannam@95	2706 Tho = VADD(Th3, Th4);
cannam@95	2707 Thp = VADD(Th6, Th7);
cannam@95	2708 Thq = VBYI(VSUB(Tho, Thp));
cannam@95	2709 Ths = VADD(Tho, Thp);
cannam@95	2710 }
cannam@95	2711 {
cannam@95	2712 V Tha, Thb, The, Thf;
cannam@95	2713 Tha = VADD(Tgy, Tgz);
cannam@95	2714 Thb = VADD(TgB, TgC);
cannam@95	2715 Thc = VSUB(Tha, Thb);
cannam@95	2716 Thm = VADD(Tha, Thb);
cannam@95	2717 The = VADD(TgK, TgL);
cannam@95	2718 Thf = VADD(TgF, TgG);
cannam@95	2719 Thg = VSUB(The, Thf);
cannam@95	2720 Thl = VADD(The, Thf);
cannam@95	2721 }
cannam@95	2722 Thn = VSUB(Thl, Thm);
cannam@95	2723 ST(&(xo[WS(os, 96)]), VSUB(Thn, Thq), ovs, &(xo[0]));
cannam@95	2724 ST(&(xo[WS(os, 32)]), VADD(Thn, Thq), ovs, &(xo[0]));
cannam@95	2725 Thr = VADD(Thl, Thm);
cannam@95	2726 ST(&(xo[WS(os, 64)]), VSUB(Thr, Ths), ovs, &(xo[0]));
cannam@95	2727 ST(&(xo[0]), VADD(Thr, Ths), ovs, &(xo[0]));
cannam@95	2728 {
cannam@95	2729 V Thd, Thi, Thj, Thk;
cannam@95	2730 Thd = VBYI(VSUB(Th9, Thc));
cannam@95	2731 Thi = VSUB(Thg, Thh);
cannam@95	2732 ST(&(xo[WS(os, 48)]), VADD(Thd, Thi), ovs, &(xo[0]));
cannam@95	2733 ST(&(xo[WS(os, 80)]), VSUB(Thi, Thd), ovs, &(xo[0]));
cannam@95	2734 Thj = VBYI(VADD(Thc, Th9));
cannam@95	2735 Thk = VADD(Thg, Thh);
cannam@95	2736 ST(&(xo[WS(os, 16)]), VADD(Thj, Thk), ovs, &(xo[0]));
cannam@95	2737 ST(&(xo[WS(os, 112)]), VSUB(Thk, Thj), ovs, &(xo[0]));
cannam@95	2738 }
cannam@95	2739 }
cannam@95	2740 {
cannam@95	2741 V TeT, TfM, TfC, TfK, Tfs, TfN, TfF, TfJ;
cannam@95	2742 {
cannam@95	2743 V TeD, TeS, Tfw, TfB;
cannam@95	2744 TeD = VSUB(Tev, TeC);
cannam@95	2745 TeS = VSUB(TeK, TeR);
cannam@95	2746 TeT = VSUB(TeD, TeS);
cannam@95	2747 TfM = VADD(TeD, TeS);
cannam@95	2748 Tfw = VSUB(Tfu, Tfv);
cannam@95	2749 TfB = VSUB(Tfx, TfA);
cannam@95	2750 TfC = VSUB(Tfw, TfB);
cannam@95	2751 TfK = VADD(TfB, Tfw);
cannam@95	2752 {
cannam@95	2753 V Tfa, TfD, Tfr, TfE;
cannam@95	2754 {
cannam@95	2755 V Tf4, Tf9, Tfl, Tfq;
cannam@95	2756 Tf4 = VSUB(Tf0, Tf3);
cannam@95	2757 Tf9 = VSUB(Tf7, Tf8);
cannam@95	2758 Tfa = VFMA(LDK(KP831469612), Tf4, VMUL(LDK(KP555570233), Tf9));
cannam@95	2759 TfD = VFNMS(LDK(KP555570233), Tf4, VMUL(LDK(KP831469612), Tf9));
cannam@95	2760 Tfl = VSUB(Tfh, Tfk);
cannam@95	2761 Tfq = VSUB(Tfo, Tfp);
cannam@95	2762 Tfr = VFNMS(LDK(KP555570233), Tfq, VMUL(LDK(KP831469612), Tfl));
cannam@95	2763 TfE = VFMA(LDK(KP555570233), Tfl, VMUL(LDK(KP831469612), Tfq));
cannam@95	2764 }
cannam@95	2765 Tfs = VSUB(Tfa, Tfr);
cannam@95	2766 TfN = VADD(TfD, TfE);
cannam@95	2767 TfF = VSUB(TfD, TfE);
cannam@95	2768 TfJ = VADD(Tfa, Tfr);
cannam@95	2769 }
cannam@95	2770 }
cannam@95	2771 {
cannam@95	2772 V Tft, TfG, TfP, TfQ;
cannam@95	2773 Tft = VADD(TeT, Tfs);
cannam@95	2774 TfG = VBYI(VADD(TfC, TfF));
cannam@95	2775 ST(&(xo[WS(os, 108)]), VSUB(Tft, TfG), ovs, &(xo[0]));
cannam@95	2776 ST(&(xo[WS(os, 20)]), VADD(Tft, TfG), ovs, &(xo[0]));
cannam@95	2777 TfP = VBYI(VADD(TfK, TfJ));
cannam@95	2778 TfQ = VADD(TfM, TfN);
cannam@95	2779 ST(&(xo[WS(os, 12)]), VADD(TfP, TfQ), ovs, &(xo[0]));
cannam@95	2780 ST(&(xo[WS(os, 116)]), VSUB(TfQ, TfP), ovs, &(xo[0]));
cannam@95	2781 }
cannam@95	2782 {
cannam@95	2783 V TfH, TfI, TfL, TfO;
cannam@95	2784 TfH = VSUB(TeT, Tfs);
cannam@95	2785 TfI = VBYI(VSUB(TfF, TfC));
cannam@95	2786 ST(&(xo[WS(os, 84)]), VSUB(TfH, TfI), ovs, &(xo[0]));
cannam@95	2787 ST(&(xo[WS(os, 44)]), VADD(TfH, TfI), ovs, &(xo[0]));
cannam@95	2788 TfL = VBYI(VSUB(TfJ, TfK));
cannam@95	2789 TfO = VSUB(TfM, TfN);
cannam@95	2790 ST(&(xo[WS(os, 52)]), VADD(TfL, TfO), ovs, &(xo[0]));
cannam@95	2791 ST(&(xo[WS(os, 76)]), VSUB(TfO, TfL), ovs, &(xo[0]));
cannam@95	2792 }
cannam@95	2793 }
cannam@95	2794 {
cannam@95	2795 V TfT, Tge, Tg4, Tgc, Tg0, Tgf, Tg7, Tgb;
cannam@95	2796 {
cannam@95	2797 V TfR, TfS, Tg2, Tg3;
cannam@95	2798 TfR = VADD(Tev, TeC);
cannam@95	2799 TfS = VADD(Tfu, Tfv);
cannam@95	2800 TfT = VSUB(TfR, TfS);
cannam@95	2801 Tge = VADD(TfR, TfS);
cannam@95	2802 Tg2 = VADD(TeK, TeR);
cannam@95	2803 Tg3 = VADD(TfA, Tfx);
cannam@95	2804 Tg4 = VSUB(Tg2, Tg3);
cannam@95	2805 Tgc = VADD(Tg3, Tg2);
cannam@95	2806 {
cannam@95	2807 V TfW, Tg5, TfZ, Tg6;
cannam@95	2808 {
cannam@95	2809 V TfU, TfV, TfX, TfY;
cannam@95	2810 TfU = VADD(Tf3, Tf0);
cannam@95	2811 TfV = VADD(Tf7, Tf8);
cannam@95	2812 TfW = VFMA(LDK(KP980785280), TfU, VMUL(LDK(KP195090322), TfV));
cannam@95	2813 Tg5 = VFNMS(LDK(KP195090322), TfU, VMUL(LDK(KP980785280), TfV));
cannam@95	2814 TfX = VADD(Tfk, Tfh);
cannam@95	2815 TfY = VADD(Tfo, Tfp);
cannam@95	2816 TfZ = VFNMS(LDK(KP195090322), TfY, VMUL(LDK(KP980785280), TfX));
cannam@95	2817 Tg6 = VFMA(LDK(KP195090322), TfX, VMUL(LDK(KP980785280), TfY));
cannam@95	2818 }
cannam@95	2819 Tg0 = VSUB(TfW, TfZ);
cannam@95	2820 Tgf = VADD(Tg5, Tg6);
cannam@95	2821 Tg7 = VSUB(Tg5, Tg6);
cannam@95	2822 Tgb = VADD(TfW, TfZ);
cannam@95	2823 }
cannam@95	2824 }
cannam@95	2825 {
cannam@95	2826 V Tg1, Tg8, Tgh, Tgi;
cannam@95	2827 Tg1 = VADD(TfT, Tg0);
cannam@95	2828 Tg8 = VBYI(VADD(Tg4, Tg7));
cannam@95	2829 ST(&(xo[WS(os, 100)]), VSUB(Tg1, Tg8), ovs, &(xo[0]));
cannam@95	2830 ST(&(xo[WS(os, 28)]), VADD(Tg1, Tg8), ovs, &(xo[0]));
cannam@95	2831 Tgh = VBYI(VADD(Tgc, Tgb));
cannam@95	2832 Tgi = VADD(Tge, Tgf);
cannam@95	2833 ST(&(xo[WS(os, 4)]), VADD(Tgh, Tgi), ovs, &(xo[0]));
cannam@95	2834 ST(&(xo[WS(os, 124)]), VSUB(Tgi, Tgh), ovs, &(xo[0]));
cannam@95	2835 }
cannam@95	2836 {
cannam@95	2837 V Tg9, Tga, Tgd, Tgg;
cannam@95	2838 Tg9 = VSUB(TfT, Tg0);
cannam@95	2839 Tga = VBYI(VSUB(Tg7, Tg4));
cannam@95	2840 ST(&(xo[WS(os, 92)]), VSUB(Tg9, Tga), ovs, &(xo[0]));
cannam@95	2841 ST(&(xo[WS(os, 36)]), VADD(Tg9, Tga), ovs, &(xo[0]));
cannam@95	2842 Tgd = VBYI(VSUB(Tgb, Tgc));
cannam@95	2843 Tgg = VSUB(Tge, Tgf);
cannam@95	2844 ST(&(xo[WS(os, 60)]), VADD(Tgd, Tgg), ovs, &(xo[0]));
cannam@95	2845 ST(&(xo[WS(os, 68)]), VSUB(Tgg, Tgd), ovs, &(xo[0]));
cannam@95	2846 }
cannam@95	2847 }
cannam@95	2848 {
cannam@95	2849 V Tb7, Td8, TcI, Td0, Tcy, Tda, TcG, TcP, Tck, TcJ, TcB, TcF, TcW, Tdb, Td3;
cannam@95	2850 V Td7;
cannam@95	2851 {
cannam@95	2852 V Tax, TcZ, Tb6, TcY, TaO, Tb5;
cannam@95	2853 Tax = VSUB(Tah, Taw);
cannam@95	2854 TcZ = VADD(Tcw, Tcr);
cannam@95	2855 TaO = VFMA(LDK(KP831469612), TaI, VMUL(LDK(KP555570233), TaN));
cannam@95	2856 Tb5 = VFNMS(LDK(KP555570233), Tb4, VMUL(LDK(KP831469612), TaZ));
cannam@95	2857 Tb6 = VSUB(TaO, Tb5);
cannam@95	2858 TcY = VADD(TaO, Tb5);
cannam@95	2859 Tb7 = VSUB(Tax, Tb6);
cannam@95	2860 Td8 = VADD(TcZ, TcY);
cannam@95	2861 TcI = VADD(Tax, Tb6);
cannam@95	2862 Td0 = VSUB(TcY, TcZ);
cannam@95	2863 }
cannam@95	2864 {
cannam@95	2865 V Tcx, TcN, Tco, TcO, Tcm, Tcn;
cannam@95	2866 Tcx = VSUB(Tcr, Tcw);
cannam@95	2867 TcN = VADD(Tah, Taw);
cannam@95	2868 Tcm = VFNMS(LDK(KP555570233), TaI, VMUL(LDK(KP831469612), TaN));
cannam@95	2869 Tcn = VFMA(LDK(KP555570233), TaZ, VMUL(LDK(KP831469612), Tb4));
cannam@95	2870 Tco = VSUB(Tcm, Tcn);
cannam@95	2871 TcO = VADD(Tcm, Tcn);
cannam@95	2872 Tcy = VSUB(Tco, Tcx);
cannam@95	2873 Tda = VADD(TcN, TcO);
cannam@95	2874 TcG = VADD(Tcx, Tco);
cannam@95	2875 TcP = VSUB(TcN, TcO);
cannam@95	2876 }
cannam@95	2877 {
cannam@95	2878 V TbI, Tcz, Tcj, TcA;
cannam@95	2879 {
cannam@95	2880 V Tby, TbH, Tc9, Tci;
cannam@95	2881 Tby = VSUB(Tbm, Tbx);
cannam@95	2882 TbH = VSUB(TbD, TbG);
cannam@95	2883 TbI = VFMA(LDK(KP881921264), Tby, VMUL(LDK(KP471396736), TbH));
cannam@95	2884 Tcz = VFNMS(LDK(KP471396736), Tby, VMUL(LDK(KP881921264), TbH));
cannam@95	2885 Tc9 = VSUB(TbX, Tc8);
cannam@95	2886 Tci = VSUB(Tce, Tch);
cannam@95	2887 Tcj = VFNMS(LDK(KP471396736), Tci, VMUL(LDK(KP881921264), Tc9));
cannam@95	2888 TcA = VFMA(LDK(KP471396736), Tc9, VMUL(LDK(KP881921264), Tci));
cannam@95	2889 }
cannam@95	2890 Tck = VSUB(TbI, Tcj);
cannam@95	2891 TcJ = VADD(Tcz, TcA);
cannam@95	2892 TcB = VSUB(Tcz, TcA);
cannam@95	2893 TcF = VADD(TbI, Tcj);
cannam@95	2894 }
cannam@95	2895 {
cannam@95	2896 V TcS, Td1, TcV, Td2;
cannam@95	2897 {
cannam@95	2898 V TcQ, TcR, TcT, TcU;
cannam@95	2899 TcQ = VADD(Tbx, Tbm);
cannam@95	2900 TcR = VADD(TbD, TbG);
cannam@95	2901 TcS = VFMA(LDK(KP956940335), TcQ, VMUL(LDK(KP290284677), TcR));
cannam@95	2902 Td1 = VFNMS(LDK(KP290284677), TcQ, VMUL(LDK(KP956940335), TcR));
cannam@95	2903 TcT = VADD(Tc8, TbX);
cannam@95	2904 TcU = VADD(Tce, Tch);
cannam@95	2905 TcV = VFNMS(LDK(KP290284677), TcU, VMUL(LDK(KP956940335), TcT));
cannam@95	2906 Td2 = VFMA(LDK(KP290284677), TcT, VMUL(LDK(KP956940335), TcU));
cannam@95	2907 }
cannam@95	2908 TcW = VSUB(TcS, TcV);
cannam@95	2909 Tdb = VADD(Td1, Td2);
cannam@95	2910 Td3 = VSUB(Td1, Td2);
cannam@95	2911 Td7 = VADD(TcS, TcV);
cannam@95	2912 }
cannam@95	2913 {
cannam@95	2914 V Tcl, TcC, Td9, Tdc;
cannam@95	2915 Tcl = VADD(Tb7, Tck);
cannam@95	2916 TcC = VBYI(VADD(Tcy, TcB));
cannam@95	2917 ST(&(xo[WS(os, 106)]), VSUB(Tcl, TcC), ovs, &(xo[0]));
cannam@95	2918 ST(&(xo[WS(os, 22)]), VADD(Tcl, TcC), ovs, &(xo[0]));
cannam@95	2919 Td9 = VBYI(VSUB(Td7, Td8));
cannam@95	2920 Tdc = VSUB(Tda, Tdb);
cannam@95	2921 ST(&(xo[WS(os, 58)]), VADD(Td9, Tdc), ovs, &(xo[0]));
cannam@95	2922 ST(&(xo[WS(os, 70)]), VSUB(Tdc, Td9), ovs, &(xo[0]));
cannam@95	2923 }
cannam@95	2924 {
cannam@95	2925 V Tdd, Tde, TcD, TcE;
cannam@95	2926 Tdd = VBYI(VADD(Td8, Td7));
cannam@95	2927 Tde = VADD(Tda, Tdb);
cannam@95	2928 ST(&(xo[WS(os, 6)]), VADD(Tdd, Tde), ovs, &(xo[0]));
cannam@95	2929 ST(&(xo[WS(os, 122)]), VSUB(Tde, Tdd), ovs, &(xo[0]));
cannam@95	2930 TcD = VSUB(Tb7, Tck);
cannam@95	2931 TcE = VBYI(VSUB(TcB, Tcy));
cannam@95	2932 ST(&(xo[WS(os, 86)]), VSUB(TcD, TcE), ovs, &(xo[0]));
cannam@95	2933 ST(&(xo[WS(os, 42)]), VADD(TcD, TcE), ovs, &(xo[0]));
cannam@95	2934 }
cannam@95	2935 {
cannam@95	2936 V TcH, TcK, TcX, Td4;
cannam@95	2937 TcH = VBYI(VSUB(TcF, TcG));
cannam@95	2938 TcK = VSUB(TcI, TcJ);
cannam@95	2939 ST(&(xo[WS(os, 54)]), VADD(TcH, TcK), ovs, &(xo[0]));
cannam@95	2940 ST(&(xo[WS(os, 74)]), VSUB(TcK, TcH), ovs, &(xo[0]));
cannam@95	2941 TcX = VADD(TcP, TcW);
cannam@95	2942 Td4 = VBYI(VADD(Td0, Td3));
cannam@95	2943 ST(&(xo[WS(os, 102)]), VSUB(TcX, Td4), ovs, &(xo[0]));
cannam@95	2944 ST(&(xo[WS(os, 26)]), VADD(TcX, Td4), ovs, &(xo[0]));
cannam@95	2945 }
cannam@95	2946 {
cannam@95	2947 V Td5, Td6, TcL, TcM;
cannam@95	2948 Td5 = VSUB(TcP, TcW);
cannam@95	2949 Td6 = VBYI(VSUB(Td3, Td0));
cannam@95	2950 ST(&(xo[WS(os, 90)]), VSUB(Td5, Td6), ovs, &(xo[0]));
cannam@95	2951 ST(&(xo[WS(os, 38)]), VADD(Td5, Td6), ovs, &(xo[0]));
cannam@95	2952 TcL = VBYI(VADD(TcG, TcF));
cannam@95	2953 TcM = VADD(TcI, TcJ);
cannam@95	2954 ST(&(xo[WS(os, 10)]), VADD(TcL, TcM), ovs, &(xo[0]));
cannam@95	2955 ST(&(xo[WS(os, 118)]), VSUB(TcM, TcL), ovs, &(xo[0]));
cannam@95	2956 }
cannam@95	2957 }
cannam@95	2958 {
cannam@95	2959 V TdE, Tel, TdW, Tee, TdM, Teo, TdT, Tea, Tdt, TdX, TdP, TdU, Te7, Tep, Teh;
cannam@95	2960 V Tem;
cannam@95	2961 {
cannam@95	2962 V TdD, Tec, TdA, Ted, Tdw, Tdz;
cannam@95	2963 TdD = VADD(TdB, TdC);
cannam@95	2964 Tec = VSUB(TdG, TdH);
cannam@95	2965 Tdw = VFMA(LDK(KP980785280), Tdu, VMUL(LDK(KP195090322), Tdv));
cannam@95	2966 Tdz = VFNMS(LDK(KP195090322), Tdy, VMUL(LDK(KP980785280), Tdx));
cannam@95	2967 TdA = VADD(Tdw, Tdz);
cannam@95	2968 Ted = VSUB(Tdw, Tdz);
cannam@95	2969 TdE = VSUB(TdA, TdD);
cannam@95	2970 Tel = VADD(Tec, Ted);
cannam@95	2971 TdW = VADD(TdD, TdA);
cannam@95	2972 Tee = VSUB(Tec, Ted);
cannam@95	2973 }
cannam@95	2974 {
cannam@95	2975 V TdI, Te9, TdL, Te8, TdJ, TdK;
cannam@95	2976 TdI = VADD(TdG, TdH);
cannam@95	2977 Te9 = VSUB(TdC, TdB);
cannam@95	2978 TdJ = VFNMS(LDK(KP195090322), Tdu, VMUL(LDK(KP980785280), Tdv));
cannam@95	2979 TdK = VFMA(LDK(KP195090322), Tdx, VMUL(LDK(KP980785280), Tdy));
cannam@95	2980 TdL = VADD(TdJ, TdK);
cannam@95	2981 Te8 = VSUB(TdJ, TdK);
cannam@95	2982 TdM = VSUB(TdI, TdL);
cannam@95	2983 Teo = VADD(Te9, Te8);
cannam@95	2984 TdT = VADD(TdI, TdL);
cannam@95	2985 Tea = VSUB(Te8, Te9);
cannam@95	2986 }
cannam@95	2987 {
cannam@95	2988 V Tdl, TdN, Tds, TdO;
cannam@95	2989 {
cannam@95	2990 V Tdh, Tdk, Tdo, Tdr;
cannam@95	2991 Tdh = VADD(Tdf, Tdg);
cannam@95	2992 Tdk = VADD(Tdi, Tdj);
cannam@95	2993 Tdl = VFNMS(LDK(KP098017140), Tdk, VMUL(LDK(KP995184726), Tdh));
cannam@95	2994 TdN = VFMA(LDK(KP098017140), Tdh, VMUL(LDK(KP995184726), Tdk));
cannam@95	2995 Tdo = VADD(Tdm, Tdn);
cannam@95	2996 Tdr = VADD(Tdp, Tdq);
cannam@95	2997 Tds = VFMA(LDK(KP995184726), Tdo, VMUL(LDK(KP098017140), Tdr));
cannam@95	2998 TdO = VFNMS(LDK(KP098017140), Tdo, VMUL(LDK(KP995184726), Tdr));
cannam@95	2999 }
cannam@95	3000 Tdt = VSUB(Tdl, Tds);
cannam@95	3001 TdX = VADD(TdN, TdO);
cannam@95	3002 TdP = VSUB(TdN, TdO);
cannam@95	3003 TdU = VADD(Tdl, Tds);
cannam@95	3004 }
cannam@95	3005 {
cannam@95	3006 V Te3, Tef, Te6, Teg;
cannam@95	3007 {
cannam@95	3008 V Te1, Te2, Te4, Te5;
cannam@95	3009 Te1 = VSUB(Tdf, Tdg);
cannam@95	3010 Te2 = VSUB(Tdj, Tdi);
cannam@95	3011 Te3 = VFNMS(LDK(KP634393284), Te2, VMUL(LDK(KP773010453), Te1));
cannam@95	3012 Tef = VFMA(LDK(KP634393284), Te1, VMUL(LDK(KP773010453), Te2));
cannam@95	3013 Te4 = VSUB(Tdm, Tdn);
cannam@95	3014 Te5 = VSUB(Tdq, Tdp);
cannam@95	3015 Te6 = VFMA(LDK(KP773010453), Te4, VMUL(LDK(KP634393284), Te5));
cannam@95	3016 Teg = VFNMS(LDK(KP634393284), Te4, VMUL(LDK(KP773010453), Te5));
cannam@95	3017 }
cannam@95	3018 Te7 = VSUB(Te3, Te6);
cannam@95	3019 Tep = VADD(Tef, Teg);
cannam@95	3020 Teh = VSUB(Tef, Teg);
cannam@95	3021 Tem = VADD(Te3, Te6);
cannam@95	3022 }
cannam@95	3023 {
cannam@95	3024 V TdF, TdQ, Ten, Teq;
cannam@95	3025 TdF = VBYI(VSUB(Tdt, TdE));
cannam@95	3026 TdQ = VSUB(TdM, TdP);
cannam@95	3027 ST(&(xo[WS(os, 34)]), VADD(TdF, TdQ), ovs, &(xo[0]));
cannam@95	3028 ST(&(xo[WS(os, 94)]), VSUB(TdQ, TdF), ovs, &(xo[0]));
cannam@95	3029 Ten = VADD(Tel, Tem);
cannam@95	3030 Teq = VBYI(VADD(Teo, Tep));
cannam@95	3031 ST(&(xo[WS(os, 114)]), VSUB(Ten, Teq), ovs, &(xo[0]));
cannam@95	3032 ST(&(xo[WS(os, 14)]), VADD(Ten, Teq), ovs, &(xo[0]));
cannam@95	3033 }
cannam@95	3034 {
cannam@95	3035 V Ter, Tes, TdR, TdS;
cannam@95	3036 Ter = VSUB(Tel, Tem);
cannam@95	3037 Tes = VBYI(VSUB(Tep, Teo));
cannam@95	3038 ST(&(xo[WS(os, 78)]), VSUB(Ter, Tes), ovs, &(xo[0]));
cannam@95	3039 ST(&(xo[WS(os, 50)]), VADD(Ter, Tes), ovs, &(xo[0]));
cannam@95	3040 TdR = VBYI(VADD(TdE, Tdt));
cannam@95	3041 TdS = VADD(TdM, TdP);
cannam@95	3042 ST(&(xo[WS(os, 30)]), VADD(TdR, TdS), ovs, &(xo[0]));
cannam@95	3043 ST(&(xo[WS(os, 98)]), VSUB(TdS, TdR), ovs, &(xo[0]));
cannam@95	3044 }
cannam@95	3045 {
cannam@95	3046 V TdV, TdY, Teb, Tei;
cannam@95	3047 TdV = VADD(TdT, TdU);
cannam@95	3048 TdY = VBYI(VADD(TdW, TdX));
cannam@95	3049 ST(&(xo[WS(os, 126)]), VSUB(TdV, TdY), ovs, &(xo[0]));
cannam@95	3050 ST(&(xo[WS(os, 2)]), VADD(TdV, TdY), ovs, &(xo[0]));
cannam@95	3051 Teb = VBYI(VSUB(Te7, Tea));
cannam@95	3052 Tei = VSUB(Tee, Teh);
cannam@95	3053 ST(&(xo[WS(os, 46)]), VADD(Teb, Tei), ovs, &(xo[0]));
cannam@95	3054 ST(&(xo[WS(os, 82)]), VSUB(Tei, Teb), ovs, &(xo[0]));
cannam@95	3055 }
cannam@95	3056 {
cannam@95	3057 V Tej, Tek, TdZ, Te0;
cannam@95	3058 Tej = VBYI(VADD(Tea, Te7));
cannam@95	3059 Tek = VADD(Tee, Teh);
cannam@95	3060 ST(&(xo[WS(os, 18)]), VADD(Tej, Tek), ovs, &(xo[0]));
cannam@95	3061 ST(&(xo[WS(os, 110)]), VSUB(Tek, Tej), ovs, &(xo[0]));
cannam@95	3062 TdZ = VSUB(TdT, TdU);
cannam@95	3063 Te0 = VBYI(VSUB(TdX, TdW));
cannam@95	3064 ST(&(xo[WS(os, 66)]), VSUB(TdZ, Te0), ovs, &(xo[0]));
cannam@95	3065 ST(&(xo[WS(os, 62)]), VADD(TdZ, Te0), ovs, &(xo[0]));
cannam@95	3066 }
cannam@95	3067 }
cannam@95	3068 {
cannam@95	3069 V T7z, T8n, T8f, T8k, T8x, T8P, T8H, T8M, T80, T8L, T8O, T8c, T8j, T8A, T8E;
cannam@95	3070 V T8m;
cannam@95	3071 {
cannam@95	3072 V T7f, T8d, T7y, T8e;
cannam@95	3073 {
cannam@95	3074 V T77, T7e, T7q, T7x;
cannam@95	3075 T77 = VADD(T6Z, T76);
cannam@95	3076 T7e = VADD(T7a, T7d);
cannam@95	3077 T7f = VFNMS(LDK(KP336889853), T7e, VMUL(LDK(KP941544065), T77));
cannam@95	3078 T8d = VFMA(LDK(KP336889853), T77, VMUL(LDK(KP941544065), T7e));
cannam@95	3079 T7q = VADD(T7i, T7p);
cannam@95	3080 T7x = VADD(T7t, T7w);
cannam@95	3081 T7y = VFMA(LDK(KP941544065), T7q, VMUL(LDK(KP336889853), T7x));
cannam@95	3082 T8e = VFNMS(LDK(KP336889853), T7q, VMUL(LDK(KP941544065), T7x));
cannam@95	3083 }
cannam@95	3084 T7z = VSUB(T7f, T7y);
cannam@95	3085 T8n = VADD(T8d, T8e);
cannam@95	3086 T8f = VSUB(T8d, T8e);
cannam@95	3087 T8k = VADD(T7f, T7y);
cannam@95	3088 }
cannam@95	3089 {
cannam@95	3090 V T8t, T8F, T8w, T8G;
cannam@95	3091 {
cannam@95	3092 V T8r, T8s, T8u, T8v;
cannam@95	3093 T8r = VSUB(T6Z, T76);
cannam@95	3094 T8s = VSUB(T7d, T7a);
cannam@95	3095 T8t = VFNMS(LDK(KP427555093), T8s, VMUL(LDK(KP903989293), T8r));
cannam@95	3096 T8F = VFMA(LDK(KP427555093), T8r, VMUL(LDK(KP903989293), T8s));
cannam@95	3097 T8u = VSUB(T7i, T7p);
cannam@95	3098 T8v = VSUB(T7w, T7t);
cannam@95	3099 T8w = VFMA(LDK(KP903989293), T8u, VMUL(LDK(KP427555093), T8v));
cannam@95	3100 T8G = VFNMS(LDK(KP427555093), T8u, VMUL(LDK(KP903989293), T8v));
cannam@95	3101 }
cannam@95	3102 T8x = VSUB(T8t, T8w);
cannam@95	3103 T8P = VADD(T8F, T8G);
cannam@95	3104 T8H = VSUB(T8F, T8G);
cannam@95	3105 T8M = VADD(T8t, T8w);
cannam@95	3106 }
cannam@95	3107 {
cannam@95	3108 V T7Z, T8z, T88, T8C, T7O, T8D, T8b, T8y, T7Y, T87;
cannam@95	3109 T7Y = VSUB(T7U, T7X);
cannam@95	3110 T7Z = VADD(T7R, T7Y);
cannam@95	3111 T8z = VSUB(T7Y, T7R);
cannam@95	3112 T87 = VSUB(T85, T86);
cannam@95	3113 T88 = VADD(T84, T87);
cannam@95	3114 T8C = VSUB(T84, T87);
cannam@95	3115 {
cannam@95	3116 V T7G, T7N, T89, T8a;
cannam@95	3117 T7G = VFMA(LDK(KP634393284), T7C, VMUL(LDK(KP773010453), T7F));
cannam@95	3118 T7N = VFNMS(LDK(KP634393284), T7M, VMUL(LDK(KP773010453), T7J));
cannam@95	3119 T7O = VADD(T7G, T7N);
cannam@95	3120 T8D = VSUB(T7G, T7N);
cannam@95	3121 T89 = VFNMS(LDK(KP634393284), T7F, VMUL(LDK(KP773010453), T7C));
cannam@95	3122 T8a = VFMA(LDK(KP773010453), T7M, VMUL(LDK(KP634393284), T7J));
cannam@95	3123 T8b = VADD(T89, T8a);
cannam@95	3124 T8y = VSUB(T89, T8a);
cannam@95	3125 }
cannam@95	3126 T80 = VSUB(T7O, T7Z);
cannam@95	3127 T8L = VADD(T8C, T8D);
cannam@95	3128 T8O = VADD(T8z, T8y);
cannam@95	3129 T8c = VSUB(T88, T8b);
cannam@95	3130 T8j = VADD(T88, T8b);
cannam@95	3131 T8A = VSUB(T8y, T8z);
cannam@95	3132 T8E = VSUB(T8C, T8D);
cannam@95	3133 T8m = VADD(T7Z, T7O);
cannam@95	3134 }
cannam@95	3135 {
cannam@95	3136 V T81, T8g, T8N, T8Q;
cannam@95	3137 T81 = VBYI(VSUB(T7z, T80));
cannam@95	3138 T8g = VSUB(T8c, T8f);
cannam@95	3139 ST(&(xo[WS(os, 39)]), VADD(T81, T8g), ovs, &(xo[WS(os, 1)]));
cannam@95	3140 ST(&(xo[WS(os, 89)]), VSUB(T8g, T81), ovs, &(xo[WS(os, 1)]));
cannam@95	3141 T8N = VADD(T8L, T8M);
cannam@95	3142 T8Q = VBYI(VADD(T8O, T8P));
cannam@95	3143 ST(&(xo[WS(os, 119)]), VSUB(T8N, T8Q), ovs, &(xo[WS(os, 1)]));
cannam@95	3144 ST(&(xo[WS(os, 9)]), VADD(T8N, T8Q), ovs, &(xo[WS(os, 1)]));
cannam@95	3145 }
cannam@95	3146 {
cannam@95	3147 V T8R, T8S, T8h, T8i;
cannam@95	3148 T8R = VSUB(T8L, T8M);
cannam@95	3149 T8S = VBYI(VSUB(T8P, T8O));
cannam@95	3150 ST(&(xo[WS(os, 73)]), VSUB(T8R, T8S), ovs, &(xo[WS(os, 1)]));
cannam@95	3151 ST(&(xo[WS(os, 55)]), VADD(T8R, T8S), ovs, &(xo[WS(os, 1)]));
cannam@95	3152 T8h = VBYI(VADD(T80, T7z));
cannam@95	3153 T8i = VADD(T8c, T8f);
cannam@95	3154 ST(&(xo[WS(os, 25)]), VADD(T8h, T8i), ovs, &(xo[WS(os, 1)]));
cannam@95	3155 ST(&(xo[WS(os, 103)]), VSUB(T8i, T8h), ovs, &(xo[WS(os, 1)]));
cannam@95	3156 }
cannam@95	3157 {
cannam@95	3158 V T8l, T8o, T8B, T8I;
cannam@95	3159 T8l = VADD(T8j, T8k);
cannam@95	3160 T8o = VBYI(VADD(T8m, T8n));
cannam@95	3161 ST(&(xo[WS(os, 121)]), VSUB(T8l, T8o), ovs, &(xo[WS(os, 1)]));
cannam@95	3162 ST(&(xo[WS(os, 7)]), VADD(T8l, T8o), ovs, &(xo[WS(os, 1)]));
cannam@95	3163 T8B = VBYI(VSUB(T8x, T8A));
cannam@95	3164 T8I = VSUB(T8E, T8H);
cannam@95	3165 ST(&(xo[WS(os, 41)]), VADD(T8B, T8I), ovs, &(xo[WS(os, 1)]));
cannam@95	3166 ST(&(xo[WS(os, 87)]), VSUB(T8I, T8B), ovs, &(xo[WS(os, 1)]));
cannam@95	3167 }
cannam@95	3168 {
cannam@95	3169 V T8J, T8K, T8p, T8q;
cannam@95	3170 T8J = VBYI(VADD(T8A, T8x));
cannam@95	3171 T8K = VADD(T8E, T8H);
cannam@95	3172 ST(&(xo[WS(os, 23)]), VADD(T8J, T8K), ovs, &(xo[WS(os, 1)]));
cannam@95	3173 ST(&(xo[WS(os, 105)]), VSUB(T8K, T8J), ovs, &(xo[WS(os, 1)]));
cannam@95	3174 T8p = VSUB(T8j, T8k);
cannam@95	3175 T8q = VBYI(VSUB(T8n, T8m));
cannam@95	3176 ST(&(xo[WS(os, 71)]), VSUB(T8p, T8q), ovs, &(xo[WS(os, 1)]));
cannam@95	3177 ST(&(xo[WS(os, 57)]), VADD(T8p, T8q), ovs, &(xo[WS(os, 1)]));
cannam@95	3178 }
cannam@95	3179 }
cannam@95	3180 {
cannam@95	3181 V T2v, T5d, T55, T5a, T5n, T5F, T5x, T5C, T4K, T5B, T5E, T52, T59, T5q, T5u;
cannam@95	3182 V T5c;
cannam@95	3183 {
cannam@95	3184 V T1f, T53, T2u, T54;
cannam@95	3185 {
cannam@95	3186 V T11, T1e, T2g, T2t;
cannam@95	3187 T11 = VADD(Tr, T10);
cannam@95	3188 T1e = VADD(T1a, T1d);
cannam@95	3189 T1f = VFNMS(LDK(KP242980179), T1e, VMUL(LDK(KP970031253), T11));
cannam@95	3190 T53 = VFMA(LDK(KP242980179), T11, VMUL(LDK(KP970031253), T1e));
cannam@95	3191 T2g = VADD(T1G, T2f);
cannam@95	3192 T2t = VADD(T2p, T2s);
cannam@95	3193 T2u = VFMA(LDK(KP970031253), T2g, VMUL(LDK(KP242980179), T2t));
cannam@95	3194 T54 = VFNMS(LDK(KP242980179), T2g, VMUL(LDK(KP970031253), T2t));
cannam@95	3195 }
cannam@95	3196 T2v = VSUB(T1f, T2u);
cannam@95	3197 T5d = VADD(T53, T54);
cannam@95	3198 T55 = VSUB(T53, T54);
cannam@95	3199 T5a = VADD(T1f, T2u);
cannam@95	3200 }
cannam@95	3201 {
cannam@95	3202 V T5j, T5v, T5m, T5w;
cannam@95	3203 {
cannam@95	3204 V T5h, T5i, T5k, T5l;
cannam@95	3205 T5h = VSUB(Tr, T10);
cannam@95	3206 T5i = VSUB(T1d, T1a);
cannam@95	3207 T5j = VFNMS(LDK(KP514102744), T5i, VMUL(LDK(KP857728610), T5h));
cannam@95	3208 T5v = VFMA(LDK(KP514102744), T5h, VMUL(LDK(KP857728610), T5i));
cannam@95	3209 T5k = VSUB(T1G, T2f);
cannam@95	3210 T5l = VSUB(T2s, T2p);
cannam@95	3211 T5m = VFMA(LDK(KP857728610), T5k, VMUL(LDK(KP514102744), T5l));
cannam@95	3212 T5w = VFNMS(LDK(KP514102744), T5k, VMUL(LDK(KP857728610), T5l));
cannam@95	3213 }
cannam@95	3214 T5n = VSUB(T5j, T5m);
cannam@95	3215 T5F = VADD(T5v, T5w);
cannam@95	3216 T5x = VSUB(T5v, T5w);
cannam@95	3217 T5C = VADD(T5j, T5m);
cannam@95	3218 }
cannam@95	3219 {
cannam@95	3220 V T4J, T5p, T4Y, T5s, T3I, T5t, T51, T5o, T4I, T4X;
cannam@95	3221 T4I = VSUB(T4q, T4H);
cannam@95	3222 T4J = VADD(T49, T4I);
cannam@95	3223 T5p = VSUB(T4I, T49);
cannam@95	3224 T4X = VSUB(T4V, T4W);
cannam@95	3225 T4Y = VADD(T4U, T4X);
cannam@95	3226 T5s = VSUB(T4U, T4X);
cannam@95	3227 {
cannam@95	3228 V T36, T3H, T4Z, T50;
cannam@95	3229 T36 = VFMA(LDK(KP881921264), T2W, VMUL(LDK(KP471396736), T35));
cannam@95	3230 T3H = VFNMS(LDK(KP471396736), T3G, VMUL(LDK(KP881921264), T3x));
cannam@95	3231 T3I = VADD(T36, T3H);
cannam@95	3232 T5t = VSUB(T36, T3H);
cannam@95	3233 T4Z = VFNMS(LDK(KP471396736), T2W, VMUL(LDK(KP881921264), T35));
cannam@95	3234 T50 = VFMA(LDK(KP471396736), T3x, VMUL(LDK(KP881921264), T3G));
cannam@95	3235 T51 = VADD(T4Z, T50);
cannam@95	3236 T5o = VSUB(T4Z, T50);
cannam@95	3237 }
cannam@95	3238 T4K = VSUB(T3I, T4J);
cannam@95	3239 T5B = VADD(T5s, T5t);
cannam@95	3240 T5E = VADD(T5p, T5o);
cannam@95	3241 T52 = VSUB(T4Y, T51);
cannam@95	3242 T59 = VADD(T4Y, T51);
cannam@95	3243 T5q = VSUB(T5o, T5p);
cannam@95	3244 T5u = VSUB(T5s, T5t);
cannam@95	3245 T5c = VADD(T4J, T3I);
cannam@95	3246 }
cannam@95	3247 {
cannam@95	3248 V T4L, T56, T5D, T5G;
cannam@95	3249 T4L = VBYI(VSUB(T2v, T4K));
cannam@95	3250 T56 = VSUB(T52, T55);
cannam@95	3251 ST(&(xo[WS(os, 37)]), VADD(T4L, T56), ovs, &(xo[WS(os, 1)]));
cannam@95	3252 ST(&(xo[WS(os, 91)]), VSUB(T56, T4L), ovs, &(xo[WS(os, 1)]));
cannam@95	3253 T5D = VADD(T5B, T5C);
cannam@95	3254 T5G = VBYI(VADD(T5E, T5F));
cannam@95	3255 ST(&(xo[WS(os, 117)]), VSUB(T5D, T5G), ovs, &(xo[WS(os, 1)]));
cannam@95	3256 ST(&(xo[WS(os, 11)]), VADD(T5D, T5G), ovs, &(xo[WS(os, 1)]));
cannam@95	3257 }
cannam@95	3258 {
cannam@95	3259 V T5H, T5I, T57, T58;
cannam@95	3260 T5H = VSUB(T5B, T5C);
cannam@95	3261 T5I = VBYI(VSUB(T5F, T5E));
cannam@95	3262 ST(&(xo[WS(os, 75)]), VSUB(T5H, T5I), ovs, &(xo[WS(os, 1)]));
cannam@95	3263 ST(&(xo[WS(os, 53)]), VADD(T5H, T5I), ovs, &(xo[WS(os, 1)]));
cannam@95	3264 T57 = VBYI(VADD(T4K, T2v));
cannam@95	3265 T58 = VADD(T52, T55);
cannam@95	3266 ST(&(xo[WS(os, 27)]), VADD(T57, T58), ovs, &(xo[WS(os, 1)]));
cannam@95	3267 ST(&(xo[WS(os, 101)]), VSUB(T58, T57), ovs, &(xo[WS(os, 1)]));
cannam@95	3268 }
cannam@95	3269 {
cannam@95	3270 V T5b, T5e, T5r, T5y;
cannam@95	3271 T5b = VADD(T59, T5a);
cannam@95	3272 T5e = VBYI(VADD(T5c, T5d));
cannam@95	3273 ST(&(xo[WS(os, 123)]), VSUB(T5b, T5e), ovs, &(xo[WS(os, 1)]));
cannam@95	3274 ST(&(xo[WS(os, 5)]), VADD(T5b, T5e), ovs, &(xo[WS(os, 1)]));
cannam@95	3275 T5r = VBYI(VSUB(T5n, T5q));
cannam@95	3276 T5y = VSUB(T5u, T5x);
cannam@95	3277 ST(&(xo[WS(os, 43)]), VADD(T5r, T5y), ovs, &(xo[WS(os, 1)]));
cannam@95	3278 ST(&(xo[WS(os, 85)]), VSUB(T5y, T5r), ovs, &(xo[WS(os, 1)]));
cannam@95	3279 }
cannam@95	3280 {
cannam@95	3281 V T5z, T5A, T5f, T5g;
cannam@95	3282 T5z = VBYI(VADD(T5q, T5n));
cannam@95	3283 T5A = VADD(T5u, T5x);
cannam@95	3284 ST(&(xo[WS(os, 21)]), VADD(T5z, T5A), ovs, &(xo[WS(os, 1)]));
cannam@95	3285 ST(&(xo[WS(os, 107)]), VSUB(T5A, T5z), ovs, &(xo[WS(os, 1)]));
cannam@95	3286 T5f = VSUB(T59, T5a);
cannam@95	3287 T5g = VBYI(VSUB(T5d, T5c));
cannam@95	3288 ST(&(xo[WS(os, 69)]), VSUB(T5f, T5g), ovs, &(xo[WS(os, 1)]));
cannam@95	3289 ST(&(xo[WS(os, 59)]), VADD(T5f, T5g), 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(KP740951125), T96, VMUL(LDK(KP671558954), T99));
cannam@95	3302 T9r = VFNMS(LDK(KP671558954), T96, VMUL(LDK(KP740951125), T99));
cannam@95	3303 T9d = VSUB(T9b, T9c);
cannam@95	3304 T9g = VSUB(T9e, T9f);
cannam@95	3305 T9h = VFNMS(LDK(KP671558954), T9g, VMUL(LDK(KP740951125), T9d));
cannam@95	3306 T9s = VFMA(LDK(KP671558954), T9d, VMUL(LDK(KP740951125), T9g));
cannam@95	3307 }
cannam@95	3308 T9i = VSUB(T9a, T9h);
cannam@95	3309 T9B = VADD(T9r, T9s);
cannam@95	3310 T9t = VSUB(T9r, T9s);
cannam@95	3311 T9x = VADD(T9a, T9h);
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(KP998795456), T9I, VMUL(LDK(KP049067674), T9J));
cannam@95	3320 T9T = VFNMS(LDK(KP049067674), T9I, VMUL(LDK(KP998795456), T9J));
cannam@95	3321 T9L = VADD(T9c, T9b);
cannam@95	3322 T9M = VADD(T9e, T9f);
cannam@95	3323 T9N = VFNMS(LDK(KP049067674), T9M, VMUL(LDK(KP998795456), T9L));
cannam@95	3324 T9U = VFMA(LDK(KP049067674), T9L, VMUL(LDK(KP998795456), T9M));
cannam@95	3325 }
cannam@95	3326 T9O = VSUB(T9K, T9N);
cannam@95	3327 Ta3 = VADD(T9T, T9U);
cannam@95	3328 T9V = VSUB(T9T, T9U);
cannam@95	3329 T9Z = VADD(T9K, T9N);
cannam@95	3330 }
cannam@95	3331 {
cannam@95	3332 V T8V, T9F, T9p, T9R, T92, T9Q, T9m, T9G, T8U, T9n;
cannam@95	3333 T8U = VADD(T7U, T7X);
cannam@95	3334 T8V = VSUB(T8T, T8U);
cannam@95	3335 T9F = VADD(T8T, T8U);
cannam@95	3336 T9n = VADD(T85, T86);
cannam@95	3337 T9p = VSUB(T9n, T9o);
cannam@95	3338 T9R = VADD(T9o, T9n);
cannam@95	3339 {
cannam@95	3340 V T8Y, T91, T9k, T9l;
cannam@95	3341 T8Y = VFMA(LDK(KP098017140), T8W, VMUL(LDK(KP995184726), T8X));
cannam@95	3342 T91 = VFNMS(LDK(KP098017140), T90, VMUL(LDK(KP995184726), T8Z));
cannam@95	3343 T92 = VSUB(T8Y, T91);
cannam@95	3344 T9Q = VADD(T8Y, T91);
cannam@95	3345 T9k = VFNMS(LDK(KP098017140), T8X, VMUL(LDK(KP995184726), T8W));
cannam@95	3346 T9l = VFMA(LDK(KP995184726), T90, VMUL(LDK(KP098017140), T8Z));
cannam@95	3347 T9m = VSUB(T9k, T9l);
cannam@95	3348 T9G = VADD(T9k, T9l);
cannam@95	3349 }
cannam@95	3350 T93 = VSUB(T8V, T92);
cannam@95	3351 Ta0 = VADD(T9R, T9Q);
cannam@95	3352 Ta2 = VADD(T9F, T9G);
cannam@95	3353 T9q = VSUB(T9m, T9p);
cannam@95	3354 T9y = VADD(T9p, T9m);
cannam@95	3355 T9H = VSUB(T9F, T9G);
cannam@95	3356 T9S = VSUB(T9Q, T9R);
cannam@95	3357 T9A = VADD(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, 111)]), VSUB(T9j, T9u), ovs, &(xo[WS(os, 1)]));
cannam@95	3364 ST(&(xo[WS(os, 17)]), 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, 63)]), VADD(Ta1, Ta4), ovs, &(xo[WS(os, 1)]));
cannam@95	3368 ST(&(xo[WS(os, 65)]), 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, 1)]), VADD(Ta5, Ta6), ovs, &(xo[WS(os, 1)]));
cannam@95	3375 ST(&(xo[WS(os, 127)]), 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, 81)]), VSUB(T9v, T9w), ovs, &(xo[WS(os, 1)]));
cannam@95	3379 ST(&(xo[WS(os, 47)]), 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, 49)]), VADD(T9z, T9C), ovs, &(xo[WS(os, 1)]));
cannam@95	3386 ST(&(xo[WS(os, 79)]), 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, 97)]), VSUB(T9P, T9W), ovs, &(xo[WS(os, 1)]));
cannam@95	3390 ST(&(xo[WS(os, 31)]), 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, 95)]), VSUB(T9X, T9Y), ovs, &(xo[WS(os, 1)]));
cannam@95	3397 ST(&(xo[WS(os, 33)]), 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, 15)]), VADD(T9D, T9E), ovs, &(xo[WS(os, 1)]));
cannam@95	3401 ST(&(xo[WS(os, 113)]), 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(KP803207531), T5W, VMUL(LDK(KP595699304), T5Z));
cannam@95	3414 T6h = VFNMS(LDK(KP595699304), T5W, VMUL(LDK(KP803207531), T5Z));
cannam@95	3415 T63 = VSUB(T61, T62);
cannam@95	3416 T66 = VSUB(T64, T65);
cannam@95	3417 T67 = VFNMS(LDK(KP595699304), T66, VMUL(LDK(KP803207531), T63));
cannam@95	3418 T6i = VFMA(LDK(KP595699304), T63, VMUL(LDK(KP803207531), T66));
cannam@95	3419 }
cannam@95	3420 T68 = VSUB(T60, T67);
cannam@95	3421 T6r = VADD(T6h, T6i);
cannam@95	3422 T6j = VSUB(T6h, T6i);
cannam@95	3423 T6n = VADD(T60, T67);
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(KP989176509), T6y, VMUL(LDK(KP146730474), T6z));
cannam@95	3432 T6J = VFNMS(LDK(KP146730474), T6y, VMUL(LDK(KP989176509), T6z));
cannam@95	3433 T6B = VADD(T62, T61);
cannam@95	3434 T6C = VADD(T64, T65);
cannam@95	3435 T6D = VFNMS(LDK(KP146730474), T6C, VMUL(LDK(KP989176509), T6B));
cannam@95	3436 T6K = VFMA(LDK(KP146730474), T6B, VMUL(LDK(KP989176509), T6C));
cannam@95	3437 }
cannam@95	3438 T6E = VSUB(T6A, T6D);
cannam@95	3439 T6T = VADD(T6J, T6K);
cannam@95	3440 T6L = VSUB(T6J, T6K);
cannam@95	3441 T6P = VADD(T6A, T6D);
cannam@95	3442 }
cannam@95	3443 {
cannam@95	3444 V T5L, T6v, T6f, T6H, T5S, T6G, T6c, T6w, T5K, T6d;
cannam@95	3445 T5K = VADD(T4q, T4H);
cannam@95	3446 T5L = VSUB(T5J, T5K);
cannam@95	3447 T6v = VADD(T5J, T5K);
cannam@95	3448 T6d = VADD(T4V, T4W);
cannam@95	3449 T6f = VSUB(T6d, T6e);
cannam@95	3450 T6H = VADD(T6e, T6d);
cannam@95	3451 {
cannam@95	3452 V T5O, T5R, T6a, T6b;
cannam@95	3453 T5O = VFMA(LDK(KP956940335), T5M, VMUL(LDK(KP290284677), T5N));
cannam@95	3454 T5R = VFNMS(LDK(KP290284677), T5Q, VMUL(LDK(KP956940335), T5P));
cannam@95	3455 T5S = VSUB(T5O, T5R);
cannam@95	3456 T6G = VADD(T5O, T5R);
cannam@95	3457 T6a = VFNMS(LDK(KP290284677), T5M, VMUL(LDK(KP956940335), T5N));
cannam@95	3458 T6b = VFMA(LDK(KP290284677), T5P, VMUL(LDK(KP956940335), T5Q));
cannam@95	3459 T6c = VSUB(T6a, T6b);
cannam@95	3460 T6w = VADD(T6a, T6b);
cannam@95	3461 }
cannam@95	3462 T5T = VSUB(T5L, T5S);
cannam@95	3463 T6Q = VADD(T6H, T6G);
cannam@95	3464 T6S = VADD(T6v, T6w);
cannam@95	3465 T6g = VSUB(T6c, T6f);
cannam@95	3466 T6o = VADD(T6f, T6c);
cannam@95	3467 T6x = VSUB(T6v, T6w);
cannam@95	3468 T6I = VSUB(T6G, T6H);
cannam@95	3469 T6q = VADD(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, 109)]), VSUB(T69, T6k), ovs, &(xo[WS(os, 1)]));
cannam@95	3476 ST(&(xo[WS(os, 19)]), 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, 61)]), VADD(T6R, T6U), ovs, &(xo[WS(os, 1)]));
cannam@95	3480 ST(&(xo[WS(os, 67)]), 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, 3)]), VADD(T6V, T6W), ovs, &(xo[WS(os, 1)]));
cannam@95	3487 ST(&(xo[WS(os, 125)]), 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, 83)]), VSUB(T6l, T6m), ovs, &(xo[WS(os, 1)]));
cannam@95	3491 ST(&(xo[WS(os, 45)]), 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, 51)]), VADD(T6p, T6s), ovs, &(xo[WS(os, 1)]));
cannam@95	3498 ST(&(xo[WS(os, 77)]), 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, 99)]), VSUB(T6F, T6M), ovs, &(xo[WS(os, 1)]));
cannam@95	3502 ST(&(xo[WS(os, 29)]), 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, 93)]), VSUB(T6N, T6O), ovs, &(xo[WS(os, 1)]));
cannam@95	3509 ST(&(xo[WS(os, 35)]), 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, 13)]), VADD(T6t, T6u), ovs, &(xo[WS(os, 1)]));
cannam@95	3513 ST(&(xo[WS(os, 115)]), 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("n1bv_128"), {938, 186, 144, 0}, &GENUS, 0, 0, 0, 0 };
cannam@95	3522
cannam@95	3523 void XSIMD(codelet_n1bv_128) (planner *p) {
cannam@95	3524 X(kdft_register) (p, n1bv_128, &desc);
cannam@95	3525 }
cannam@95	3526
cannam@95	3527 #endif /* HAVE_FMA */

Mercurial > hg > sv-dependency-builds

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