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 |
/**************************************************************/ |
16 |
|
17 |
/* Finley finite element solver */ |
18 |
|
19 |
/**************************************************************/ |
20 |
|
21 |
#include "Finley.h" |
22 |
|
23 |
/* This function returns a time mark */ |
24 |
double Finley_timer(void) { |
25 |
return Paso_timer(); |
26 |
} |
27 |
|
28 |
/* This function checks if the pointer ptr has a target. If not an |
29 |
error is raised and TRUE is returned. */ |
30 |
bool_t Finley_checkPtr(void* arg) { |
31 |
return Paso_checkPtr(arg); |
32 |
} |
33 |
|
34 |
/* reset the error to NO_ERROR */ |
35 |
void Finley_resetError(void) { |
36 |
Paso_resetError(); |
37 |
} |
38 |
|
39 |
/* sets an error */ |
40 |
void Finley_setError(Finley_ErrorCodeType err,__const char* msg) { |
41 |
Paso_setError(err,msg); |
42 |
} |
43 |
|
44 |
/* checks if there is no error */ |
45 |
bool_t Finley_noError(void) { |
46 |
return Paso_noError(); |
47 |
} |
48 |
|
49 |
/* return the error code */ |
50 |
Finley_ErrorCodeType Finley_getErrorType(void) { |
51 |
return Paso_getErrorType(); |
52 |
} |
53 |
|
54 |
/* return the error message */ |
55 |
char* Finley_getErrorMessage(void) { |
56 |
return Paso_getErrorMessage(); |
57 |
} |
58 |
/* return the error message */ |
59 |
void Finley_convertPasoError(void) { |
60 |
/* nothing has to be done here */ |
61 |
} |
62 |
|
63 |
/* checks that there is no error accross all processes in a communicator */ |
64 |
/* NOTE : does not make guarentee consistency of error string on each process */ |
65 |
bool_t Finley_MPI_noError( Paso_MPIInfo *mpi_info ) |
66 |
{ |
67 |
return Paso_MPIInfo_noError( mpi_info ); |
68 |
} |
69 |
|
70 |
|