/usr/include/givaro/modular-general.inl is in libgivaro-dev 4.0.2-5.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 | // ========================================================================
// Copyright(c)'1994-2015 by The Givaro group
// This file is part of Givaro.
// Givaro is governed by the CeCILL-B license under French law
// and abiding by the rules of distribution of free software.
// see the COPYRIGHT file for more details.
// Authors: A. Breust
// Time-stamp: <03 Jul 15 17:49:05 Jean-Guillaume.Dumas@imag.fr>
// ========================================================================
// Description:
// Forward declarations for Givaro::Modular and associated functions
#pragma once
#include <cmath>
#include <type_traits>
namespace Givaro
{
template<typename Storage_t>
inline Storage_t& invext(Storage_t& x, Storage_t& d, const Storage_t a, const Storage_t b)
{
using Compute_t = typename std::make_signed<Storage_t>::type;
Compute_t u1(1), u3 = static_cast<Compute_t>(a);
Compute_t v1(0), v3 = static_cast<Compute_t>(b);
while (v3 != static_cast<Compute_t>(0))
{
Compute_t q = static_cast<Compute_t>(u3 / v3);
Compute_t t;
t = v1;
v1 = static_cast<Compute_t>(u1 - q * v1);
u1 = t;
t = v3;
v3 = static_cast<Compute_t>(u3 - q * v3);
u3 = t;
}
d = static_cast<Storage_t>(u3);
return x = static_cast<Storage_t>(u1);
}
template<typename Storage_t>
inline Storage_t& invext(Storage_t& x, const Storage_t a, const Storage_t b)
{
Storage_t g; return invext(x,g,a,b);
}
template<typename Storage_t>
inline Storage_t invext(const Storage_t a, const Storage_t b)
{
Storage_t r; return invext(r, a, b);
}
template<typename Storage_t>
inline Storage_t& gcdext(Storage_t& d, Storage_t& u, Storage_t& v, const Storage_t a, const Storage_t b)
{
invext(u,d,a,b);
v = static_cast<Storage_t>((d-u*a)/b);
return d;
}
template<>
inline float invext(const float a, const float b)
{
float u1(1.f), v1(0.f);
float u3(a), v3(b);
while (v3 != 0.f)
{
float q = std::floor(u3 / v3);
float t;
t = v1;
v1 = u1 - q * v1;
u1 = t;
t = v3;
v3 = u3 - q * v3;
u3 = t;
}
return u1;
}
template<>
inline double invext(const double a, const double b)
{
double u1(1.0), v1(0.0);
double u3(a), v3(b);
while (v3 != 0.0)
{
double q = std::floor(u3 / v3);
double t;
t = v1;
v1 = u1 - q * v1;
u1 = t;
t = v3;
v3 = u3 - q * v3;
u3 = t;
}
return u1;
}
}
|