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