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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 616 - (show annotations)
Wed Mar 22 02:46:56 2006 UTC (13 years ago) by elspeth
Original Path: trunk/finley/src/Finley.c
File MIME type: text/plain
File size: 2566 byte(s)
Copyright added to more source files.

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
27 /* This function returns a time mark */
28 double Finley_timer(void) {
29 return Paso_timer();
30 }
31
32 /* This function checks if the pointer ptr has a target. If not an
33 error is raised and TRUE is returned. */
34 bool_t Finley_checkPtr(void* arg) {
35 return Paso_checkPtr(arg);
36 }
37
38 /* reset the error to NO_ERROR */
39 void Finley_resetError(void) {
40 Paso_resetError();
41 }
42
43 /* sets an error */
44 void Finley_setError(Finley_ErrorCodeType err,char* msg) {
45 Paso_setError(err,msg);
46 }
47
48 /* checks if there is no error */
49 bool_t Finley_noError(void) {
50 return Paso_noError();
51 }
52
53 /* return the error code */
54 Finley_ErrorCodeType Finley_getErrorType(void) {
55 return Paso_getErrorType();
56 }
57
58 /* return the error message */
59 char* Finley_getErrorMessage(void) {
60 return Paso_getErrorMessage();
61 }
62 /* return the error message */
63 void Finley_convertPasoError(void) {
64 /* nothing has to be done here */
65 }
66
67
68 /**************************************************************/
69
70
71 /*
72 * $Log$
73 * Revision 1.3 2005/09/15 03:44:22 jgs
74 * Merge of development branch dev-02 back to main trunk on 2005-09-15
75 *
76 * Revision 1.2.2.1 2005/09/07 06:26:18 gross
77 * the solver from finley are put into the standalone package paso now
78 *
79 * Revision 1.2 2005/07/08 04:07:50 jgs
80 * Merge of development branch back to main trunk on 2005-07-08
81 *
82 * Revision 1.1.1.1.2.1 2005/06/29 02:34:50 gross
83 * some changes towards 64 integers in finley
84 *
85 * Revision 1.1.1.1 2004/10/26 06:53:57 jgs
86 * initial import of project esys2
87 *
88 * Revision 1.2 2004/07/02 04:21:13 gross
89 * Finley C code has been included
90 *
91 * Revision 1.1.1.1 2004/06/24 04:00:40 johng
92 * Initial version of eys using boost-python.
93 *
94 *
95 */

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.26