The R Project SVN R

Rev

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

Rev 77685 Rev 87903
Line 1... Line 1...
1 
/*
 1 
/*
2 
 *  Mathlib : A C Library of Special Functions
 2 
 *  Mathlib : A C Library of Special Functions
3 
 *  Copyright (C) 1998 Ross Ihaka
 3 
 *  Copyright (C) 1998 Ross Ihaka
4 
 *  Copyright (C) 1999-2000  The R Core Team
 4 
 *  Copyright (C) 1999-2025  The R Core Team
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 General Public License as published by
 7 
 *  it under the terms of the GNU General Public License as published by
8 
 *  the Free Software Foundation; either version 2 of the License, or
 8 
 *  the Free Software Foundation; either version 2 of the License, or
9 
 *  (at your option) any later version.
 9 
 *  (at your option) any later version.
Line 34... Line 34...
34 
 *    by W. Fullerton of Los Alamos Scientific Laboratory.
 34 
 *    by W. Fullerton of Los Alamos Scientific Laboratory.
35 
 */
 35 
 */
36 
 
 36 
 
37 
#include "nmath.h"
 37 
#include "nmath.h"
38 
 
 38 
 
39 
void attribute_hidden gammalims(double *xmin, double *xmax)
 39 
attribute_hidden void gammalims(double *xmin, double *xmax)
40 
{
 40 
{
41 
/* FIXME: Even better: If IEEE, #define these in nmath.h
 41 
/* FIXME: Even better: If IEEE, #define these in nmath.h
42 
	  and don't call gammalims() at all
 42 
	  and don't call gammalims() at all
43 
*/
 43 
*/
44 
#ifdef IEEE_754
 44 
#ifdef IEEE_754