1 #include <R.h>
2 #include <Rmath.h>
3 
F77_SUB(fseedi)4 void F77_SUB(fseedi)(void)
5 {
6    GetRNGstate();
7 }
F77_SUB(fseedo)8 void F77_SUB(fseedo)(void)
9 {
10    PutRNGstate();
11 }
F77_SUB(frexp)12 void F77_SUB(frexp)(double* px, double* pa)
13 {
14         *px = rexp(*pa);
15 }
16