/* SU= 240 */ void FP4_pow(FP4 *r,FP4* a,BIG b) { FP4 w; BIG z,zilch; int bt; BIG_zero(zilch); BIG_norm(b); BIG_copy(z,b); FP4_copy(&w,a); FP4_one(r); while(1) { bt=BIG_parity(z); BIG_shr(z,1); if (bt) FP4_mul(r,r,&w); if (BIG_comp(z,zilch)==0) break; FP4_sqr(&w,&w); } FP4_reduce(r); }
/* SU= 8 */ void FP12_one(FP12 *w) { FP4_one(&(w->a)); FP4_zero(&(w->b)); FP4_zero(&(w->c)); }