Subversion Repositories shark

Rev

Rev 1618 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 pj 1
/*
2
 * cabsf() wrapper for hypotf().
3
 *
4
 * Written by J.T. Conklin, <jtc@wimsey.com>
5
 * Placed into the Public Domain, 1994.
6
 */
7
 
8
#include "math.h"
9
#include "math_private.h"
10
 
11
struct complex {
12
        float x;
13
        float y;
14
};
15
 
16
float
17
cabsf(z)
18
        struct complex z;
19
{
20
        return hypotf(z.x, z.y);
21
}