diff options
| author |  Benoit Steiner <benoit.steiner.goog@gmail.com> | 2015-02-06 05:25:03 -0800 |
|---|---|---|
| committer | Benoit Steiner <benoit.steiner.goog@gmail.com> | 2015-02-06 05:25:03 -0800 |
| commit | c739102ef9a52fcb194dcc77f785aa55879987e4 (patch) | |
| tree | 22d19d1df4cb20baea532fa1ce13208329ff53e3 /blas/f2c/r_cnjg.c | |
| parent | 2559fa9b0f20ea138cfb019d441ad1757221568d (diff) | |
| parent | a8f2c6eec788c5cccc6beb9b5837544ea98a7154 (diff) | |
Pulled the latest changes from the trunk
Diffstat (limited to 'blas/f2c/r_cnjg.c')
| -rw-r--r-- | blas/f2c/r_cnjg.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/blas/f2c/r_cnjg.c b/blas/f2c/r_cnjg.c new file mode 100644 index 000000000..c08182f88 --- /dev/null +++ b/blas/f2c/r_cnjg.c @@ -0,0 +1,6 @@ +#include "datatypes.h" + +void r_cnjg(complex *r, complex *z) { + r->r = z->r; + r->i = -(z->i); +} |