3
\brief Take dot product of two block matrices
10
** dot_block(): Find dot product of two block matrices
12
** \param A = block matrix A
13
** \param B = block matrix B
14
** \param nrows = number of rows of A and B
15
** \param ncols = number of columns of A and B
16
** \param alpha = scale factor by which the dot product is multiplied
18
** Returns: dot product
21
double dot_block(double **A, double **B, int rows, int cols, double alpha)
28
size = ((long) rows) * ((long) cols);
35
for(i=0; i < size; i++,a++,b++) value += (*a) * (*b);