ScaLAPACK 2.1  2.1
ScaLAPACK: Scalable Linear Algebra PACKage
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 }
Rabs
#define Rabs(x)
Definition: Bdef.h:269
Bdef.h
BI_ivvamn2
void BI_ivvamn2(int N, char *vec1, char *vec2)
Definition: BI_ivvamn2.c:3