z_abs.c

操作系统SunOS 4.1.3版本的源码

#ifndef lint
 static	char sccsid[] = "@(#)z_abs.c 1.1 92/07/30 SMI"; /* from UCB 1.1" */
#endif
/*
 */

#include "complex.h"

double z_abs(z)
dcomplex *z;
{
double hypot();

return( hypot( z->dreal, z->dimag ) );
}