/*
=============================================================================
        Copyright (C) 1997-1999 NINTENDO Co.,Ltd.
        
        $RCSfile: atan.c,v $
        $Revision: 1.1.1.1 $
        $Date: 2002/10/30 02:07:09 $
=============================================================================
関数名：atan
-----------------------------------------------------------------------------
書式：  #include <math.h>
        double atan(double x);
引数：  x (数値に制限なし）
戻り値：アークタンジェント（−π／２〜π／２の範囲）
説明：  引数 ｘ のアークタンジェントを求める。
-----------------------------------------------------------------------------
*/
#include "math.h"


double atan(double x)
{
    return atan2(x,1.0);
}