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;
      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