__declspec ( naked ) void nseel_asm_atan(void) { FUNC1_ENTER *__nextBlock = __atan(*parm_a); FUNC_LEAVE }
/* * ATAN - pass by value for real(kind=4) */ _f_real4 _HATAN(_f_real4 x) { _f_real8 __atan(_f_real8 x); return ((_f_real4) __atan((_f_real8) x)); }
Err mathlib_atan(UInt16 refnum, double x, double *result) { #pragma unused(refnum) *result = __atan(x); return mlErrNone; }