ScaLAPACK 2.1
2.1
ScaLAPACK: Scalable Linear Algebra PACKage
BI_smvcopy.c
Go to the documentation of this file.
1
#include "
Bdef.h
"
2
void
BI_smvcopy
(
int
m,
int
n,
float
*A,
int
lda,
float
*buff)
3
/*
4
* Performs a matrix to vector copy (pack) for the data type float
5
*/
6
{
7
int
i, j;
8
9
if
( (m == lda) || (n == 1) )
10
{
11
m = n * m;
12
for
(i=0; i < m; i++) buff[i] = A[i];
13
}
14
else
if
(m == 1)
15
{
16
for
(j=0; j < n; j++) buff[j] = A[j*lda];
17
}
18
else
19
{
20
for
(j=0; j < n; j++)
21
{
22
for
(i=0; i < m; i++) buff[i] = A[i];
23
A += lda;
24
buff += m;
25
}
26
}
27
}
BI_smvcopy
void BI_smvcopy(int m, int n, float *A, int lda, float *buff)
Definition:
BI_smvcopy.c:2
Bdef.h
BLACS
SRC
BI_smvcopy.c
Generated by
1.8.16