From dcd5c11fb4654a61a1baaa13b62d41898aac18c9 Mon Sep 17 00:00:00 2001 From: David Wasley Date: Fri, 21 Jan 1983 19:19:53 -0800 Subject: [PATCH 1/1] date and time created 83/01/21 11:19:53 by dlw SCCS-vsn: usr.bin/f77/libF77/z_abs.c 1.1 --- usr/src/usr.bin/f77/libF77/z_abs.c | 13 +++++++++++++ 1 file changed, 13 insertions(+) create mode 100644 usr/src/usr.bin/f77/libF77/z_abs.c diff --git a/usr/src/usr.bin/f77/libF77/z_abs.c b/usr/src/usr.bin/f77/libF77/z_abs.c new file mode 100644 index 0000000000..246f24189f --- /dev/null +++ b/usr/src/usr.bin/f77/libF77/z_abs.c @@ -0,0 +1,13 @@ +/* + * "@(#)z_abs.c 1.1" + */ + +#include "complex" + +double z_abs(z) +dcomplex *z; +{ +double cabs(); + +return( cabs( z->dreal, z->dimag ) ); +} -- 2.20.1