text: /*
   * cabs() wrapper for hypot().
   *
   * Written by J.T. Conklin, <jtc@wimsey.com>
   * Placed into the Public Domain, 1994.
   *
   * Modified by Steven G. Kargl for the long double type.
   */
  
  #include <sys/cdefs.h>
  __FBSDID("$FreeBSD$");
  
  #include <complex.h>
  #include <math.h>
  
  long double
  cabsl(long double complex z)
  {
  	return hypotl(creall(z), cimagl(z));
  }
  