13a8617a8SJordan K. Hubbard /* 23a8617a8SJordan K. Hubbard * cabs() wrapper for hypot(). 33a8617a8SJordan K. Hubbard * 43a8617a8SJordan K. Hubbard * Written by J.T. Conklin, <jtc@wimsey.com> 53a8617a8SJordan K. Hubbard * Placed into the Public Domain, 1994. 63a8617a8SJordan K. Hubbard */ 73a8617a8SJordan K. Hubbard 8d28011e5SRuslan Ermilov #include <complex.h> 9a641fc76SDavid Schultz #include <float.h> 10d28011e5SRuslan Ermilov #include <math.h> 113a8617a8SJordan K. Hubbard 123a8617a8SJordan K. Hubbard double cabs(double complex z)13a641fc76SDavid Schultzcabs(double complex z) 143a8617a8SJordan K. Hubbard { 15d28011e5SRuslan Ermilov return hypot(creal(z), cimag(z)); 163a8617a8SJordan K. Hubbard } 17a641fc76SDavid Schultz 18a641fc76SDavid Schultz #if LDBL_MANT_DIG == 53 19a641fc76SDavid Schultz __weak_reference(cabs, cabsl); 20a641fc76SDavid Schultz #endif 21