aboutsummaryrefslogtreecommitdiff
path: root/libf2c/libF77/d_imag.c
blob: cc937644b75130757145f58c6e79e808bc43d63b (plain)
1
2
3
4
5
6
7
#include "f2c.h"

double
d_imag (doublecomplex * z)
{
  return (z->i);
}