/[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 123 - (show 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 /* $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 bool_t Finley_checkPtr(void* ptr) {
28 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 * Revision 1.2 2005/07/08 04:07:50 jgs
54 * Merge of development branch back to main trunk on 2005-07-08
55 *
56 * 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 * 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