diff options
| author | Jorawar Singh | 2017-06-30 11:54:22 +0530 |
|---|---|---|
| committer | Jorawar Singh | 2017-06-30 11:54:22 +0530 |
| commit | a7d283ae2899b2530ac70a2453d4db05d03d609d (patch) | |
| tree | fb93a9edddeee4601c47ce73e173331fa3addac8 /thirdparty/includes/GSL/gsl/gsl_vector_complex.h | |
| parent | aef4e8398f2b1848b0e4cdd9580dbbe93e4006f9 (diff) | |
| parent | bee6bf6e37f6c36fb18b6132702e1528b7edafc2 (diff) | |
| download | scilab2c-a7d283ae2899b2530ac70a2453d4db05d03d609d.tar.gz scilab2c-a7d283ae2899b2530ac70a2453d4db05d03d609d.tar.bz2 scilab2c-a7d283ae2899b2530ac70a2453d4db05d03d609d.zip | |
merged main repo with local
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__ */ |