110442Sdlw /* 2*22825Skre * Copyright (c) 1980 Regents of the University of California. 3*22825Skre * All rights reserved. The Berkeley software License Agreement 4*22825Skre * specifies the terms and conditions for redistribution. 5*22825Skre * 6*22825Skre * @(#)c_cos.c 5.1 06/07/85 710442Sdlw */ 810442Sdlw 910442Sdlw #include "complex" 1010442Sdlw 1110442Sdlw c_cos(r, z) 1210442Sdlw complex *r, *z; 1310442Sdlw { 1410442Sdlw double sin(), cos(), sinh(), cosh(); 1510442Sdlw 1610442Sdlw r->real = cos(z->real) * cosh(z->imag); 1710442Sdlw r->imag = - sin(z->real) * sinh(z->imag); 1810442Sdlw } 19