SCALAPACK
2.2.2
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches
BI_svvamx2.c
Go to the documentation of this file.
1
#include "
Bdef.h
"
2
void
BI_svvamx2
(
Int
N,
char
*vec1,
char
*vec2)
3
{
4
Int
k;
5
float
*v1=(
float
*)vec1, *v2=(
float
*)vec2;
6
float
diff;
7
8
for
(k=0; k != N; k++)
9
{
10
diff =
Rabs
(v1[k]) -
Rabs
(v2[k]);
11
if
(diff < 0) v1[k] = v2[k];
12
else
if
(diff == 0)
if
(v1[k] < v2[k]) v1[k] = v2[k];
13
}
14
}
BI_svvamx2
void BI_svvamx2(Int N, char *vec1, char *vec2)
Definition
BI_svvamx2.c:2
Int
#define Int
Definition
Bconfig.h:22
Rabs
#define Rabs(x)
Definition
Bdef.h:269
Bdef.h
BLACS
SRC
BI_svvamx2.c
Generated on Sun Jan 12 2025 15:58:37 for SCALAPACK by
1.9.8