The R Project SVN R

Rev

Rev 89152 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 89152 Rev 90307
Line 1... Line 1...
1 
/* -*- C -*-
 1 
/* -*- C -*-
2 
 *  Mathlib : A C Library of Special Functions
 2 
 *  Mathlib : A C Library of Special Functions
3 
 *  Copyright (C) 1998-2025  The R Core Team
 3 
 *  Copyright (C) 1998-2026  The R Core Team
4 
 *  Copyright (C) 2004       The R Foundation
 4 
 *  Copyright (C) 2004       The R Foundation
5 
 *
 5 
 *
6 
 *  This program is free software; you can redistribute it and/or modify
 6 
 *  This program is free software; you can redistribute it and/or modify
7 
 *  it under the terms of the GNU Lesser General Public License as published by
 7 
 *  it under the terms of the GNU Lesser General Public License as published by
8 
 *  the Free Software Foundation; either version 2.1 of the License, or
 8 
 *  the Free Software Foundation; either version 2.1 of the License, or
Line 187... Line 187...
187 
#endif
 187 
#endif
188 
 
 188 
 
189 
 
 189 
 
190 
#ifdef MATHLIB_STANDALONE
 190 
#ifdef MATHLIB_STANDALONE
191 
# ifndef R_EXT_BOOLEAN_H_
 191 
# ifndef R_EXT_BOOLEAN_H_
192 
/* "copy-paste" R_ext/Boolean.h if not already included:
192 
/* "copy-paste" R_ext/Boolean.h if not already included:
193 
   This is standalone, so we do not worry about the size
 193 
   This is standalone, so we do not worry about the size
194 
*/
 194 
*/
195 
 #define R_EXT_BOOLEAN_H_
 195 
 #define R_EXT_BOOLEAN_H_
196 
 #undef FALSE
 196 
 #undef FALSE
197 
 #undef TRUE
 197 
 #undef TRUE
Line 547... Line 547...
547 
# endif
 547 
# endif
548 
#elif defined(RcppCommon_h) || defined(Rcpp_Rmath_h) || defined(__cplusplus)
 548 
#elif defined(RcppCommon_h) || defined(Rcpp_Rmath_h) || defined(__cplusplus)
549 
    // Rcpp revdeps may also need this declaration to exist for now
 549 
    // Rcpp revdeps may also need this declaration to exist for now
550 
    double rnbeta(double, double, double);
 550 
    double rnbeta(double, double, double);
551 
# endif
 551 
# endif
552
552 
 
553 
    /* Non-central F Distribution */
 553 
    /* Non-central F Distribution */
554 
 
 554 
 
555 
double  dnf(double, double, double, double, int);
 555 
double  dnf(double, double, double, double, int);
556 
double	pnf(double, double, double, double, int, int);
 556 
double	pnf(double, double, double, double, int, int);
557 
double	qnf(double, double, double, double, int, int);
 557 
double	qnf(double, double, double, double, int, int);
Line 812... Line 812...
812 
#   define R_EXTERN extern
 812 
#   define R_EXTERN extern
813 
#  endif
 813 
#  endif
814 
R_EXTERN double NA_REAL;
 814 
R_EXTERN double NA_REAL;
815 
R_EXTERN double R_PosInf;
 815 
R_EXTERN double R_PosInf;
816 
R_EXTERN double R_NegInf;
 816 
R_EXTERN double R_NegInf;
- 
 
 817 
// really, these are named `enumtype`s in R_ext/Random.h:
817 
R_EXTERN int N01_kind;
 818 
R_EXTERN int N01_kind;
- 
 
 819 
R_EXTERN int R_Binom_kind;
818 
#  undef R_EXTERN
 820 
#  undef R_EXTERN
819 
#else
 821 
#else
820 
extern int N01_kind;
 822 
extern int N01_kind;
- 
 
 823 
extern int R_Binom_kind;
821 
# endif
 824 
# endif
822 
 
 825 
 
823 
#endif /* MATHLIB_STANDALONE and not PRIVATE_H */
 826 
#endif /* MATHLIB_STANDALONE and not PRIVATE_H */
824 
 
 827 
 
825 
#ifdef  __cplusplus
 828 
#ifdef  __cplusplus