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