2003-05-15 Eric Christopher <echristo@redhat.com>
[official-gcc.git] / libf2c / libF77 / r_imag.c
blob784abc8434b285d9691eca43d14f613041336ad8
1 #include "f2c.h"
3 double
4 r_imag (complex * z)
6 return (z->i);