source: lmdz_wrf/trunk/WRFV3/external/io_grib1/WGRIB/flt2ieee.c @ 14

#include <stdio.h>
#include <stdlib.h>
#include <math.h>
#include <float.h>
#include "grib.h"

/*
 * convert a float to an ieee single precision number v1.1
 * (big endian)
 *                      Wesley Ebisuzaki
 *
 * bugs: doesn't handle subnormal numbers
 * bugs: assumes length of integer >= 25 bits
 */

int flt2ieee(float x, unsigned char *ieee) {

        int sign, exp;
        unsigned int umant;
        double mant;

        if (x == 0.0) {
                ieee[0] = ieee[1] = ieee[2] = ieee[3] = 0;
                return 0;
        }

        /* sign bit */
        if (x < 0.0) {
                sign = 128;
                x = -x;
        }
        else sign = 0;
        mant = frexp((double) x, &exp);

        /* 2^24 = 16777216 */

        umant = mant * 16777216 + 0.5;
        if (umant >= 16777216) {
            umant = umant / 2;
            exp++;
        }
        /* bit 24 should be a 1 .. not used in ieee format */

        exp = exp - 1 + 127;

        if (exp < 0) {
                /* signed zero */
                ieee[0] = sign;
                ieee[1] = ieee[2] = ieee[3] = 0;
                return 0;
        }
        if (exp > 255) {
                /* signed infinity */
                ieee[0] = sign + 127;
                ieee[1] = 128;
                ieee[2] = ieee[3] = 0;
                return 0;
        }
        /* normal number */

        ieee[0] = sign + (exp >> 1);

        ieee[3] = umant & 255;
        ieee[2] = (umant >> 8) & 255;
        ieee[1] = ((exp & 1) << 7) + ((umant >> 16) & 127);
        return 0;
}