blob: 3bf4bb138be9af8bb3dd136a3c6ec64624e8a382 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
#include "f2c.h"
#ifdef KR_headers
double sinh();
double r_sinh(x) real *x;
#else
#undef abs
#include <math.h>
double r_sinh(real *x)
#endif
{
return( sinh(*x) );
}
|