htswanalysis/MACS/lib/gsl/gsl-1.11/doc/examples/blas.c

   1 #include <stdio.h>
   2 #include <gsl/gsl_blas.h>
   3
   4 int
   5 main (void)
   6 {
   7   double a[] = { 0.11, 0.12, 0.13,
   8                  0.21, 0.22, 0.23 };
   9
  10   double b[] = { 1011, 1012,
  11                  1021, 1022,
  12                  1031, 1032 };
  13
  14   double c[] = { 0.00, 0.00,
  15                  0.00, 0.00 };
  16
  17   gsl_matrix_view A = gsl_matrix_view_array(a, 2, 3);
  18   gsl_matrix_view B = gsl_matrix_view_array(b, 3, 2);
  19   gsl_matrix_view C = gsl_matrix_view_array(c, 2, 2);
  20
  21   /* Compute C = A B */
  22
  23   gsl_blas_dgemm (CblasNoTrans, CblasNoTrans,
  24                   1.0, &A.matrix, &B.matrix,
  25                   0.0, &C.matrix);
  26
  27   printf ("[ %g, %g\n", c[0], c[1]);
  28   printf ("  %g, %g ]\n", c[2], c[3]);
  29
  30   return 0;
  31 }