URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 816 |
Rev 829 |
/*
|
/*
|
* cabs() wrapper for hypot().
|
* cabs() wrapper for hypot().
|
*
|
*
|
* Written by J.T. Conklin, <jtc@wimsey.com>
|
* Written by J.T. Conklin, <jtc@wimsey.com>
|
* Placed into the Public Domain, 1994.
|
* Placed into the Public Domain, 1994.
|
*/
|
*/
|
|
|
#include "fdlibm.h"
|
#include "fdlibm.h"
|
|
|
struct complex {
|
struct complex {
|
double x;
|
double x;
|
double y;
|
double y;
|
};
|
};
|
|
|
double
|
double
|
cabs(z)
|
cabs(z)
|
struct complex z;
|
struct complex z;
|
{
|
{
|
return hypot(z.x, z.y);
|
return hypot(z.x, z.y);
|
}
|
}
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.