ScaLAPACK  2.0.2
ScaLAPACK: Scalable Linear Algebra PACKage
BI_dvvamx2.c
Go to the documentation of this file.
00001 #include "Bdef.h"
00002 void BI_dvvamx2(int N, char *vec1, char *vec2)
00003 {
00004    int k;
00005    double *v1=(double*)vec1, *v2=(double*)vec2;
00006    double diff;
00007 
00008    for (k=0; k != N; k++)
00009    {
00010       diff = Rabs(v1[k]) - Rabs(v2[k]);
00011       if (diff < 0) v1[k] = v2[k];
00012       else if (diff == 0) if (v1[k] < v2[k]) v1[k] = v2[k];
00013    }
00014 }