1*10551Sdlw /* 2*10551Sdlw * "@(#)z_exp.c 1.1" 3*10551Sdlw */ 4*10551Sdlw 5*10551Sdlw #include "complex" 6*10551Sdlw 7*10551Sdlw z_exp(r, z) 8*10551Sdlw dcomplex *r, *z; 9*10551Sdlw { 10*10551Sdlw double expx; 11*10551Sdlw double exp(), cos(), sin(); 12*10551Sdlw 13*10551Sdlw expx = exp(z->dreal); 14*10551Sdlw r->dreal = expx * cos(z->dimag); 15*10551Sdlw r->dimag = expx * sin(z->dimag); 16*10551Sdlw } 17