C++ (Cpp) MATHFUNCの例

コード例 #1

ファイル: nearest_r10.c プロジェクト: ChaosJohn/gcc

GFC_REAL_10
nearest_r10 (GFC_REAL_10 s, GFC_REAL_10 dir)
{
  dir = MATHFUNC(copysign) (MATHFUNC(__builtin_inf) (), dir);
  if (FLT_EVAL_METHOD != 0)
    {
      /* ??? Work around glibc bug on x86.  */
      volatile GFC_REAL_10 r = MATHFUNC(nextafter) (s, dir);
      return r;
    }
  else
    return MATHFUNC(nextafter) (s, dir);
}

コード例 #2

ファイル: spacing_r16.c プロジェクト: 0day-ci/gcc

GFC_REAL_16
spacing_r16 (GFC_REAL_16 s, int p, int emin, GFC_REAL_16 tiny)
{
  int e;
  if (s == 0.)
    return tiny;
  MATHFUNC(frexp) (s, &e);
  e = e - p;
  e = e > emin ? e : emin;
#if (defined(GFC_REAL_16_IS_FLOAT128) || defined(HAVE_LDEXPL))
  return MATHFUNC(ldexp) (1., e);
#else
  return MATHFUNC(scalbn) (1., e);
#endif
}

コード例 #3

ファイル: spacing_r10.c プロジェクト: 0day-ci/gcc

GFC_REAL_10
spacing_r10 (GFC_REAL_10 s, int p, int emin, GFC_REAL_10 tiny)
{
  int e;
  if (s == 0.)
    return tiny;
  MATHFUNC(frexp) (s, &e);
  e = e - p;
  e = e > emin ? e : emin;
#if defined (HAVE_LDEXPL)
  return MATHFUNC(ldexp) (1., e);
#else
  return MATHFUNC(scalbn) (1., e);
#endif
}

コード例 #4

ファイル: rrspacing_r16.c プロジェクト: 0day-ci/gcc

GFC_REAL_16
rrspacing_r16 (GFC_REAL_16 s, int p)
{
  int e;
  GFC_REAL_16 x;
  x = MATHFUNC(fabs) (s);
  if (x == 0.)
    return 0.;
  MATHFUNC(frexp) (s, &e);
#if (defined(GFC_REAL_16_IS_FLOAT128) || defined(HAVE_LDEXPL))
  return MATHFUNC(ldexp) (x, p - e);
#else
  return MATHFUNC(scalbn) (x, p - e);
#endif

}

コード例 #5

ファイル: exponent_r10.c プロジェクト: abumaryam/gcc

GFC_INTEGER_4
exponent_r10 (GFC_REAL_10 s)
{
  int ret;
  MATHFUNC(frexp) (s, &ret);
  return ret;
}

コード例 #6

ファイル: rrspacing_r8.c プロジェクト: AsherBond/MondocosmOS-Dependencies

GFC_REAL_8
rrspacing_r8 (GFC_REAL_8 s, int p)
{
  int e;
  GFC_REAL_8 x;
  x = MATHFUNC(fabs) (s);
  if (x == 0.)
    return 0.;
  MATHFUNC(frexp) (s, &e);
#if defined (HAVE_LDEXP)
  return MATHFUNC(ldexp) (x, p - e);
#else
  return MATHFUNC(scalbn) (x, p - e);
#endif

}

コード例 #7

ファイル: fraction_r16.c プロジェクト: AlexMioMio/gcc

GFC_REAL_16
fraction_r16 (GFC_REAL_16 s)
{
  int dummy_exp;
  return MATHFUNC(frexp) (s, &dummy_exp);
}

コード例 #8

ファイル: fraction_r10.c プロジェクト: 0day-ci/gcc

GFC_REAL_10
fraction_r10 (GFC_REAL_10 s)
{
  int dummy_exp;
  return MATHFUNC(frexp) (s, &dummy_exp);
}

コード例 #9

ファイル: set_exponent_r16.c プロジェクト: abumaryam/gcc

GFC_REAL_16
set_exponent_r16 (GFC_REAL_16 s, GFC_INTEGER_4 i)
{
  int dummy_exp;
  return MATHFUNC(scalbn) (MATHFUNC(frexp) (s, &dummy_exp), i);
}

コード例 #10

ファイル: fraction_r8.c プロジェクト: AlexMioMio/gcc

GFC_REAL_8
fraction_r8 (GFC_REAL_8 s)
{
  int dummy_exp;
  return MATHFUNC(frexp) (s, &dummy_exp);
}

コード例 #11

ファイル: fraction_r4.c プロジェクト: abumaryam/gcc

GFC_REAL_4
fraction_r4 (GFC_REAL_4 s)
{
  int dummy_exp;
  return MATHFUNC(frexp) (s, &dummy_exp);
}