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)10void 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