;[]-----------------------------------------------------------------[]
;|   ATAN.ASM -- trigonometric function                              |
;[]-----------------------------------------------------------------[]

;
;       C/C++ Run Time Library - Version 1.5
; 
;       Copyright (c) 1991, 1994 by Borland International
;       All Rights Reserved.
; 

        include RULES.ASI
        include _MATH.INC

;       Segments Definitions

Header@

;----------------------------------------------------------------------
;
;Name            atan - trigonometric function
;
;Usage           double atan(double x);
;
;Prototype in    math.h
;
;Description     atan returns the arc tangent  of the input value, which may
;                be any finite value.
;
;Return value    atan returns a value in the range -pi/2 to pi/2.
;
;----------------------------------------------------------------------

Code_Seg@

Func@   atan, _EXPFUNC, _RTLENTRY,        <double x>

        Link@   ebx
        fld     x.double
        f87     ArcTan
        Unlink@ ebx
        Return@

EndFunc@ atan

Code_Ends@

        end
