OpenRadioss
2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
BI_ivvamn2.c
Go to the documentation of this file.
1
#include "
Bdef.h
"
2
3
void
BI_ivvamn2
(
Int
N
,
char
*vec1,
char
*vec2)
4
{
5
Int
k;
6
Int
*v1=(
Int
*)vec1, *v2=(
Int
*)vec2;
7
Int
diff;
8
9
for
(k=0; k !=
N
; k++)
10
{
11
diff =
Rabs
(v1[k]) -
Rabs
(v2[k]);
12
if
(diff > 0) v1[k] = v2[k];
13
else
if
(diff == 0)
if
(v1[k] < v2[k]) v1[k] = v2[k];
14
}
15
}
BI_ivvamn2
void BI_ivvamn2(Int N, char *vec1, char *vec2)
Definition
BI_ivvamn2.c:3
Int
#define Int
Definition
Bconfig.h:22
Bdef.h
Rabs
#define Rabs(x)
Definition
Bdef.h:269
N
#define N
Definition
example_user.c:10
engine
extlib
scalapack-2.2.0
BLACS
SRC
BI_ivvamn2.c
Generated by
1.15.0