Lines Matching defs:A1
225 BIGNUM *A1, *A1_odd, *check; /* taken from ctx */
264 A1 = BN_CTX_get(ctx);
269 /* compute A1 := A - 1 */
270 if (!BN_copy(A1, A))
272 if (!BN_sub_word(A1, 1))
274 if (BN_is_zero(A1))
280 /* write A1 as A1_odd * 2^k */
282 while (!BN_is_bit_set(A1, k))
284 if (!BN_rshift(A1_odd, A1, k))
296 if (!BN_pseudo_rand_range(check, A1))
302 j = witness(check, A, A1, A1_odd, k, ctx, mont);