seq/aijmkl/aijmkl.c

348   char               matdescra[6];
354   matdescra[0] = 'g'; /* Indicates to MKL that we using a general CSR matrix. */
355   matdescra[3] = 'c'; /* Indicates to MKL that we use C-style (0-based) indexing. */
363   mkl_xcsrmv(&transa, &m, &n, &alpha, matdescra, aa, aj, ai, ai + 1, x, &beta, y);
421   char               matdescra[6];
427   matdescra[0] = 'g'; /* Indicates to MKL that we using a general CSR matrix. */
428   matdescra[3] = 'c'; /* Indicates to MKL that we use C-style (0-based) indexing. */
436   mkl_xcsrmv(&transa, &m, &n, &alpha, matdescra, aa, aj, ai, ai + 1, x, &beta, y);
498   char        matdescra[6];
501   matdescra[0] = 'g'; /* Indicates to MKL that we using a general CSR matrix. */
502   matdescra[3] = 'c'; /* Indicates to MKL that we use C-style (0-based) indexing. */
514     mkl_xcsrmv(&transa, &m, &n, &alpha, matdescra, aa, aj, ai, ai + 1, x, &beta, z);
519     mkl_xcsrmv(&transa, &m, &n, &alpha, matdescra, aa, aj, ai, ai + 1, x, &beta, z);
596   char        matdescra[6];
599   matdescra[0] = 'g'; /* Indicates to MKL that we using a general CSR matrix. */
600   matdescra[3] = 'c'; /* Indicates to MKL that we use C-style (0-based) indexing. */
612     mkl_xcsrmv(&transa, &m, &n, &alpha, matdescra, aa, aj, ai, ai + 1, x, &beta, z);
617     mkl_xcsrmv(&transa, &m, &n, &alpha, matdescra, aa, aj, ai, ai + 1, x, &beta, z);