d_imag.c

来自「操作系统SunOS 4.1.3版本的源码」· C语言 代码 · 共 14 行

#ifndef lint
 static	char sccsid[] = "@(#)d_imag.c 1.1 92/07/30 SMI"; /* from UCB 1.1" */
#endif
/*
 */

#include "complex.h"

double d_imag(z)
dcomplex *z;
{
return(z->dimag);
}