/[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 82 - (show annotations)
Tue Oct 26 06:53:54 2004 UTC (14 years, 5 months ago) by jgs
Original Path: trunk/esys2/finley/src/finleyC/Finley.c
File MIME type: text/plain
File size: 1260 byte(s)
Initial revision

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 int 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.1 2004/10/26 06:53:57 jgs
54 * Initial revision
55 *
56 * Revision 1.2 2004/07/02 04:21:13 gross
57 * Finley C code has been included
58 *
59 * Revision 1.1.1.1 2004/06/24 04:00:40 johng
60 * Initial version of eys using boost-python.
61 *
62 *
63 */

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.26