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