| 1234567891011121314151617181920 |
- #include "f2c.h"
- #ifdef KR_headers
- double sqrt();
- double r_sqrt(x) real *x;
- #else
- #undef abs
- #include "math.h"
- #ifdef __cplusplus
- extern "C" {
- #endif
- double r_sqrt(real *x)
- #endif
- {
- return( sqrt(*x) );
- }
- #ifdef __cplusplus
- }
- #endif
|
