void zzn4_powq(_MIPD_ big fr,zzn4 *w) { zzn2_conj(_MIPP_ &(w->x),&(w->x)); zzn2_conj(_MIPP_ &(w->y),&(w->y)); nres(_MIPP_ fr,mr_mip->w1); zzn2_smul(_MIPP_ &(w->y),mr_mip->w1,&(w->y)); }
void zzn4_powq(_MIPD_ zzn2 *fr,zzn4 *w) { #ifdef MR_OS_THREADS miracl *mr_mip=get_mip(); #endif MR_IN(FUNC_BASE+12) zzn2_conj(_MIPP_ &(w->a),&(w->a)); zzn2_conj(_MIPP_ &(w->b),&(w->b)); zzn2_mul(_MIPP_ &(w->b),fr,&(w->b)); MR_OUT }