/[escript]/trunk/dudley/src/Dudley.c
ViewVC logotype

Annotation of /trunk/dudley/src/Dudley.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 616 - (hide 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 jgs 150 /*
2 elspeth 616 ************************************************************
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 jgs 150 */
12 jgs 82
13     /**************************************************************/
14    
15     /* Finley finite element solver */
16    
17     /**************************************************************/
18    
19 jgs 150 /* Author: gross@access.edu.au */
20     /* Version: $Id$ */
21 jgs 82
22     /**************************************************************/
23    
24     #include "Finley.h"
25    
26    
27 jgs 150 /* This function returns a time mark */
28     double Finley_timer(void) {
29     return Paso_timer();
30     }
31 jgs 82
32     /* This function checks if the pointer ptr has a target. If not an
33     error is raised and TRUE is returned. */
34 jgs 150 bool_t Finley_checkPtr(void* arg) {
35     return Paso_checkPtr(arg);
36     }
37 jgs 82
38 jgs 150 /* reset the error to NO_ERROR */
39     void Finley_resetError(void) {
40     Paso_resetError();
41     }
42 jgs 82
43 jgs 150 /* sets an error */
44     void Finley_setError(Finley_ErrorCodeType err,char* msg) {
45     Paso_setError(err,msg);
46 jgs 82 }
47    
48 jgs 150 /* 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 jgs 82 /**************************************************************/
69    
70    
71     /*
72     * $Log$
73 jgs 150 * 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 jgs 123 * Revision 1.2 2005/07/08 04:07:50 jgs
80     * Merge of development branch back to main trunk on 2005-07-08
81 jgs 82 *
82 jgs 123 * 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 jgs 82 * 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