SCALAPACK
2.2.2
LAPACK: Linear Algebra PACKage
Toggle main menu visibility
Main Page
Data Types
Data Types List
Data Type Index
Data Fields
All
a
b
c
d
f
g
i
l
m
n
o
p
r
s
t
u
z
Variables
a
b
c
d
f
g
i
l
m
n
o
p
r
s
t
u
z
Files
File List
File Members
All
!
_
a
b
c
d
e
f
g
h
i
j
k
l
m
n
o
p
r
s
t
u
v
w
x
y
z
Functions/Subroutines
!
a
b
c
d
f
g
i
j
k
l
m
n
p
r
s
t
x
z
Variables
Typedefs
a
b
c
f
g
h
m
s
t
v
Macros
_
a
b
c
d
e
f
g
h
i
l
m
n
o
p
r
s
t
u
w
y
z
•
All
Classes
Files
Functions
Variables
Typedefs
Macros
Loading...
Searching...
No Matches
BI_svvamx.c
Go to the documentation of this file.
1
#include "
Bdef.h
"
2
void
BI_svvamx
(
Int
N,
char
*vec1,
char
*vec2)
3
{
4
float
*v1=(
float
*)vec1, *v2=(
float
*)vec2;
5
float
diff;
6
BI_DistType
*dist1, *dist2;
7
Int
i, k;
8
9
k = N *
sizeof
(float);
10
i = k %
sizeof
(
BI_DistType
);
11
if
(i) k +=
sizeof
(
BI_DistType
) - i;
12
dist1 = (
BI_DistType
*) &vec1[k];
13
dist2 = (
BI_DistType
*) &vec2[k];
14
15
for
(k=0; k < N; k++)
16
{
17
diff =
Rabs
(v1[k]) -
Rabs
(v2[k]);
18
if
(diff < 0)
19
{
20
v1[k] = v2[k];
21
dist1[k] = dist2[k];
22
}
23
else
if
(diff == 0)
24
{
25
if
(dist1[k] > dist2[k])
26
{
27
v1[k] = v2[k];
28
dist1[k] = dist2[k];
29
}
30
}
31
}
32
}
2
void
BI_svvamx
(
Int
N,
char
*vec1,
char
*vec2) {
…
}
BI_svvamx
void BI_svvamx(Int N, char *vec1, char *vec2)
Definition
BI_svvamx.c:2
Int
#define Int
Definition
Bconfig.h:22
Rabs
#define Rabs(x)
Definition
Bdef.h:269
BI_DistType
#define BI_DistType
Definition
Bdef.h:72
Bdef.h
BLACS
SRC
BI_svvamx.c
Generated on Sun Jan 12 2025 15:58:37 for SCALAPACK by
1.9.8