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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1811 - (show annotations)
Thu Sep 25 23:11:13 2008 UTC (11 years, 1 month ago) by ksteube
File MIME type: text/plain
File size: 1848 byte(s)
Copyright updated in all files

1
2 /*******************************************************
3 *
4 * Copyright (c) 2003-2008 by University of Queensland
5 * Earth Systems Science Computational Center (ESSCC)
6 * http://www.uq.edu.au/esscc
7 *
8 * Primary Business: Queensland, Australia
9 * Licensed under the Open Software License version 3.0
10 * http://www.opensource.org/licenses/osl-3.0.php
11 *
12 *******************************************************/
13
14
15 #ifndef INC_PASO_UTIL
16 #define INC_PASO_UTIL
17
18 /**************************************************************/
19
20 /* Some utility routines: */
21
22 /**************************************************************/
23
24 /* Copyrights by ACcESS Australia, 2003,2004,2005 */
25 /* author: gross@access.edu.au */
26
27 /**************************************************************/
28
29 #include "Common.h"
30 #include "Paso_MPI.h"
31 #ifdef _OPENMP
32 #include <omp.h>
33 #endif
34
35 /**************************************************************/
36
37 index_t Paso_Util_cumsum(dim_t,index_t*);
38 bool_t Paso_Util_isAny(dim_t N,index_t* array,index_t value);
39 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);
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);
44 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);
46 bool_t Paso_fileExists( const char* filename );
47 double Paso_lsup(const dim_t n, const double* x, Paso_MPIInfo* mpiinfo);
48
49 #define Paso_copyShortDouble(n, source, target) memcpy(target,source,sizeof(double)*(size_t)n)
50
51 #endif /* #ifndef INC_PASO_UTIL */

Properties

Name Value
svn:eol-style native
svn:keywords Author Date Id Revision

  ViewVC Help
Powered by ViewVC 1.1.26