Subversion Repositories Kolibri OS

Rev

Blame | Last modification | View Log | Download | RSS feed

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