Doxygen Source Code Documentation
zzlgin.c File Reference
#include "f2c.h"Go to the source code of this file.
Functions | |
| int | zzlgin_ (real *xt, real *pwrten, integer *nlog) |
Variables | |
| real | c_b2 = 10.f |
Function Documentation
|
||||||||||||||||
|
Definition at line 15 of file zzlgin.c. References c_b2, max, pow_ri(), and r_lg10(). Referenced by zzaxxx_(), and zzaxyy_().
00016 {
00017 /* System generated locals */
00018 integer i__1;
00019
00020 /* Builtin functions */
00021 double r_lg10(real *), pow_ri(real *, integer *);
00022
00023 /* Local variables */
00024 static integer nl;
00025 static real xl;
00026
00027
00028 /* Return PWRTEN and NTEN such that */
00029
00030 /* PWRTEN .LE. XT .LT. 10*PWRTEN AND PWRTEN = 10**NLOG */
00031 /* +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
00032 */
00033 xl = r_lg10(xt) + 1e-5f;
00034 /* Computing MAX */
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 } /* zzlgin_ */
|
Variable Documentation
|
|
Definition at line 10 of file zzlgin.c. Referenced by zzlgin_(). |
