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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 3792 - (show annotations)
Wed Feb 1 06:16:25 2012 UTC (7 years, 6 months ago) by caltinay
File MIME type: text/plain
File size: 1760 byte(s)
Merged ripley rectangular domain into trunk.

1
2 /*******************************************************
3 *
4 * Copyright (c) 2003-2010 by University of Queensland
5 * Earth Systems Science Computational Center (ESSCC)
6 * http://www.uq.edu.au/esscc
7 *
8 * Primary Business: Queensland, Australia
9 * Licensed under the Open Software License version 3.0
10 * http://www.opensource.org/licenses/osl-3.0.php
11 *
12 *******************************************************/
13
14 /**************************************************************/
15
16 /* Dudley finite element solver */
17
18 /**************************************************************/
19
20 #include "Dudley.h"
21
22 /* This function returns a time mark */
23 double Dudley_timer(void)
24 {
25 return Esys_timer();
26 }
27
28 /* This function checks if the pointer ptr has a target. If not an
29 error is raised and TRUE is returned. */
30 bool_t Dudley_checkPtr(void *arg)
31 {
32 return Esys_checkPtr(arg);
33 }
34
35 /* reset the error to NO_ERROR */
36 void Dudley_resetError(void)
37 {
38 Esys_resetError();
39 }
40
41 /* sets an error */
42 void Dudley_setError(Dudley_ErrorCodeType err, __const char *msg)
43 {
44 Esys_setError(err, msg);
45 }
46
47 /* checks if there is no error */
48 bool_t Dudley_noError(void)
49 {
50 return Esys_noError();
51 }
52
53 /* return the error code */
54 Dudley_ErrorCodeType Dudley_getErrorType(void)
55 {
56 return Esys_getErrorType();
57 }
58
59 /* return the error message */
60 char *Dudley_getErrorMessage(void)
61 {
62 return Esys_getErrorMessage();
63 }
64
65 /* return the error message */
66 void Dudley_convertPasoError(void)
67 {
68 /* nothing has to be done here */
69 }
70
71 /* checks that there is no error accross all processes in a communicator */
72 /* NOTE : does not make guarentee consistency of error string on each process */
73 bool_t Dudley_MPI_noError(Esys_MPIInfo * mpi_info)
74 {
75 return Esys_MPIInfo_noError(mpi_info);
76 }

Properties

Name Value
svn:eol-style native
svn:keywords Author Date Id Revision
svn:mergeinfo /branches/lapack2681/finley/src/Finley.c:2682-2741 /branches/pasowrap/dudley/src/Dudley.c:3661-3674 /branches/restext/finley/src/Finley.c:2610-2624 /branches/ripleygmg_from_3668/dudley/src/Dudley.c:3669-3791 /branches/stage3.0/finley/src/Finley.c:2569-2590 /release/3.0/finley/src/Finley.c:2591-2601

  ViewVC Help
Powered by ViewVC 1.1.26