The R Project SVN R

Rev

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

Rev 777 Rev 829
Line 93... Line 93...
93 
#endif
 93 
#endif
94 
 
 94 
 
95 
#define	rround	fround
 95 
#define	rround	fround
96 
#define	prec	fprec
 96 
#define	prec	fprec
97 
#define	trunc	ftrunc
 97 
#define	trunc	ftrunc
- 
 
 98 
/* NO!  fsign(.) has 2 arguments;  sign(.) has 1..
98 
#define	sign	fsign
 99 
 #define	sign	fsign
- 
 
 100 
*/
99 
 
 101 
 
100 
	/* Machine Characteristics */
 102 
	/* Machine Characteristics */
101 
 
 103 
 
102 
double	d1mach(int);
 104 
double	d1mach(int);
103 
double	d1mach_(int*);
 105 
double	d1mach_(int*);
Line 106... Line 108...
106 
 
 108 
 
107 
	/* General Support Functions */
 109 
	/* General Support Functions */
108 
 
 110 
 
109 
int	imax2(int, int);
 111 
int	imax2(int, int);
110 
int	imin2(int, int);
 112 
int	imin2(int, int);
- 
 
 113 
double	sign(double);
111 
double	fmax2(double, double);
 114 
double	fmax2(double, double);
112 
double	fmin2(double, double);
 115 
double	fmin2(double, double);
113 
double	fmod(double, double);
 116 
double	fmod(double, double);
114 
double	fprec(double, double);
 117 
double	fprec(double, double);
115 
double	fround(double, double);
 118 
double	fround(double, double);