* cancel gcd of integers zaehler and nenner * *********************************************/
| 587 | * cancel gcd of integers zaehler and nenner * |
| 588 | *********************************************/ |
| 589 | static void cancel(mpz_t zaehler, mpz_t nenner) |
| 590 | { |
| 591 | // assume(zaehler >= 0 && nenner > 0); |
| 592 | mpz_t g; |
| 593 | mpz_init(g); |
| 594 | mpz_gcd(g, zaehler, nenner); |
| 595 | |
| 596 | mpz_div(zaehler , zaehler, g); |
| 597 | mpz_div(nenner , nenner, g); |
| 598 | |
| 599 | mpz_clear(g); |
| 600 | } |
| 601 | |
| 602 | //unused |
| 603 | #if 0 |