1 /* 2 * "@(#)c_abs.c 1.1" 3 */ 4 5 #include "complex" 6 7 float c_abs(z) 8 complex *z; 9 { 10 double cabs(); 11 12 return( cabs( z->real, z->imag ) ); 13 } 14