1 /* 2 Copyright (C) 2010 William Hart 3 4 This file is part of FLINT. 5 6 FLINT 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 <stdlib.h> 13 #include <gmp.h> 14 #include <mpfr.h> 15 #include "flint.h" 16 #include "mpfr_vec.h" 17 18 void _mpfr_vec_zero(flint_mpfr * vec,slong length)19_mpfr_vec_zero(flint_mpfr * vec, slong length) 20 { 21 slong i; 22 for (i = 0; i < length; i++) 23 mpfr_set_ui(vec + i, 0, GMP_RNDN); 24 } 25