summaryrefslogtreecommitdiff
path: root/gnu/lib/libf2c/libF77/d_imag.c
blob: 793a3f9c40592ae6d6130bd972642f0864089b2d (plain)
1
2
3
4
5
6
7
8
9
10
#include "f2c.h"

#ifdef KR_headers
double d_imag(z) doublecomplex *z;
#else
double d_imag(doublecomplex *z)
#endif
{
return(z->i);
}