escript
Revision_
|
00001 00002 /***************************************************************************** 00003 * 00004 * Copyright (c) 2003-2014 by University of Queensland 00005 * http://www.uq.edu.au 00006 * 00007 * Primary Business: Queensland, Australia 00008 * Licensed under the Open Software License version 3.0 00009 * http://www.opensource.org/licenses/osl-3.0.php 00010 * 00011 * Development until 2012 by Earth Systems Science Computational Center (ESSCC) 00012 * Development 2012-2013 by School of Earth Sciences 00013 * Development from 2014 by Centre for Geoscience Computing (GeoComp) 00014 * 00015 *****************************************************************************/ 00016 00017 #ifndef INC_DUDLEY 00018 #define INC_DUDLEY 00019 00020 /************************************************************************************/ 00021 00022 /* Dudley finite element solver */ 00023 00024 /************************************************************************************/ 00025 00026 #include "esysUtils/types.h" 00027 #include "esysUtils/Esys_MPI.h" 00028 #include "esysUtils/error.h" 00029 #include <cstring> 00030 00031 /************************************************************************************/ 00032 /*#define Dudley_TRACE */ 00033 #define DUDLEY_UNKNOWN -1 00034 #define DUDLEY_DEGREES_OF_FREEDOM 1 00035 #define DUDLEY_NODES 3 00036 #define DUDLEY_ELEMENTS 4 00037 #define DUDLEY_FACE_ELEMENTS 5 00038 #define DUDLEY_POINTS 6 00039 #define DUDLEY_REDUCED_DEGREES_OF_FREEDOM 2 00040 #define DUDLEY_REDUCED_NODES 14 00041 #define DUDLEY_REDUCED_ELEMENTS 10 00042 #define DUDLEY_REDUCED_FACE_ELEMENTS 11 00043 00044 /* status stuff */ 00045 typedef int Dudley_Status_t; 00046 #define Dudley_increaseStatus(self) ((self)->status)++ 00047 #define DUDLEY_INITIAL_STATUS 0 00048 00049 /* error codes */ 00050 00051 typedef Esys_ErrorCodeType Dudley_ErrorCodeType; 00052 00053 /* interfaces */ 00054 00055 double Dudley_timer(void); 00056 bool Dudley_checkPtr(void *); 00057 void Dudley_resetError(void); 00058 void Dudley_setError(Dudley_ErrorCodeType err, __const char *msg); 00059 bool Dudley_noError(void); 00060 Dudley_ErrorCodeType Dudley_getErrorType(void); 00061 char *Dudley_getErrorMessage(void); 00062 void Dudley_convertPasoError(void); 00063 bool Dudley_MPI_noError(Esys_MPIInfo * mpi_info); 00064 void Dudley_setTagsInUse(const index_t Tag, const dim_t numTags, dim_t * numTagsInUse, index_t ** tagsInUse, 00065 Esys_MPIInfo * mpiinfo); 00066 00067 #endif /* #ifndef INC_DUDLEY */