/[escript]/branches/domexper/dudley/src/Dudley.c
ViewVC logotype

Annotation of /branches/domexper/dudley/src/Dudley.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 3079 - (hide annotations)
Tue Aug 3 04:04:51 2010 UTC (8 years, 8 months ago) by jfenwick
Original Path: branches/domexper/finley/src/Finley.c
File MIME type: text/plain
File size: 1752 byte(s)
Some experiments on finley

1 jgs 82
2 ksteube 1312 /*******************************************************
3 ksteube 1811 *
4 jfenwick 2881 * Copyright (c) 2003-2010 by University of Queensland
5 ksteube 1811 * 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 jgs 82
14 ksteube 1811
15 jgs 82 /**************************************************************/
16    
17 ksteube 1312 /* Finley finite element solver */
18 jgs 82
19     /**************************************************************/
20    
21     #include "Finley.h"
22    
23 jgs 150 /* This function returns a time mark */
24     double Finley_timer(void) {
25     return Paso_timer();
26     }
27 jgs 82
28     /* This function checks if the pointer ptr has a target. If not an
29     error is raised and TRUE is returned. */
30 jgs 150 bool_t Finley_checkPtr(void* arg) {
31     return Paso_checkPtr(arg);
32     }
33 jgs 82
34 jgs 150 /* reset the error to NO_ERROR */
35     void Finley_resetError(void) {
36     Paso_resetError();
37     }
38 jgs 82
39 jgs 150 /* sets an error */
40 jfenwick 2025 void Finley_setError(Finley_ErrorCodeType err,__const char* msg) {
41 jgs 150 Paso_setError(err,msg);
42 jgs 82 }
43    
44 jgs 150 /* 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 bcumming 730 /* 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 ksteube 1312 return Paso_MPIInfo_noError( mpi_info );
68 bcumming 730 }
69 jgs 150
70 bcumming 730

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.26