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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 201 - (hide annotations)
Wed Nov 23 04:10:21 2005 UTC (13 years, 5 months ago) by jgs
Original Path: trunk/finley/src/finley/Finley.c
File MIME type: text/plain
File size: 2888 byte(s)
copy finleyC and CPPAdapter to finley and finley/CPPAdapter to
facilitate scons builds

1 jgs 150 /*
2     ******************************************************************************
3     * *
4     * COPYRIGHT ACcESS 2003,2004,2005 - All Rights Reserved *
5     * *
6     * This software is the property of ACcESS. No part of this code *
7     * may be copied in any form or by any means without the expressed written *
8     * consent of ACcESS. Copying, use or modification of this software *
9     * by any unauthorised person is illegal unless that person has a software *
10     * license agreement with ACcESS. *
11     * *
12     ******************************************************************************
13     */
14 jgs 82
15     /**************************************************************/
16    
17     /* Finley finite element solver */
18    
19     /**************************************************************/
20    
21 jgs 150 /* Author: gross@access.edu.au */
22     /* Version: $Id$ */
23 jgs 82
24     /**************************************************************/
25    
26     #include "Finley.h"
27    
28    
29 jgs 150 /* This function returns a time mark */
30     double Finley_timer(void) {
31     return Paso_timer();
32     }
33 jgs 82
34     /* This function checks if the pointer ptr has a target. If not an
35     error is raised and TRUE is returned. */
36 jgs 150 bool_t Finley_checkPtr(void* arg) {
37     return Paso_checkPtr(arg);
38     }
39 jgs 82
40 jgs 150 /* reset the error to NO_ERROR */
41     void Finley_resetError(void) {
42     Paso_resetError();
43     }
44 jgs 82
45 jgs 150 /* sets an error */
46     void Finley_setError(Finley_ErrorCodeType err,char* msg) {
47     Paso_setError(err,msg);
48 jgs 82 }
49    
50 jgs 150 /* checks if there is no error */
51     bool_t Finley_noError(void) {
52     return Paso_noError();
53     }
54    
55     /* return the error code */
56     Finley_ErrorCodeType Finley_getErrorType(void) {
57     return Paso_getErrorType();
58     }
59    
60     /* return the error message */
61     char* Finley_getErrorMessage(void) {
62     return Paso_getErrorMessage();
63     }
64     /* return the error message */
65     void Finley_convertPasoError(void) {
66     /* nothing has to be done here */
67     }
68    
69    
70 jgs 82 /**************************************************************/
71    
72    
73     /*
74     * $Log$
75 jgs 150 * Revision 1.3 2005/09/15 03:44:22 jgs
76     * Merge of development branch dev-02 back to main trunk on 2005-09-15
77     *
78     * Revision 1.2.2.1 2005/09/07 06:26:18 gross
79     * the solver from finley are put into the standalone package paso now
80     *
81 jgs 123 * Revision 1.2 2005/07/08 04:07:50 jgs
82     * Merge of development branch back to main trunk on 2005-07-08
83 jgs 82 *
84 jgs 123 * Revision 1.1.1.1.2.1 2005/06/29 02:34:50 gross
85     * some changes towards 64 integers in finley
86     *
87     * Revision 1.1.1.1 2004/10/26 06:53:57 jgs
88     * initial import of project esys2
89     *
90 jgs 82 * Revision 1.2 2004/07/02 04:21:13 gross
91     * Finley C code has been included
92     *
93     * Revision 1.1.1.1 2004/06/24 04:00:40 johng
94     * Initial version of eys using boost-python.
95     *
96     *
97     */

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.26