/*
=============================================================================
        Copyright (C) 1997-1999 NINTENDO Co.,Ltd.
        
        $RCSfile: modff.c,v $
        $Revision: 1.1.1.1 $
        $Date: 2002/10/30 02:07:09 $
=============================================================================
関数名：modff
-----------------------------------------------------------------------------
書式：  #include <math.h>
        float modff(float x, float *intptr);
引数：  x 小数部と整数部に分ける元の数値
        intptr 整数部
戻り値：小数部
説明：  引数 ｘを小数部と整数部に分ける。
-----------------------------------------------------------------------------
*/
float modff(float x, float *intptr)
{

    int a;
    a = x;
    *intptr = (float)a;
    return  x - (float)a;
}