bridge/class-master/depend/pari/src/basemath/mftrace.c
/* All square roots modulo 4N, x modulo 2N, precomputed to accelerate TA2 */
All square roots modulo 4N, x modulo 2N, precomputed to accelerate TA2
All square roots modulo 4N x modulo 2N precomputed to accelerate TA2
static GEN
mksqr(long N)
{
  pari_sp av = avma;
  long x, N2 = N << 1, N4 = N << 2;
  GEN v = const_vec(N2, cgetg(1, t_VECSMALL));
  gel(v, N2) = mkvecsmall(0); 
  for (x = 1; x <= N; x++)
  {
    long r = (((x*x - 1)%N4) >> 1) + 1;
    gel(v,r) = vecsmall_append(gel(v,r), x);
  }
  return gerepilecopy(av, v);
}
static GEN mksqr ( long N ) { pari_sp av = avma ; long x , N2 = N << 1 , N4 = N << 2 ; GEN v = const_vec ( N2 , cgetg ( 1 , t_VECSMALL ) ) ; gel ( v , N2 ) = mkvecsmall ( 0 ) ; for ( x = 1 ; x <= N ; x ++ ) { long r = ( ( ( x * x - 1 ) % N4 ) >> 1 ) + 1 ; gel ( v , r ) = vecsmall_append ( gel ( v , r ) , x ) ; } return gerepilecopy ( av , v ) ; }
All square roots modulo 4N, x modulo 2N, precomputed to accelerate TA2
All square roots modulo 4N x modulo 2N precomputed to accelerate TA2
/* x = 0 */