1 typedef __SIZE_TYPE__ size_t;
2 typedef struct   {
3       long double dat[2];
4 } gsl_complex_long_double;
5 typedef struct {
6     size_t size;
7     size_t stride;
8     long double *data;
9 } gsl_vector_complex_long_double;
gsl_vector_complex_long_double_set_zero(gsl_vector_complex_long_double * v)10 void gsl_vector_complex_long_double_set_zero (gsl_vector_complex_long_double * v)
11 {
12     long double * const data = v->data;
13     const size_t n = v->size;
14     const size_t stride = v->stride;
15     const gsl_complex_long_double zero = { { 0.0L,0.0L} } ;
16     size_t i;
17     for (i = 0; i < n; i++)
18         *(gsl_complex_long_double *) (data + 2 * i * stride) = zero;
19 }
20 
21