/[escript]/trunk-mpi-branch/finley/src/Finley.c
ViewVC logotype

Contents of /trunk-mpi-branch/finley/src/Finley.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1223 - (show annotations)
Fri Aug 3 02:40:39 2007 UTC (11 years, 8 months ago) by gross
File MIME type: text/plain
File size: 2027 byte(s)
first attemt towards an improved MPI version.  

1 /*
2 ************************************************************
3 * Copyright 2006 by ACcESS MNRF *
4 * *
5 * http://www.access.edu.au *
6 * Primary Business: Queensland, Australia *
7 * Licensed under the Open Software License version 3.0 *
8 * http://www.opensource.org/licenses/osl-3.0.php *
9 * *
10 ************************************************************
11 */
12
13 /**************************************************************/
14
15 /* Finley finite element solver */
16
17 /**************************************************************/
18
19 /* Author: gross@access.edu.au */
20 /* Version: $Id$ */
21
22 /**************************************************************/
23
24 #include "Finley.h"
25
26 /* This function returns a time mark */
27 double Finley_timer(void) {
28 return Paso_timer();
29 }
30
31 /* This function checks if the pointer ptr has a target. If not an
32 error is raised and TRUE is returned. */
33 bool_t Finley_checkPtr(void* arg) {
34 return Paso_checkPtr(arg);
35 }
36
37 /* reset the error to NO_ERROR */
38 void Finley_resetError(void) {
39 Paso_resetError();
40 }
41
42 /* sets an error */
43 void Finley_setError(Finley_ErrorCodeType err,char* msg) {
44 Paso_setError(err,msg);
45 }
46
47 /* checks if there is no error */
48 bool_t Finley_noError(void) {
49 return Paso_noError();
50 }
51
52 /* return the error code */
53 Finley_ErrorCodeType Finley_getErrorType(void) {
54 return Paso_getErrorType();
55 }
56
57 /* return the error message */
58 char* Finley_getErrorMessage(void) {
59 return Paso_getErrorMessage();
60 }
61 /* return the error message */
62 void Finley_convertPasoError(void) {
63 /* nothing has to be done here */
64 }
65
66 /* checks that there is no error accross all processes in a communicator */
67 /* NOTE : does not make guarentee consistency of error string on each process */
68 bool_t Finley_MPI_noError( Paso_MPIInfo *mpi_info )
69 {
70 return Paso_MPIInfo_noError( mpi_info );
71 }
72
73

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.26