~vcs-imports/escript-finley/trunk

« back to all changes in this revision

Viewing changes to paso/src/PasoUtil.h

  • Committer: jfenwick
  • Date: 2010-10-11 01:48:14 UTC
  • Revision ID: svn-v4:77569008-7704-0410-b7a0-a92fef0b09fd:trunk:3259
Merging dudley and scons updates from branches

Show diffs side-by-side

added added

removed removed

Lines of Context:
27
27
/**************************************************************/
28
28
 
29
29
#include "Common.h"
30
 
#include "Paso_MPI.h"
 
30
#include "esysUtils/Esys_MPI.h"
31
31
#ifdef _OPENMP
32
32
#include <omp.h>
33
33
#endif
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)