1 /*
2 Copyright (C) 2012 Fredrik Johansson
3
4 This file is part of Arb.
5
6 Arb is free software: you can redistribute it and/or modify it under
7 the terms of the GNU Lesser General Public License (LGPL) as published
8 by the Free Software Foundation; either version 2.1 of the License, or
9 (at your option) any later version. See <http://www.gnu.org/licenses/>.
10 */
11
12 #include "acb_poly.h"
13
14 void
_acb_poly_evaluate_vec_iter(acb_ptr ys,acb_srcptr poly,slong plen,acb_srcptr xs,slong n,slong prec)15 _acb_poly_evaluate_vec_iter(acb_ptr ys, acb_srcptr poly, slong plen,
16 acb_srcptr xs, slong n, slong prec)
17 {
18 slong i;
19
20 for (i = 0; i < n; i++)
21 _acb_poly_evaluate(ys + i, poly, plen, xs + i, prec);
22 }
23
24 void
acb_poly_evaluate_vec_iter(acb_ptr ys,const acb_poly_t poly,acb_srcptr xs,slong n,slong prec)25 acb_poly_evaluate_vec_iter(acb_ptr ys,
26 const acb_poly_t poly, acb_srcptr xs, slong n, slong prec)
27 {
28 _acb_poly_evaluate_vec_iter(ys, poly->coeffs,
29 poly->length, xs, n, prec);
30 }
31