Doxygen Source Code Documentation
Main Page Alphabetical List Data Structures File List Data Fields Globals Search
zzlgin.c
Go to the documentation of this file.00001
00002
00003
00004
00005
00006 #include "f2c.h"
00007
00008
00009
00010 static real c_b2 = 10.f;
00011
00012
00013
00014
00015 int zzlgin_(real *xt, real *pwrten, integer *nlog)
00016 {
00017
00018 integer i__1;
00019
00020
00021 double r_lg10(real *), pow_ri(real *, integer *);
00022
00023
00024 static integer nl;
00025 static real xl;
00026
00027
00028
00029
00030
00031
00032
00033 xl = r_lg10(xt) + 1e-5f;
00034
00035 i__1 = (integer) xl;
00036 nl = max(i__1,-36);
00037 if (xl < 0.f) {
00038 --nl;
00039 }
00040 *pwrten = pow_ri(&c_b2, &nl);
00041 *nlog = nl;
00042 return 0;
00043 }
00044