r_lg10.c
Go to the documentation of this file.
00001 #include "f2c.h"
00002 
00003 #define log10e 0.43429448190325182765
00004 
00005 #ifdef KR_headers
00006 double log();
00007 double r_lg10(x) real *x;
00008 #else
00009 #undef abs
00010 #include "math.h"
00011 #ifdef __cplusplus
00012 extern "C" {
00013 #endif
00014 double r_lg10(real *x)
00015 #endif
00016 {
00017 return( log10e * log(*x) );
00018 }
00019 #ifdef __cplusplus
00020 }
00021 #endif


swiftnav
Author(s):
autogenerated on Sat Jun 8 2019 18:55:56