dep / spacecraft / src / matrix / camlapack

d_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 d_lg10(x) doublereal *x;
00008 #else
00009 #undef abs
00010 #include "math.h"
00011 double d_lg10(doublereal *x)
00012 #endif
00013 {
00014 return( log10e * log(*x) );
00015 }

Generated on Wed Sep 5 12:54:18 2007 for DSACSS Operational Code by

1.3.9.1