110548Sdlw /* 2*22992Skre * Copyright (c) 1980 Regents of the University of California. 3*22992Skre * All rights reserved. The Berkeley software License Agreement 4*22992Skre * specifies the terms and conditions for redistribution. 5*22992Skre * 6*22992Skre * @(#)z_abs.c 5.1 06/07/85 710548Sdlw */ 810548Sdlw 910548Sdlw #include "complex" 1010548Sdlw z_abs(z)1110548Sdlwdouble z_abs(z) 1210548Sdlw dcomplex *z; 1310548Sdlw { 1410548Sdlw double cabs(); 1510548Sdlw 1610548Sdlw return( cabs( z->dreal, z->dimag ) ); 1710548Sdlw } 18