OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
gcc/libf2c/libF77/r_imag.c

8 lines
67 B
C
Raw Blame History

#include "f2c.h"
double
r_imag (complex * z)
{
return (z->i);
}
Reference in New Issue View Git Blame Copy Permalink