lib/msun/src/w_cabs.c

   1 /*
   2  * cabs() wrapper for hypot().
   3  *
   4  * Written by J.T. Conklin, <jtc@wimsey.com>
   5  * Placed into the Public Domain, 1994.
   6  */
   7
   8 #include <math.h>
   9
  10 struct complex {
  11         double x;
  12         double y;
  13 };
  14
  15 double
  16 cabs(z)
  17         struct complex z;
  18 {
  19         return hypot(z.x, z.y);
  20 }
  21
  22 double
  23 z_abs(z)
  24         struct complex *z;
  25 {
  26         return hypot(z->x, z->y);
  27 }