| version 1.1.1.1, 2000/09/09 14:12:54 |
version 1.1.1.2, 2000/12/01 05:45:11 |
|
|
| /* mpz/lcm.c: Calculate the least common multiple of two integers. |
/* mpz/lcm.c: Calculate the least common multiple of two integers. |
| |
|
| Copyright (C) 1996 Free Software Foundation, Inc. |
Copyright (C) 1996, 2000 Free Software Foundation, Inc. |
| |
|
| This file is part of the GNU MP Library. |
This file is part of the GNU MP Library. |
| |
|
| Line 37 mpz_lcm (r, u, v) |
|
| Line 37 mpz_lcm (r, u, v) |
|
| { |
{ |
| mpz_t g; |
mpz_t g; |
| mp_size_t usize, vsize, size; |
mp_size_t usize, vsize, size; |
| |
TMP_DECL (marker); |
| |
|
| |
TMP_MARK (marker); |
| |
|
| usize = ABS (SIZ (u)); |
usize = ABS (SIZ (u)); |
| vsize = ABS (SIZ (v)); |
vsize = ABS (SIZ (v)); |
| |
|
| Line 53 mpz_lcm (r, u, v) |
|
| Line 56 mpz_lcm (r, u, v) |
|
| mpz_gcd (g, u, v); |
mpz_gcd (g, u, v); |
| mpz_divexact (g, u, g); |
mpz_divexact (g, u, g); |
| mpz_mul (r, g, v); |
mpz_mul (r, g, v); |
| |
|
| |
TMP_FREE (marker); |
| } |
} |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to lcm.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / gmp / mpz