8 void smgen(
double *a,
double *eval,
double *evec,
int n)
10 double *p, *
q, *ps, *
r, *
s, *t, *v = evec + n *
n;
12 for (ps = a, p = evec; p < v; p +=
n) {
13 for (q = evec; q < v; q +=
n, ++ps) {
15 for (r = eval, s = p, t = q; r < eval +
n;)
16 *ps += *r++ * *s++ * *t++;
void smgen(double *a, double *eval, double *evec, int n)