110441Sdlw /* 2*22823Skre * Copyright (c) 1980 Regents of the University of California. 3*22823Skre * All rights reserved. The Berkeley software License Agreement 4*22823Skre * specifies the terms and conditions for redistribution. 5*22823Skre * 6*22823Skre * @(#)c_abs.c 5.1 06/07/85 710441Sdlw */ 810441Sdlw 910441Sdlw #include "complex" 1010441Sdlw 1110441Sdlw float c_abs(z) 1210441Sdlw complex *z; 1310441Sdlw { 1410441Sdlw double cabs(); 1510441Sdlw 1610441Sdlw return( cabs( z->real, z->imag ) ); 1710441Sdlw } 18