12345678910111213141516171819 |
- #include "f2c.h"
- #ifdef KR_headers
- double pow();
- double pow_dd(ap, bp) doublereal *ap, *bp;
- #else
- #undef abs
- #include "math.h"
- #ifdef __cplusplus
- extern "C" {
- #endif
- double pow_dd(doublereal *ap, doublereal *bp)
- #endif
- {
- return(pow(*ap, *bp) );
- }
- #ifdef __cplusplus
- }
- #endif
|