Loading...
Searching...
No Matches
fp_inv2047m1l226.c File Reference
#include "mulx/fp.h"
Include dependency graph for fp_inv2047m1l226.c:
Go to the source code of this file.
Functions | |
| void | fp_inv (fp x) |
Function Documentation
◆ fp_inv()
| void fp_inv | ( | fp | x | ) |
Definition at line 12 of file fp_inv2047m1l226.c.
13{
14 fp r0;
15 fp_copy(r0, x);
16 fp r1;
17 fp_sqr(r1,r0);
18 fp r2;
19 fp_mul(r2,r0,r1);
20 fp r3;
21 fp_mul(r3,r1,r2);
22 fp r4;
23 fp_mul(r4,r1,r3);
24 fp r5;
25 fp_mul(r5,r1,r4);
26 fp r6;
27 fp_mul(r6,r1,r5);
28 fp r7;
29 fp_mul(r7,r1,r6);
30 fp r8;
31 fp_mul(r8,r1,r7);
32 fp r9;
33 fp_mul(r9,r1,r8);
34 fp r10;
35 fp_mul(r10,r1,r9);
36 fp r11;
37 fp_mul(r11,r1,r10);
38 fp r12;
39 fp_mul(r12,r1,r11);
40 fp r13;
41 fp_mul(r13,r1,r12);
42 fp r14;
43 fp_mul(r14,r1,r13);
44 fp r15;
45 fp_mul(r15,r1,r14);
46 fp r16;
47 fp_mul(r16,r1,r15);
48 fp r17;
49 fp_mul(r17,r1,r16);
50 fp r18;
51 fp_mul(r18,r1,r17);
52 fp r19;
53 fp_mul(r19,r1,r18);
54 fp r20;
55 fp_mul(r20,r1,r19);
56 fp r21;
57 fp_mul(r21,r1,r20);
58 fp r22;
59 fp_mul(r22,r1,r21);
60 fp r23;
61 fp_mul(r23,r1,r22);
62 fp r24;
63 fp_mul(r24,r1,r23);
64 fp r25;
65 fp_mul(r25,r1,r24);
66 fp r26;
67 fp_mul(r26,r1,r25);
68 fp r27;
69 fp_mul(r27,r1,r26);
70 fp r28;
71 fp_mul(r28,r1,r27);
72 fp r29;
73 fp_mul(r29,r1,r28);
74 fp r30;
75 fp_mul(r30,r1,r29);
76 fp r31;
77 fp_mul(r31,r1,r30);
78 fp r32;
79 fp_mul(r32,r1,r31);
80 fp r33;
81 fp_mul(r33,r1,r32);
82 fp r34;
83 fp_mul(r34,r1,r33);
84 fp r35;
85 fp_mul(r35,r1,r34);
86 fp r36;
87 fp_mul(r36,r1,r35);
88 fp r37;
89 fp_mul(r37,r1,r36);
90 fp r38;
91 fp_mul(r38,r1,r37);
92 fp r39;
93 fp_mul(r39,r1,r38);
94 fp r40;
95 fp_mul(r40,r1,r39);
96 fp r41;
97 fp_mul(r41,r1,r40);
98 fp r42;
99 fp_mul(r42,r1,r41);
100 fp r43;
101 fp_mul(r43,r1,r42);
102 fp r44;
103 fp_mul(r44,r1,r43);
104 fp r45;
105 fp_mul(r45,r1,r44);
106 fp r46;
107 fp_mul(r46,r1,r45);
108 fp_mul(r46,r46,r1);
109 fp r47;
110 fp_mul(r47,r1,r46);
111 fp r48;
112 fp_mul(r48,r1,r47);
113 fp r49;
114 fp_mul(r49,r1,r48);
115 fp r50;
116 fp_mul(r50,r1,r49);
117 fp r51;
118 fp_mul(r51,r1,r50);
119 fp r52;
120 fp_mul(r52,r1,r51);
121 fp r53;
122 fp_mul(r53,r1,r52);
123 fp r54;
124 fp_mul(r54,r1,r53);
125 fp r55;
126 fp_mul(r55,r1,r54);
127 fp r56;
128 fp_mul(r56,r1,r55);
129 fp r57;
130 fp_mul(r57,r1,r56);
131 fp r58;
132 fp_mul(r58,r1,r57);
133 fp r59;
134 fp_mul(r59,r1,r58);
135 fp_mul(r1,r1,r59);
136 fp r60;
137 fp_mul(r60,r12,r1);
138 fp_sq1_rep(r60,4);
139 fp_mul(r60,r60,r53);
140 fp_sq1_rep(r60,10);
141 fp_mul(r60,r60,r33);
142 fp_sq1_rep(r60,8);
143 fp_mul(r60,r60,r58);
144 fp_sq1_rep(r60,7);
145 fp_mul(r60,r60,r13);
146 fp_sq1_rep(r60,9);
147 fp_mul(r60,r60,r58);
148 fp_sq1_rep(r60,8);
149 fp_mul(r60,r60,r22);
150 fp_sq1_rep(r60,7);
151 fp_mul(r60,r60,r1);
152 fp_sq1_rep(r60,7);
153 fp_mul(r60,r60,r50);
154 fp_sq1_rep(r60,7);
155 fp_mul(r60,r60,r46);
156 fp_sq1_rep(r60,7);
157 fp_mul(r60,r60,r7);
158 fp_sq1_rep(r60,7);
159 fp_mul(r60,r60,r32);
160 fp_sq1_rep(r60,10);
161 fp_mul(r60,r60,r2);
162 fp_sq1_rep(r60,7);
163 fp_mul(r60,r60,r20);
164 fp_sq1_rep(r60,8);
165 fp_mul(r60,r60,r31);
166 fp_sq1_rep(r60,10);
167 fp_mul(r60,r60,r55);
168 fp_sq1_rep(r60,14);
169 fp_mul(r60,r60,r35);
170 fp_sq1_rep(r60,7);
171 fp_mul(r60,r60,r21);
172 fp_sq1_rep(r60,7);
173 fp_mul(r60,r60,r55);
174 fp_sq1_rep(r60,7);
175 fp_mul(r60,r60,r39);
176 fp_sq1_rep(r60,7);
177 fp_mul(r60,r60,r51);
178 fp_sq1_rep(r60,7);
179 fp_mul(r60,r60,r12);
180 fp_sq1_rep(r60,9);
181 fp_mul(r60,r60,r50);
182 fp_sq1_rep(r60,8);
183 fp_mul(r60,r60,r21);
184 fp_sq1_rep(r60,8);
185 fp_mul(r60,r60,r4);
186 fp_sq1_rep(r60,7);
187 fp_mul(r60,r60,r1);
188 fp_sq1_rep(r60,8);
189 fp_mul(r60,r60,r22);
190 fp_sq1_rep(r60,7);
191 fp_mul(r60,r60,r43);
192 fp_sq1_rep(r60,12);
193 fp_mul(r60,r60,r52);
194 fp_sq1_rep(r60,8);
195 fp_mul(r60,r60,r56);
196 fp_sq1_rep(r60,7);
197 fp_mul(r60,r60,r57);
198 fp_sq1_rep(r60,7);
199 fp_mul(r60,r60,r13);
200 fp_sq1_rep(r60,9);
201 fp_mul(r60,r60,r26);
202 fp_sq1_rep(r60,7);
203 fp_mul(r60,r60,r14);
204 fp_sq1_rep(r60,7);
205 fp_mul(r60,r60,r26);
206 fp_sq1_rep(r60,8);
207 fp_mul(r60,r60,r32);
208 fp_sq1_rep(r60,8);
209 fp_mul(r60,r60,r10);
210 fp_sq1_rep(r60,7);
211 fp_mul(r60,r60,r30);
212 fp_sq1_rep(r60,13);
213 fp_mul(r60,r60,r33);
214 fp_sq1_rep(r60,8);
215 fp_mul(r60,r60,r3);
216 fp_sq1_rep(r60,7);
217 fp_mul(r60,r60,r29);
218 fp_sq1_rep(r60,7);
219 fp_mul(r60,r60,r10);
220 fp_sq1_rep(r60,8);
221 fp_mul(r60,r60,r47);
222 fp_sq1_rep(r60,7);
223 fp_mul(r60,r60,r35);
224 fp_sq1_rep(r60,7);
225 fp_mul(r60,r60,r38);
226 fp_sq1_rep(r60,8);
227 fp_mul(r60,r60,r5);
228 fp_sq1_rep(r60,8);
229 fp_mul(r60,r60,r36);
230 fp_sq1_rep(r60,7);
231 fp_mul(r60,r60,r4);
232 fp_sq1_rep(r60,9);
233 fp_mul(r60,r60,r44);
234 fp_sq1_rep(r60,7);
235 fp_mul(r60,r60,r25);
236 fp_sq1_rep(r60,7);
237 fp_mul(r60,r60,r14);
238 fp_sq1_rep(r60,8);
239 fp_mul(r60,r60,r41);
240 fp_sq1_rep(r60,8);
241 fp_mul(r60,r60,r10);
242 fp_sq1_rep(r60,7);
243 fp_mul(r60,r60,r25);
244 fp_sq1_rep(r60,8);
245 fp_mul(r60,r60,r59);
246 fp_sq1_rep(r60,9);
247 fp_mul(r60,r60,r58);
248 fp_sq1_rep(r60,7);
249 fp_mul(r60,r60,r11);
250 fp_sq1_rep(r60,7);
251 fp_mul(r60,r60,r22);
252 fp_sq1_rep(r60,7);
253 fp_mul(r60,r60,r14);
254 fp_sq1_rep(r60,7);
255 fp_mul(r60,r60,r47);
256 fp_sq1_rep(r60,8);
257 fp_mul(r60,r60,r19);
258 fp_sq1_rep(r60,7);
259 fp_mul(r60,r60,r19);
260 fp_sq1_rep(r60,7);
261 fp_mul(r60,r60,r4);
262 fp_sq1_rep(r60,7);
263 fp_mul(r15,r15,r60);
264 fp_sq1_rep(r15,6);
265 fp_mul(r15,r15,r32);
266 fp_sq1_rep(r15,7);
267 fp_mul(r15,r15,r36);
268 fp_sq1_rep(r15,11);
269 fp_mul(r15,r15,r28);
270 fp_sq1_rep(r15,7);
271 fp_mul(r15,r15,r6);
272 fp_sq1_rep(r15,10);
273 fp_mul(r15,r15,r22);
274 fp_sq1_rep(r15,10);
275 fp_mul(r15,r15,r36);
276 fp_sq1_rep(r15,7);
277 fp_mul(r15,r15,r40);
278 fp_sq1_rep(r15,7);
279 fp_mul(r15,r15,r56);
280 fp_sq1_rep(r15,7);
281 fp_mul(r15,r15,r31);
282 fp_sq1_rep(r15,8);
283 fp_mul(r15,r15,r59);
284 fp_sq1_rep(r15,7);
285 fp_mul(r15,r15,r48);
286 fp_sq1_rep(r15,8);
287 fp_mul(r15,r15,r31);
288 fp_sq1_rep(r15,7);
289 fp_mul(r15,r15,r21);
290 fp_sq1_rep(r15,14);
291 fp_mul(r15,r15,r57);
292 fp_sq1_rep(r15,8);
293 fp_mul(r15,r15,r4);
294 fp_sq1_rep(r15,12);
295 fp_mul(r15,r15,r39);
296 fp_sq1_rep(r15,11);
297 fp_mul(r15,r15,r17);
298 fp_sq1_rep(r15,7);
299 fp_mul(r15,r15,r23);
300 fp_sq1_rep(r15,7);
301 fp_mul(r15,r15,r40);
302 fp_sq1_rep(r15,9);
303 fp_mul(r15,r15,r42);
304 fp_sq1_rep(r15,8);
305 fp_mul(r15,r15,r2);
306 fp_sq1_rep(r15,7);
307 fp_mul(r15,r15,r45);
308 fp_sq1_rep(r15,7);
309 fp_mul(r15,r15,r19);
310 fp_sq1_rep(r15,7);
311 fp_mul(r15,r15,r21);
312 fp_sq1_rep(r15,8);
313 fp_mul(r15,r15,r43);
314 fp_sq1_rep(r15,8);
315 fp_mul(r15,r15,r1);
316 fp_sq1_rep(r15,7);
317 fp_mul(r15,r15,r25);
318 fp_sq1_rep(r15,6);
319 fp_mul(r15,r15,r32);
320 fp_sq1_rep(r15,10);
321 fp_mul(r15,r15,r41);
322 fp_sq1_rep(r15,7);
323 fp_mul(r15,r15,r30);
324 fp_sq1_rep(r15,7);
325 fp_mul(r15,r15,r50);
326 fp_sq1_rep(r15,9);
327 fp_mul(r15,r15,r4);
328 fp_sq1_rep(r15,16);
329 fp_mul(r15,r15,r54);
330 fp_sq1_rep(r15,9);
331 fp_mul(r15,r15,r37);
332 fp_sq1_rep(r15,6);
333 fp_mul(r15,r15,r31);
334 fp_sq1_rep(r15,7);
335 fp_mul(r15,r15,r12);
336 fp_sq1_rep(r15,8);
337 fp_mul(r15,r15,r41);
338 fp_sq1_rep(r15,10);
339 fp_mul(r15,r15,r3);
340 fp_sq1_rep(r15,7);
341 fp_mul(r15,r15,r51);
342 fp_sq1_rep(r15,8);
343 fp_mul(r15,r15,r58);
344 fp_sq1_rep(r15,11);
345 fp_mul(r15,r15,r46);
346 fp_sq1_rep(r15,7);
347 fp_mul(r15,r15,r53);
348 fp_sq1_rep(r15,7);
349 fp_mul(r15,r15,r4);
350 fp_sq1_rep(r15,11);
351 fp_mul(r15,r15,r42);
352 fp_sq1_rep(r15,7);
353 fp_mul(r15,r15,r1);
354 fp_sq1_rep(r15,7);
355 fp_mul(r15,r15,r58);
356 fp_sq1_rep(r15,8);
357 fp_mul(r15,r15,r16);
358 fp_sq1_rep(r15,7);
359 fp_mul(r15,r15,r52);
360 fp_sq1_rep(r15,7);
361 fp_mul(r15,r15,r40);
362 fp_sq1_rep(r15,7);
363 fp_mul(r15,r15,r45);
364 fp_sq1_rep(r15,7);
365 fp_mul(r4,r4,r15);
366 fp_sq1_rep(r4,7);
367 fp_mul(r4,r4,r48);
368 fp_sq1_rep(r4,9);
369 fp_mul(r4,r4,r33);
370 fp_sq1_rep(r4,12);
371 fp_mul(r4,r4,r1);
372 fp_sq1_rep(r4,7);
373 fp_mul(r4,r4,r46);
374 fp_sq1_rep(r4,10);
375 fp_mul(r3,r3,r4);
376 fp_sq1_rep(r3,7);
377 fp_mul(r3,r3,r51);
378 fp_sq1_rep(r3,6);
379 fp_mul(r3,r3,r31);
380 fp_sq1_rep(r3,9);
381 fp_mul(r3,r3,r24);
382 fp_sq1_rep(r3,8);
383 fp_mul(r3,r3,r59);
384 fp_sq1_rep(r3,7);
385 fp_mul(r3,r3,r11);
386 fp_sq1_rep(r3,7);
387 fp_mul(r3,r3,r24);
388 fp_sq1_rep(r3,7);
389 fp_mul(r3,r3,r29);
390 fp_sq1_rep(r3,10);
391 fp_mul(r3,r3,r21);
392 fp_sq1_rep(r3,7);
393 fp_mul(r3,r3,r24);
394 fp_sq1_rep(r3,9);
395 fp_mul(r3,r3,r14);
396 fp_sq1_rep(r3,8);
397 fp_mul(r3,r3,r18);
398 fp_sq1_rep(r3,8);
399 fp_mul(r3,r3,r37);
400 fp_sq1_rep(r3,9);
401 fp_mul(r3,r3,r53);
402 fp_sq1_rep(r3,8);
403 fp_mul(r3,r3,r36);
404 fp_sq1_rep(r3,7);
405 fp_mul(r3,r3,r1);
406 fp_sq1_rep(r3,6);
407 fp_mul(r3,r3,r30);
408 fp_sq1_rep(r3,9);
409 fp_mul(r3,r3,r43);
410 fp_sq1_rep(r3,8);
411 fp_mul(r3,r3,r54);
412 fp_sq1_rep(r3,7);
413 fp_mul(r3,r3,r33);
414 fp_sq1_rep(r3,7);
415 fp_mul(r3,r3,r28);
416 fp_sq1_rep(r3,6);
417 fp_mul(r3,r3,r30);
418 fp_sq1_rep(r3,9);
419 fp_mul(r3,r3,r38);
420 fp_sq1_rep(r3,7);
421 fp_mul(r3,r3,r17);
422 fp_sq1_rep(r3,7);
423 fp_mul(r3,r3,r40);
424 fp_sq1_rep(r3,12);
425 fp_mul(r3,r3,r5);
426 fp_sq1_rep(r3,7);
427 fp_mul(r3,r3,r7);
428 fp_sq1_rep(r3,7);
429 fp_mul(r3,r3,r32);
430 fp_sq1_rep(r3,6);
431 fp_mul(r3,r3,r32);
432 fp_sq1_rep(r3,7);
433 fp_mul(r3,r3,r51);
434 fp_sq1_rep(r3,8);
435 fp_mul(r3,r3,r7);
436 fp_sq1_rep(r3,9);
437 fp_mul(r3,r3,r38);
438 fp_sq1_rep(r3,8);
439 fp_mul(r3,r3,r29);
440 fp_sq1_rep(r3,7);
441 fp_mul(r3,r3,r2);
442 fp_sq1_rep(r3,7);
443 fp_mul(r3,r3,r32);
444 fp_sq1_rep(r3,7);
445 fp_mul(r3,r3,r49);
446 fp_sq1_rep(r3,13);
447 fp_mul(r3,r3,r35);
448 fp_sq1_rep(r3,9);
449 fp_mul(r3,r3,r28);
450 fp_sq1_rep(r3,7);
451 fp_mul(r0,r0,r3);
452 fp_sq1_rep(r0,8);
453 fp_mul(r0,r0,r17);
454 fp_sq1_rep(r0,8);
455 fp_mul(r0,r0,r38);
456 fp_sq1_rep(r0,7);
457 fp_mul(r0,r0,r50);
458 fp_sq1_rep(r0,7);
459 fp_mul(r0,r0,r43);
460 fp_sq1_rep(r0,11);
461 fp_mul(r0,r0,r25);
462 fp_sq1_rep(r0,7);
463 fp_mul(r0,r0,r58);
464 fp_sq1_rep(r0,9);
465 fp_mul(r0,r0,r29);
466 fp_sq1_rep(r0,8);
467 fp_mul(r0,r0,r36);
468 fp_sq1_rep(r0,10);
469 fp_mul(r0,r0,r48);
470 fp_sq1_rep(r0,7);
471 fp_mul(r0,r0,r36);
472 fp_sq1_rep(r0,7);
473 fp_mul(r0,r0,r37);
474 fp_sq1_rep(r0,8);
475 fp_mul(r0,r0,r37);
476 fp_sq1_rep(r0,7);
477 fp_mul(r0,r0,r34);
478 fp_sq1_rep(r0,8);
479 fp_mul(r0,r0,r56);
480 fp_sq1_rep(r0,9);
481 fp_mul(r0,r0,r6);
482 fp_sq1_rep(r0,7);
483 fp_mul(r0,r0,r10);
484 fp_sq1_rep(r0,8);
485 fp_mul(r0,r0,r27);
486 fp_sq1_rep(r0,7);
487 fp_mul(r0,r0,r5);
488 fp_sq1_rep(r0,8);
489 fp_mul(r0,r0,r11);
490 fp_sq1_rep(r0,7);
491 fp_mul(r0,r0,r34);
492 fp_sq1_rep(r0,7);
493 fp_mul(r0,r0,r38);
494 fp_sq1_rep(r0,6);
495 fp_mul(r0,r0,r31);
496 fp_sq1_rep(r0,9);
497 fp_mul(r0,r0,r50);
498 fp_sq1_rep(r0,8);
499 fp_mul(r0,r0,r19);
500 fp_sq1_rep(r0,7);
501 fp_mul(r0,r0,r40);
502 fp_sq1_rep(r0,7);
503 fp_mul(r0,r0,r14);
504 fp_sq1_rep(r0,7);
505 fp_mul(r0,r0,r37);
506 fp_sq1_rep(r0,7);
507 fp_mul(r0,r0,r20);
508 fp_sq1_rep(r0,7);
509 fp_mul(r0,r0,r53);
510 fp_sq1_rep(r0,9);
511 fp_mul(r0,r0,r54);
512 fp_sq1_rep(r0,7);
513 fp_mul(r0,r0,r53);
514 fp_sq1_rep(r0,7);
515 fp_mul(r0,r0,r1);
516 fp_sq1_rep(r0,8);
517 fp_mul(r0,r0,r20);
518 fp_sq1_rep(r0,8);
519 fp_mul(r0,r0,r45);
520 fp_sq1_rep(r0,7);
521 fp_mul(r0,r0,r13);
522 fp_sq1_rep(r0,8);
523 fp_mul(r0,r0,r31);
524 fp_sq1_rep(r0,8);
525 fp_mul(r0,r0,r14);
526 fp_sq1_rep(r0,13);
527 fp_mul(r0,r0,r10);
528 fp_sq1_rep(r0,17);
529 fp_mul(r0,r0,r2);
530 fp_sq1_rep(r0,12);
531 fp_mul(r0,r0,r51);
532 fp_sq1_rep(r0,7);
533 fp_mul(r0,r0,r8);
534 fp_sq1_rep(r0,8);
535 fp_mul(r0,r0,r9);
536 fp_sq1_rep(r0,7);
537 fp_mul(r0,r0,r25);
538 fp_sq1_rep(r0,10);
539 fp_mul(r0,r0,r26);
540 fp_sq1_rep(r0,8);
541 fp_mul(r0,r0,r49);
542 fp_sq1_rep(r0,7);
543 fp_mul(r0,r0,r36);
544 fp_sq1_rep(r0,7);
545 fp_mul(r0,r0,r1);
546 fp_sq1_rep(r0,7);
547 fp_mul(r0,r0,r42);
548 fp_sq1_rep(r0,7);
549 fp_mul(r0,r0,r58);
550 fp_sq1_rep(r0,9);
551 fp_mul(r0,r0,r49);
552 fp_sq1_rep(r0,7);
553 fp_mul(r0,r0,r42);
554 fp_sq1_rep(r0,7);
555 fp_mul(r0,r0,r45);
556 fp_sq1_rep(r0,7);
557 fp_mul(r0,r0,r57);
558 fp_sq1_rep(r0,8);
559 fp_mul(r0,r0,r1);
560 fp_sq1_rep(r0,7);
561 fp_mul(r0,r0,r5);
562 fp_sq1_rep(r0,7);
563 fp_mul(r0,r0,r21);
564 fp_sq1_rep(r0,7);
565 fp_mul(r0,r0,r40);
566 fp_sq1_rep(r0,7);
567 fp_mul(r0,r0,r24);
568 fp_sq1_rep(r0,7);
569 fp_mul(r0,r0,r25);
570 fp_sq1_rep(r0,11);
571 fp_mul(r0,r0,r6);
572 fp_sq1_rep(r0,10);
573 fp_mul(r0,r0,r58);
574 fp_sq1_rep(r0,7);
575 fp_mul(r0,r0,r56);
576 fp_sq1_rep(r0,7);
577 fp_mul(r0,r0,r11);
578 fp_sq1_rep(r0,7);
579 fp_mul(r0,r0,r55);
580 fp_sq1_rep(r0,8);
581 fp_mul(r0,r0,r43);
582 fp_sq1_rep(r0,7);
583 fp_mul(r0,r0,r1);
584 fp_sq1_rep(r0,7);
585 fp_mul(r0,r0,r33);
586 fp_sq1_rep(r0,8);
587 fp_mul(r0,r0,r32);
588 fp_sq1_rep(r0,12);
589 fp_mul(r0,r0,r38);
590 fp_sq1_rep(r0,7);
591 fp_mul(r0,r0,r44);
592 fp_sq1_rep(r0,7);
593 fp_mul(r0,r0,r47);
594 fp_sq1_rep(r0,7);
595 fp_mul(r0,r0,r21);
596 fp_sq1_rep(r0,11);
597 fp_mul(r0,r0,r41);
598 fp_sq1_rep(r0,7);
599 fp_mul(r0,r0,r58);
600 fp_sq1_rep(r0,8);
601 fp_mul(r0,r0,r34);
602 fp_sq1_rep(r0,9);
603 fp_mul(r0,r0,r30);
604 fp_sq1_rep(r0,8);
605 fp_mul(r0,r0,r42);
606 fp_sq1_rep(r0,9);
607 fp_mul(r0,r0,r33);
608 fp_sq1_rep(r0,13);
609 fp_mul(r0,r0,r30);
610 fp_sq1_rep(r0,8);
611 fp_mul(r0,r0,r57);
612 fp_sq1_rep(r0,7);
613 fp_mul(r0,r0,r21);
614 fp_sq1_rep(r0,7);
615 fp_mul(r0,r0,r48);
616 fp_sq1_rep(r0,7);
617 fp_mul(r0,r0,r38);
618 fp_sq1_rep(r0,8);
619 fp_mul(r0,r0,r26);
620 fp_sq1_rep(r0,7);
621 fp_mul(r0,r0,r28);
622 fp_sq1_rep(r0,7);
623 fp_mul(r0,r0,r13);
624 fp_sq1_rep(r0,8);
625 fp_mul(r0,r0,r59);
626 fp_sq1_rep(r0,7);
627 fp_mul(r0,r0,r26);
628 fp_sq1_rep(r0,8);
629 fp_mul(r0,r0,r44);
630 fp_sq1_rep(r0,7);
631 fp_mul(r0,r0,r12);
632 fp_sq1_rep(r0,8);
633 fp_mul(r0,r0,r24);
634 fp_sq1_rep(r0,6);
635 fp_mul(r0,r0,r32);
636 fp_sq1_rep(r0,6);
637 fp_mul(r0,r0,r32);
638 fp_sq1_rep(r0,6);
639 fp_mul(r0,r0,r32);
640 fp_sq1_rep(r0,6);
641 fp_mul(r0,r0,r32);
642 fp_sq1_rep(r0,6);
643 fp_mul(r0,r0,r32);
644 fp_sq1_rep(r0,6);
645 fp_mul(r0,r0,r32);
646 fp_sq1_rep(r0,6);
647 fp_mul(r0,r0,r32);
648 fp_sq1_rep(r0,6);
649 fp_mul(r0,r0,r32);
650 fp_sq1_rep(r0,6);
651 fp_mul(r0,r0,r32);
652 fp_sq1_rep(r0,6);
653 fp_mul(r0,r0,r31);
654 fp_copy(x, r0);
655}
