/********************************************************************** * Copyright (c) Digital Equipment Corporation 1984, 1985, 1986. * * All Rights Reserved. * * Reference "/usr/src/COPYRIGHT" for applicable restrictions. * **********************************************************************/ /* * SCCSID: @(#)c_cos.c 3.0 4/22/86 */ #include "complex" c_cos(r, z) complex *r, *z; { double sin(), cos(), sinh(), cosh(); r->real = cos(z->real) * cosh(z->imag); r->imag = - sin(z->real) * sinh(z->imag); }