Resolve duplicate SccsId

[unix-history] / usr / src / usr.bin / f77 / libF77 / r_imag.c

/*
*      "@(#)r_imag.c   1.1"
*/

#include "complex"

double r_imag(z)
complex *z;
{
return(z->imag);
}