diff options
Diffstat (limited to 'libgfortran/generated/exp_c8.c')
| -rw-r--r-- | libgfortran/generated/exp_c8.c | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/libgfortran/generated/exp_c8.c b/libgfortran/generated/exp_c8.c index 74cbbdc5145..5bd96495b96 100644 --- a/libgfortran/generated/exp_c8.c +++ b/libgfortran/generated/exp_c8.c @@ -30,17 +30,14 @@ cabs (GFC_COMPLEX_8 z) return hypot (REALPART (z), IMAGPART (z)); } -/* Complex argument. The angle made with the +ve real axis. Range 0-2pi. */ +/* Complex argument. The angle made with the +ve real axis. + Range -pi-pi. */ GFC_REAL_8 carg (GFC_COMPLEX_8 z) { GFC_REAL_8 arg; - arg = atan2 (IMAGPART (z), REALPART (z)); - if (arg < 0) - return arg + 2 * M_PI; - else - return arg; + return atan2 (IMAGPART (z), REALPART (z)); } /* exp(z) = exp(a)*(cos(b) + isin(b)) */ |