/[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 123 - (hide annotations)
Fri Jul 8 04:08:13 2005 UTC (13 years, 9 months ago) by jgs
Original Path: trunk/esys2/finley/src/finleyC/Finley.c
File MIME type: text/plain
File size: 1492 byte(s)
Merge of development branch back to main trunk on 2005-07-08

1 jgs 82 /* $Id$ */
2    
3     /**************************************************************/
4    
5     /* Finley finite element solver */
6    
7     /**************************************************************/
8    
9     /* Copyrights by ACcESS Australia, 2003 */
10     /* Version: $Id$ */
11    
12     /**************************************************************/
13    
14     #include "Common.h"
15     #include "Finley.h"
16     #ifdef _OPENMP
17     #include <omp.h>
18     #else
19     #include <time.h>
20     #endif
21    
22    
23    
24     /* This function checks if the pointer ptr has a target. If not an
25     error is raised and TRUE is returned. */
26    
27 jgs 123 bool_t Finley_checkPtr(void* ptr) {
28 jgs 82 if (ptr==NULL) {
29     Finley_ErrorCode=MEMORY_ERROR;
30     sprintf(Finley_ErrorMsg,"Out of memory.");
31     return TRUE;
32     } else {
33     return FALSE;
34     }
35     }
36    
37     /* This function returns a timer */
38     double Finley_timer(void) {
39     double out;
40     #ifdef _OPENMP
41     out=omp_get_wtime();
42     #else
43     out=((double) clock())/CLOCKS_PER_SEC;
44     #endif
45     return out;
46     }
47    
48     /**************************************************************/
49    
50    
51     /*
52     * $Log$
53 jgs 123 * Revision 1.2 2005/07/08 04:07:50 jgs
54     * Merge of development branch back to main trunk on 2005-07-08
55 jgs 82 *
56 jgs 123 * Revision 1.1.1.1.2.1 2005/06/29 02:34:50 gross
57     * some changes towards 64 integers in finley
58     *
59     * Revision 1.1.1.1 2004/10/26 06:53:57 jgs
60     * initial import of project esys2
61     *
62 jgs 82 * Revision 1.2 2004/07/02 04:21:13 gross
63     * Finley C code has been included
64     *
65     * Revision 1.1.1.1 2004/06/24 04:00:40 johng
66     * Initial version of eys using boost-python.
67     *
68     *
69     */

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.26