8 void vmul(
double *vp,
double *mat,
double *v,
int n)
14 for (k = 0; k < n; ++k) {
15 for (i = 0, q = v, s = 0.; i < n; ++i)
21 double vnrm(
double *u,
double *v,
int n)
27 for (i = 0, s = 0.; i < n; ++i)
void vmul(double *vp, double *mat, double *v, int n)
double vnrm(double *u, double *v, int n)