110446Sdlw /* 2*22833Skre * Copyright (c) 1980 Regents of the University of California. 3*22833Skre * All rights reserved. The Berkeley software License Agreement 4*22833Skre * specifies the terms and conditions for redistribution. 5*22833Skre * 6*22833Skre * @(#)c_sin.c 5.1 06/07/85 710446Sdlw */ 810446Sdlw 910446Sdlw #include "complex" 1010446Sdlw 1110446Sdlw c_sin(r, z) 1210446Sdlw complex *r, *z; 1310446Sdlw { 1410446Sdlw double sin(), cos(), sinh(), cosh(); 1510446Sdlw 1610446Sdlw r->real = sin(z->real) * cosh(z->imag); 1710446Sdlw r->imag = cos(z->real) * sinh(z->imag); 1810446Sdlw } 19