1*10528Sdlw /* 2*10528Sdlw * "@(#)r_imag.c 1.1" 3*10528Sdlw */ 4*10528Sdlw 5*10528Sdlw #include "complex" 6*10528Sdlw 7*10528Sdlw double r_imag(z) 8*10528Sdlw complex *z; 9*10528Sdlw { 10*10528Sdlw return(z->imag); 11*10528Sdlw } 12