/[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 631 by dhawcroft, Thu Mar 23 04:27:32 2006 UTC revision 1639 by gross, Mon Jul 14 08:55:25 2008 UTC
# Line 1  Line 1 
1    
2  /* $Id$ */  /* $Id$ */
3    
4  /*  /*******************************************************
5  ********************************************************************************   *
6  *               Copyright 2006 by ACcESS MNRF                                *   *           Copyright 2003-2007 by ACceSS MNRF
7  *                                                                              *   *       Copyright 2007 by University of Queensland
8  *                 http://www.access.edu.au                                     *   *
9  *           Primary Business: Queensland, Australia                            *   *                http://esscc.uq.edu.au
10  *     Licensed under the Open Software License version 3.0             *   *        Primary Business: Queensland, Australia
11  *        http://www.opensource.org/licenses/osl-3.0.php                        *   *  Licensed under the Open Software License version 3.0
12  ********************************************************************************   *     http://www.opensource.org/licenses/osl-3.0.php
13  */   *
14     *******************************************************/
15    
16  #ifndef INC_PASO_UTIL  #ifndef INC_PASO_UTIL
17  #define INC_PASO_UTIL  #define INC_PASO_UTIL
# Line 26  Line 28 
28  /**************************************************************/  /**************************************************************/
29    
30  #include "Common.h"  #include "Common.h"
31    #include "Paso_MPI.h"
32    #ifdef _OPENMP
33    #include <omp.h>
34    #endif
35    
36  /**************************************************************/  /**************************************************************/
37    
38  index_t Paso_Util_cumsum(dim_t,index_t*);  index_t Paso_Util_cumsum(dim_t,index_t*);
 void Paso_copyDouble(dim_t n,double* source, double* target);  
39  bool_t Paso_Util_isAny(dim_t N,index_t* array,index_t value);  bool_t Paso_Util_isAny(dim_t N,index_t* array,index_t value);
40    void Paso_zeroes(const dim_t n, double* x);
41    void Paso_Update(const dim_t n, const double a, double* x, const double b, const double* y);
42    void Paso_LinearCombination(const dim_t n, double*z, const double a,const double* x, const double b, const double* y);
43    double Paso_InnerProduct(const dim_t n,const double* x, const double* y, Paso_MPIInfo* mpiinfo);
44    double Paso_l2(const dim_t n, const double* x, Paso_MPIInfo* mpiinfo);
45    void ApplyGivensRotations(const dim_t n,double* v,const double* c,const double* s);
46    void Paso_Copy(const dim_t n, double* out, const double* in);
47    
48  #endif /* #ifndef INC_PASO_UTIL */  #define Paso_copyShortDouble(n, source, target)  memcpy(target,source,sizeof(double)*(size_t)n)
49    
50  /*  #endif /* #ifndef INC_PASO_UTIL */
  * $Log$  
  * Revision 1.2  2005/09/15 03:44:39  jgs  
  * Merge of development branch dev-02 back to main trunk on 2005-09-15  
  *  
  * Revision 1.1.2.1  2005/09/05 06:29:48  gross  
  * These files have been extracted from finley to define a stand alone libray for iterative  
  * linear solvers on the ALTIX. main entry through Paso_solve. this version compiles but  
  * has not been tested yet.  
  *  
  *  
  */  

Legend:
Removed from v.631  
changed lines
  Added in v.1639

  ViewVC Help
Powered by ViewVC 1.1.26