39
39
void Paso_zeroes(const dim_t n, double* x);
40
40
void Paso_Update(const dim_t n, const double a, double* x, const double b, const double* y);
41
41
void Paso_LinearCombination(const dim_t n, double*z, const double a,const double* x, const double b, const double* y);
42
double Paso_InnerProduct(const dim_t n,const double* x, const double* y, Paso_MPIInfo* mpiinfo);
43
double Paso_l2(const dim_t n, const double* x, Paso_MPIInfo* mpiinfo);
42
double Paso_InnerProduct(const dim_t n,const double* x, const double* y, Esys_MPIInfo* mpiinfo);
43
double Paso_l2(const dim_t n, const double* x, Esys_MPIInfo* mpiinfo);
44
44
void ApplyGivensRotations(const dim_t n,double* v,const double* c,const double* s);
45
45
void Paso_Copy(const dim_t n, double* out, const double* in);
46
46
bool_t Paso_fileExists( const char* filename );
47
double Paso_lsup(const dim_t n, const double* x, Paso_MPIInfo* mpiinfo);
47
double Paso_lsup(const dim_t n, const double* x, Esys_MPIInfo* mpiinfo);
48
48
#define Paso_Scale(n, x, a) Paso_Update(n, a, x, 0, x);
49
49
#define Paso_AXPY(n, x, a, y) Paso_Update(n, 1., x, a, y);
50
50
#define Paso_copyShortDouble(n, source, target) memcpy(target,source,sizeof(double)*(size_t)n)