110553Sdlw /* 2*23000Skre * Copyright (c) 1980 Regents of the University of California. 3*23000Skre * All rights reserved. The Berkeley software License Agreement 4*23000Skre * specifies the terms and conditions for redistribution. 5*23000Skre * 6*23000Skre * @(#)z_sin.c 5.1 06/07/85 710553Sdlw */ 810553Sdlw 910553Sdlw #include "complex" 1010553Sdlw 1110553Sdlw z_sin(r, z) 1210553Sdlw dcomplex *r, *z; 1310553Sdlw { 1410553Sdlw double sin(), cos(), sinh(), cosh(); 1510553Sdlw 1610553Sdlw r->dreal = sin(z->dreal) * cosh(z->dimag); 1710553Sdlw r->dimag = cos(z->dreal) * sinh(z->dimag); 1810553Sdlw } 19