diff options
Diffstat (limited to 'libgfortran/intrinsics/c99_functions.c')
| -rw-r--r-- | libgfortran/intrinsics/c99_functions.c | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/libgfortran/intrinsics/c99_functions.c b/libgfortran/intrinsics/c99_functions.c index d4ed17f..63af2a5 100644 --- a/libgfortran/intrinsics/c99_functions.c +++ b/libgfortran/intrinsics/c99_functions.c @@ -1165,7 +1165,7 @@ csinhl (long double complex a) #endif -/* cosh(a + i b) = cosh(a) cos(b) - i sinh(a) sin(b) */ +/* cosh(a + i b) = cosh(a) cos(b) + i sinh(a) sin(b) */ #if !defined(HAVE_CCOSHF) #define HAVE_CCOSHF 1 float complex @@ -1176,7 +1176,7 @@ ccoshf (float complex a) r = REALPART (a); i = IMAGPART (a); - COMPLEX_ASSIGN (v, coshf (r) * cosf (i), - (sinhf (r) * sinf (i))); + COMPLEX_ASSIGN (v, coshf (r) * cosf (i), sinhf (r) * sinf (i)); return v; } #endif @@ -1191,7 +1191,7 @@ ccosh (double complex a) r = REALPART (a); i = IMAGPART (a); - COMPLEX_ASSIGN (v, cosh (r) * cos (i), - (sinh (r) * sin (i))); + COMPLEX_ASSIGN (v, cosh (r) * cos (i), sinh (r) * sin (i)); return v; } #endif @@ -1206,13 +1206,13 @@ ccoshl (long double complex a) r = REALPART (a); i = IMAGPART (a); - COMPLEX_ASSIGN (v, coshl (r) * cosl (i), - (sinhl (r) * sinl (i))); + COMPLEX_ASSIGN (v, coshl (r) * cosl (i), sinhl (r) * sinl (i)); return v; } #endif -/* tanh(a + i b) = (tanh(a) + i tan(b)) / (1 - i tanh(a) tan(b)) */ +/* tanh(a + i b) = (tanh(a) + i tan(b)) / (1 + i tanh(a) tan(b)) */ #if !defined(HAVE_CTANHF) #define HAVE_CTANHF 1 float complex @@ -1224,7 +1224,7 @@ ctanhf (float complex a) rt = tanhf (REALPART (a)); it = tanf (IMAGPART (a)); COMPLEX_ASSIGN (n, rt, it); - COMPLEX_ASSIGN (d, 1, - (rt * it)); + COMPLEX_ASSIGN (d, 1, rt * it); return n / d; } @@ -1241,7 +1241,7 @@ ctanh (double complex a) rt = tanh (REALPART (a)); it = tan (IMAGPART (a)); COMPLEX_ASSIGN (n, rt, it); - COMPLEX_ASSIGN (d, 1, - (rt * it)); + COMPLEX_ASSIGN (d, 1, rt * it); return n / d; } @@ -1258,7 +1258,7 @@ ctanhl (long double complex a) rt = tanhl (REALPART (a)); it = tanl (IMAGPART (a)); COMPLEX_ASSIGN (n, rt, it); - COMPLEX_ASSIGN (d, 1, - (rt * it)); + COMPLEX_ASSIGN (d, 1, rt * it); return n / d; } |