The R Project SVN R

Rev

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

Rev 81787 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-7 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 49... Line 49...
49 
 
 49 
 
50 
    default: return 0;
 50 
    default: return 0;
51 
    }
 51 
    }
52 
}
 52 
}
53 
 
 53 
 
54 
int F77_NAME(i1mach)(int *i)
 54 
int F77_SUB(i1mach)(int *i)
55 
{
 55 
{
56 
    return Rf_i1mach(*i);
 56 
    return Rf_i1mach(*i);
57 
}
 57 
}