[Rd] precision when calling a C function; presence of Fortran call

Benjamin Tyner btyner at stat.purdue.edu
Tue Dec 19 22:16:49 CET 2006


Thanks; I'm on 32-bit linux, but it's good to know the behavior on 
Windows. Do you know a way to force "floor" to use this reduced precision?

Ben

Duncan Murdoch wrote:
> On Windows, it's fairly common for runtime libraries to switch the 
> precision from 80 bit to 64 bit.  R on Windows tries to guard against 
> this, and on your test package, I get
>
> when f computed by R, C says 40 by itself
> when f computed by R, C says 40, Fortran says 40
> when f computed by C, C says 40 by itself
> when f computed by C, C says 40, Fortran says 40
>
> It's possible that the floating point change is happening on your 
> platform, or happened before you even got to this call.
>
> Here's code that works in Windows to detect such a change across a 
> LoadLibrary call:
>
>     rcw = _controlfp(0,0) & ~_MCW_IC;  /* Infinity control is ignored */
>     _clearfp();
>     tdlh = LoadLibrary(path);
>     dllcw = _controlfp(0,0) & ~_MCW_IC;
>
> No idea if _controlfp() exists on your system.
>
> Duncan Murdoch



More information about the R-devel mailing list