/[escript]/trunk/paso/src/PasoUtil.h
ViewVC logotype

Diff of /trunk/paso/src/PasoUtil.h

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3258 by gross, Thu Sep 2 07:26:43 2010 UTC revision 3259 by jfenwick, Mon Oct 11 01:48:14 2010 UTC
# Line 27  Line 27 
27  /**************************************************************/  /**************************************************************/
28    
29  #include "Common.h"  #include "Common.h"
30  #include "Paso_MPI.h"  #include "esysUtils/Esys_MPI.h"
31  #ifdef _OPENMP  #ifdef _OPENMP
32  #include <omp.h>  #include <omp.h>
33  #endif  #endif
# Line 39  bool_t Paso_Util_isAny(dim_t N,index_t* Line 39  bool_t Paso_Util_isAny(dim_t N,index_t*
39  void Paso_zeroes(const dim_t n, double* x);  void Paso_zeroes(const dim_t n, double* x);
40  void Paso_Update(const dim_t n, const double a, double* x, const double b, const double* y);  void Paso_Update(const dim_t n, const double a, double* x, const double b, const double* y);
41  void Paso_LinearCombination(const dim_t n, double*z, const double a,const double* x, const double b, const double* y);  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);  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, Paso_MPIInfo* mpiinfo);  double Paso_l2(const dim_t n, const double* x, Esys_MPIInfo* mpiinfo);
44  void ApplyGivensRotations(const dim_t n,double* v,const double* c,const double* s);  void ApplyGivensRotations(const dim_t n,double* v,const double* c,const double* s);
45  void Paso_Copy(const dim_t n, double* out, const double* in);  void Paso_Copy(const dim_t n, double* out, const double* in);
46  bool_t Paso_fileExists( const char* filename );  bool_t Paso_fileExists( const char* filename );
47  double Paso_lsup(const dim_t n, const double* x, Paso_MPIInfo* mpiinfo);  double Paso_lsup(const dim_t n, const double* x, Esys_MPIInfo* mpiinfo);
48  #define Paso_Scale(n, x, a) Paso_Update(n, a, x, 0, x);  #define Paso_Scale(n, x, a) Paso_Update(n, a, x, 0, x);
49  #define Paso_AXPY(n, x, a, y) Paso_Update(n, 1., x, a,  y);  #define Paso_AXPY(n, x, a, y) Paso_Update(n, 1., x, a,  y);
50  #define Paso_copyShortDouble(n, source, target)  memcpy(target,source,sizeof(double)*(size_t)n)  #define Paso_copyShortDouble(n, source, target)  memcpy(target,source,sizeof(double)*(size_t)n)

Legend:
Removed from v.3258  
changed lines
  Added in v.3259

  ViewVC Help
Powered by ViewVC 1.1.26