arb/bernoulli/rev_clear.c

26 lines
660 B
C
Raw Permalink Normal View History

/*
2012-12-19 14:04:00 +01:00
Copyright (C) 2012 Fredrik Johansson
This file is part of Arb.
Arb is free software: you can redistribute it and/or modify it under
the terms of the GNU Lesser General Public License (LGPL) as published
by the Free Software Foundation; either version 2.1 of the License, or
(at your option) any later version. See <http://www.gnu.org/licenses/>.
*/
2012-12-19 14:04:00 +01:00
#include "bernoulli.h"
void
bernoulli_rev_clear(bernoulli_rev_t iter)
{
if (iter->alloc != 0)
{
_fmpz_vec_clear(iter->powers, iter->alloc);
fmpz_clear(iter->pow_error);
arb_clear(iter->prefactor);
arb_clear(iter->two_pi_squared);
2012-12-19 14:04:00 +01:00
}
}