Function gsl_matrix_complex_view_array

pure/runtime.cc:275–292

}

static gsl_matrix_complex_view gsl_matrix_complex_view_array
(double* p, size_t n1, size_t n2)
{
  gsl_matrix_complex_view view = {{0, 0, 0, 0, 0, 0}};
  if (n1 == 0 || n2 == 0)
    return view;
  else {
     gsl_matrix_complex s = {0, 0, 0, 0, 0, 0};
     s.data = p;
     s.size1 = n1;
     s.size2 = n2;
     s.tda = n2;
     s.block = 0;
     s.owner = 0;
     view.matrix = s;
     return view;
  }
}

static int
gsl_matrix_complex_memcpy(gsl_matrix_complex *dest,