Sign in
gnu
/
gcc
/
5aff8e796871e8cf53bded3a439b4fcec810a6f4
/
.
/
gcc
/
f
/
runtime
/
libF77
/
pow_dd.c
blob: d0dd0ff274473b69b6af2bc186558e178f9d9400 [
file
] [
log
] [
blame
]
#include
"f2c.h"
#ifdef
KR_headers
double
pow
();
double
pow_dd
(
ap
,
bp
)
doublereal
*
ap
,
*
bp
;
#else
#undef
abs
#include
<math.h>
double
pow_dd
(
doublereal
*
ap
,
doublereal
*
bp
)
#endif
{
return
(
pow
(*
ap
,
*
bp
)
);
}