323 def L3_xGEMM(fo, alpha, beta, m, n, k):  argument
334         d = alpha * a * b + beta * c;
342         d = alpha * a.T * b.T + beta * c;
344         d = alpha * a.H * b.H + beta * c;
347 def L3_xSYMM(fo, alpha, beta, m, n):  argument
360         d = alpha * a * b + beta * c;
366         d = alpha * b * a + beta * c;
369 def L3_xHEMM(fo, alpha, beta, m, n):  argument
382         d = alpha * a * b + beta * c;
388         d = alpha * b * a + beta * c;
391 def L3_xSYRK(fo, alpha, beta, n, k):  argument
400         d = alpha * a * a.T + beta * c;
405         d = alpha * a.T * a + beta * c;
408 def L3_xHERK(fo, alpha, beta, n, k):  argument
417         d = alpha * a * a.H + beta * c;
422         d = alpha * a.H * a + beta * c;
425 def L3_xSYR2K(fo, alpha, beta, n, k):  argument
436         d = alpha * (a * b.T + b * a.T) + beta * c;
443         d = alpha * (a.T * b + b.T * a) + beta * c;
446 def L3_xHER2K(fo, alpha, beta, n, k):  argument
457         d = alpha * (a * b.H + b * a.H) + beta * c;
464         d = alpha * (a.H * b + b.H * a) + beta * c;
507 def L2_xGEMV(fo, alpha, beta, m, n):  argument
521         d = alpha * a * x + beta * y;
525         d = alpha * a.T * y + beta * x;
528         d = alpha * a.H * y + beta * x;
531 def L2_xGBMV(fo, alpha, beta, m, n, kl, ku):  argument
545         d = alpha * a * x + beta * y;
549         d = alpha * a.T * y + beta * x;
552         d = alpha * a.H * y + beta * x;
555 def L2_xHEMV(fo, alpha, beta, n):  argument
571         d = alpha * a * x + beta * y;
575 def L2_xHBMV(fo, alpha, beta, n, k):  argument
591         d = alpha * a * x + beta * y;
596 def L2_xSYMV(fo, alpha, beta, n):  argument
612         d = alpha * a * x + beta * y;
616 def L2_xSBMV(fo, alpha, beta, n, k):  argument
632         d = alpha * a * x + beta * y;
854     beta = 1.0;
860     L2_xGEMV(fo, alpha, beta, m, n);
861     L2_xGBMV(fo, alpha, beta, m, n, kl, ku);
862     L2_xHEMV(fo, alpha, beta, n);
863     L2_xHBMV(fo, alpha, beta, n, kl);
864     L2_xSYMV(fo, alpha, beta, n);
865     L2_xSBMV(fo, alpha, beta, n, kl);
878     L3_xGEMM(fo, alpha, beta, m, n, k);
879     L3_xSYMM(fo, alpha, beta, m, n);
880     L3_xHEMM(fo, alpha, beta, m, n);
881     L3_xSYRK(fo, alpha, beta, n, k);
882     L3_xHERK(fo, alpha, beta, n, k);
883     L3_xSYR2K(fo, alpha, beta, n, k);
884     L3_xHER2K(fo, alpha, beta, n, k);