* config/sparc/sparc.c: Update copyright year.
[official-gcc.git] / libf2c / libF77 / z_cos.c
blob0f4cd71bd5a411b88a5b671d98139af234ac2b78
1 #include "f2c.h"
3 #undef abs
4 #include "math.h"
5 void
6 z_cos (doublecomplex * r, doublecomplex * z)
8 double zi = z->i, zr = z->r;
9 r->r = cos (zr) * cosh (zi);
10 r->i = -sin (zr) * sinh (zi);