Back to index

glibc  2.9
Functions
s_catanl.c File Reference
#include <complex.h>
#include <math.h>
#include "math_private.h"
This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

Functions

__complex__ long double __catanl (__complex__ long double x)

Function Documentation

__complex__ long double __catanl ( __complex__ long double  x)

Definition at line 28 of file s_catanl.c.

{
  __complex__ long double res;
  int rcls = fpclassify (__real__ x);
  int icls = fpclassify (__imag__ x);

  if (rcls <= FP_INFINITE || icls <= FP_INFINITE)
    {
      if (rcls == FP_INFINITE)
       {
         __real__ res = __copysignl (M_PI_2l, __real__ x);
         __imag__ res = __copysignl (0.0, __imag__ x);
       }
      else if (icls == FP_INFINITE)
       {
         if (rcls >= FP_ZERO)
           __real__ res = __copysignl (M_PI_2l, __real__ x);
         else
           __real__ res = __nanl ("");
         __imag__ res = __copysignl (0.0, __imag__ x);
       }
      else if (icls == FP_ZERO || icls == FP_INFINITE)
       {
         __real__ res = __nanl ("");
         __imag__ res = __copysignl (0.0, __imag__ x);
       }
      else
       {
         __real__ res = __nanl ("");
         __imag__ res = __nanl ("");
       }
    }
  else if (rcls == FP_ZERO && icls == FP_ZERO)
    {
      res = x;
    }
  else
    {
      long double r2, num, den;

      r2 = __real__ x * __real__ x;

      den = 1 - r2 - __imag__ x * __imag__ x;

      __real__ res = 0.5 * __ieee754_atan2l (2.0 * __real__ x, den);

      num = __imag__ x + 1.0;
      num = r2 + num * num;

      den = __imag__ x - 1.0;
      den = r2 + den * den;

      __imag__ res = 0.25 * __ieee754_logl (num / den);
    }

  return res;
}

Here is the call graph for this function: