//--------------------------------------------------------------------------------------------------------------- __declspec ( naked ) void nseel_asm_acos(void) { FUNC1_ENTER *__nextBlock = __acos(*parm_a); FUNC_LEAVE }
/* * ACOS - pass by value */ _f_real8 _ACOS( _f_real8 x) { _f_real8 __acos(_f_real8 x); return ( (_f_real8) __acos((_f_real8) x) ); }
/* * ACOS - pass by value for real(kind=4) */ _f_real4 _HACOS(_f_real4 x) { _f_real8 __acos(_f_real8 x); return ((_f_real4) __acos((_f_real8) x)); }