The R Project SVN R

(root)/trunk/src/nmath/dexp.c – Rev 8074 → 8431



 *  DESCRIPTION
 *
 *	The density of the exponential distribution.
 */
 
#include "nmath.h"
#include "dpq.h"
 
double dexp(double x, double scale, int give_log)
{
#ifdef IEEE_754

Rev 8074	Rev 8431
Line 20...	Line 20...
20	`* DESCRIPTION`	20	`* DESCRIPTION`
21	`*`	21	`*`
22	`* The density of the exponential distribution.`	22	`* The density of the exponential distribution.`
23	`*/`	23	`*/`
24		24
25	`#include "Mathlib.h"`	25	`#include "nmath.h"`
26	`#include "dpq.h"`	26	`#include "dpq.h"`
27		27
28	`double dexp(double x, double scale, int give_log)`	28	`double dexp(double x, double scale, int give_log)`
29	`{`	29	`{`
30	`#ifdef IEEE_754`	30	`#ifdef IEEE_754`