1*47940Sbostic /*- 2*47940Sbostic * Copyright (c) 1980 The Regents of the University of California. 3*47940Sbostic * All rights reserved. 422856Skre * 5*47940Sbostic * %sccs.include.proprietary.c% 610459Sdlw */ 710459Sdlw 8*47940Sbostic #ifndef lint 9*47940Sbostic static char sccsid[] = "@(#)d_imag.c 5.2 (Berkeley) 04/12/91"; 10*47940Sbostic #endif /* not lint */ 11*47940Sbostic 1210459Sdlw #include "complex" 1310459Sdlw d_imag(z)1410459Sdlwdouble d_imag(z) 1510459Sdlw dcomplex *z; 1610459Sdlw { 1710459Sdlw return(z->dimag); 1810459Sdlw } 19