diff options
| author | burley <burley@138bc75d-0d04-0410-961f-82ee72b054a4> | 1999-05-03 08:35:22 +0000 |
|---|---|---|
| committer | burley <burley@138bc75d-0d04-0410-961f-82ee72b054a4> | 1999-05-03 08:35:22 +0000 |
| commit | 05309e0c9d5f4d23b303deba0c19b00e138834c8 (patch) | |
| tree | ea41d96ced81202582163d875e6b33b81b65d173 /libf2c/libF77/c_exp.c | |
| parent | fb206187b4d24988a1d9efa2b1938f09106e1f50 (diff) | |
| download | gcc-05309e0c9d5f4d23b303deba0c19b00e138834c8.tar.gz | |
Update to Netlib version of 1999-05-03
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@26740 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libf2c/libF77/c_exp.c')
| -rw-r--r-- | libf2c/libF77/c_exp.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/libf2c/libF77/c_exp.c b/libf2c/libF77/c_exp.c index 8252c7f7012..52d0d2ffc95 100644 --- a/libf2c/libF77/c_exp.c +++ b/libf2c/libF77/c_exp.c @@ -11,9 +11,9 @@ extern double exp(), cos(), sin(); void c_exp(complex *r, complex *z) #endif { -double expx; + double expx, zi = z->i; -expx = exp(z->r); -r->r = expx * cos(z->i); -r->i = expx * sin(z->i); -} + expx = exp(z->r); + r->r = expx * cos(zi); + r->i = expx * sin(zi); + } |