SCALAPACK 2.2.2
LAPACK: Linear Algebra PACKage
All Classes Files Functions Variables Typedefs Macros
BI_ivvamn2.c
Go to the documentation of this file.
1#include "Bdef.h"
2
3void 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}
void BI_ivvamn2(Int N, char *vec1, char *vec2)
Definition BI_ivvamn2.c:3
#define Int
Definition Bconfig.h:22
#define Rabs(x)
Definition Bdef.h:269