Doxygen Source Code Documentation

Main Page Alphabetical List Data Structures File List Data Fields Globals Search

zzlgin.c

00001 /* zzlgin.f -- translated by f2c (version 19961017).
00002    You must link the resulting object file with the libraries:
00003         -lf2c -lm   (in that order)
00004 */
00005 
00006 #include "f2c.h"
00007 
00008 /* Table of constant values */
00009 
00010 static real c_b2 = 10.f;
00011 
00012 
00013 
00014 
00015 /* Subroutine */ int zzlgin_(real *xt, real *pwrten, integer *nlog)
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_ */
00044

AFNI/NIfTI Server

Sections

Personal tools

Navigation

Doxygen Source Code Documentation

zzlgin.c