diff options
Diffstat (limited to 'contrib/libf2c/libF77/d_lg10.c')
| -rw-r--r-- | contrib/libf2c/libF77/d_lg10.c | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/contrib/libf2c/libF77/d_lg10.c b/contrib/libf2c/libF77/d_lg10.c new file mode 100644 index 0000000..d0f86e5 --- /dev/null +++ b/contrib/libf2c/libF77/d_lg10.c @@ -0,0 +1,11 @@ +#include "f2c.h" + +#define log10e 0.43429448190325182765 + +#undef abs +#include <math.h> +double +d_lg10 (doublereal * x) +{ + return (log10e * log (*x)); +} |
