110549Sdlw /* 2*22993Skre * Copyright (c) 1980 Regents of the University of California. 3*22993Skre * All rights reserved. The Berkeley software License Agreement 4*22993Skre * specifies the terms and conditions for redistribution. 5*22993Skre * 6*22993Skre * @(#)z_cos.c 5.1 06/07/85 710549Sdlw */ 810549Sdlw 910549Sdlw #include "complex" 1010549Sdlw 1110549Sdlw z_cos(r, z) 1210549Sdlw dcomplex *r, *z; 1310549Sdlw { 1410549Sdlw double sin(), cos(), sinh(), cosh(); 1510549Sdlw 1610549Sdlw r->dreal = cos(z->dreal) * cosh(z->dimag); 1710549Sdlw r->dimag = - sin(z->dreal) * sinh(z->dimag); 1810549Sdlw } 19