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