The R Project SVN R

Rev

Rev 8431 | Rev 36986 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 8431 Rev 10973
Line 49... Line 49...
49 
 
 49 
 
50 
    default: return 0;
 50 
    default: return 0;
51 
    }
 51 
    }
52 
}
 52 
}
53 
 
 53 
 
54 
int F77_SYMBOL(i1mach)(int *i)
 54 
int F77_NAME(i1mach)(int *i)
55 
{
 55 
{
56 
    return Rf_i1mach(*i);
 56 
    return Rf_i1mach(*i);
57 
}
 57 
}