diff options
| author | siddhu8990 | 2017-06-20 15:26:40 +0530 |
|---|---|---|
| committer | siddhu8990 | 2017-06-20 15:26:40 +0530 |
| commit | fad32de9c3df04a8fb032f9c604c79c89d062154 (patch) | |
| tree | af5ae0b9047e2591b03215033cb209565e943fc7 /thirdparty/includes/GSL/gsl/gsl_vector_complex.h | |
| parent | 0aaa69ac8c8cfc262305a0c93219c72971dc78cd (diff) | |
| download | scilab2c-fad32de9c3df04a8fb032f9c604c79c89d062154.tar.gz scilab2c-fad32de9c3df04a8fb032f9c604c79c89d062154.tar.bz2 scilab2c-fad32de9c3df04a8fb032f9c604c79c89d062154.zip | |
Bug fixed for GSL library
Diffstat (limited to 'thirdparty/includes/GSL/gsl/gsl_vector_complex.h')
| -rw-r--r-- | thirdparty/includes/GSL/gsl/gsl_vector_complex.h | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/thirdparty/includes/GSL/gsl/gsl_vector_complex.h b/thirdparty/includes/GSL/gsl/gsl_vector_complex.h new file mode 100644 index 00000000..e56d6a61 --- /dev/null +++ b/thirdparty/includes/GSL/gsl/gsl_vector_complex.h @@ -0,0 +1,17 @@ +#ifndef __GSL_VECTOR_COMPLEX_H__ +#define __GSL_VECTOR_COMPLEX_H__ + +#define GSL_VECTOR_REAL(z, i) ((z)->data[2*(i)*(z)->stride]) +#define GSL_VECTOR_IMAG(z, i) ((z)->data[2*(i)*(z)->stride + 1]) + +#if GSL_RANGE_CHECK +#define GSL_VECTOR_COMPLEX(zv, i) (((i) >= (zv)->size ? (gsl_error ("index out of range", __FILE__, __LINE__, GSL_EINVAL), 0):0 , *GSL_COMPLEX_AT((zv),(i)))) +#else +#define GSL_VECTOR_COMPLEX(zv, i) (*GSL_COMPLEX_AT((zv),(i))) +#endif + +#define GSL_COMPLEX_AT(zv,i) ((gsl_complex*)&((zv)->data[2*(i)*(zv)->stride])) +#define GSL_COMPLEX_FLOAT_AT(zv,i) ((gsl_complex_float*)&((zv)->data[2*(i)*(zv)->stride])) +#define GSL_COMPLEX_LONG_DOUBLE_AT(zv,i) ((gsl_complex_long_double*)&((zv)->data[2*(i)*(zv)->stride])) + +#endif /* __GSL_VECTOR_COMPLEX_H__ */ |