[BACK]Return to cabs.c CVS log [TXT] [DIR] Up to [MW Coherent from dump] / coherent / b / lib / libm
File:  [MW Coherent from dump] / coherent / b / lib / libm / cabs.c
Revision 1.1.1.1 (vendor branch): download - view: text, annotated - select for diffs
Wed May 29 04:56:35 2019 UTC (7 years ago) by root
Branches: MarkWilliams, MAIN
CVS tags: relic, HEAD
coherent

/*
 * Complex absolute value.
 */
#include <math.h>

#if	EMU87
#include "emumath.h"
#endif

double
cabs(z)
CPX z;
{
	return (hypot(z.z_r, z.z_i));
}
unix.superglobalmegacorp.com

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.