The R Project SVN R

Rev

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

Rev 68947 Rev 87109
Line 1... Line 1...
1 
/*
 1 
/*
2 
 *  Mathlib - A Mathematical Function Library
 2 
 *  Mathlib - A Mathematical Function Library
3 
 *  Copyright (C) 1998  Ross Ihaka
 3 
 *  Copyright (C) 1998  Ross Ihaka
4 
 *  Copyright (C) 2000-2014 The R Core Team
 4 
 *  Copyright (C) 2000-2024 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 51... Line 51...
51 
 
 51 
 
52 
#ifdef __cplusplus
 52 
#ifdef __cplusplus
53 
extern "C"
53 
extern "C"
54 
#endif
 54 
#endif
55 
 
 55 
 
56 
double F77_NAME(d1mach)(int *i)
 56 
double F77_SUB(d1mach)(int *i)
57 
{
 57 
{
58 
    return Rf_d1mach(*i);
 58 
    return Rf_d1mach(*i);
59 
}
 59 
}