/[escript]/branches/domexper/dudley/src/Dudley.c
ViewVC logotype

Diff of /branches/domexper/dudley/src/Dudley.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

trunk/finley/src/Finley.c revision 730 by bcumming, Mon May 15 04:03:49 2006 UTC branches/domexper/dudley/src/Dudley.c revision 3227 by jfenwick, Thu Sep 30 06:07:08 2010 UTC
# Line 1  Line 1 
 /*  
  ************************************************************  
  *          Copyright 2006 by ACcESS MNRF                   *  
  *                                                          *  
  *              http://www.access.edu.au                    *  
  *       Primary Business: Queensland, Australia            *  
  *  Licensed under the Open Software License version 3.0    *  
  *     http://www.opensource.org/licenses/osl-3.0.php       *  
  *                                                          *  
  ************************************************************  
 */  
1    
2  /**************************************************************/  /*******************************************************
3    *
4  /*    Finley finite element solver */  * 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  /*  Author: gross@access.edu.au */  /*    Dudley finite element solver */
 /*  Version: $Id$ */  
17    
18  /**************************************************************/  /**************************************************************/
19    
20  #include "Finley.h"  #include "Dudley.h"
   
21    
22  /* This function returns a time mark */  /* This function returns a time mark */
23  double Finley_timer(void) {  double Dudley_timer(void)
24     return Paso_timer();  {
25        return Esys_timer();
26  }  }
27    
28  /* This function checks if the pointer ptr has a target. If not an  /* This function checks if the pointer ptr has a target. If not an
29     error is raised and TRUE is returned. */     error is raised and TRUE is returned. */
30  bool_t Finley_checkPtr(void* arg) {  bool_t Dudley_checkPtr(void *arg)
31     return Paso_checkPtr(arg);  {
32        return Esys_checkPtr(arg);
33  }  }
34    
35  /* reset the error to NO_ERROR */  /* reset the error to NO_ERROR */
36  void Finley_resetError(void) {  void Dudley_resetError(void)
37    Paso_resetError();  {
38        Esys_resetError();
39  }  }
40    
41  /* sets an error */  /* sets an error */
42  void Finley_setError(Finley_ErrorCodeType err,char* msg) {  void Dudley_setError(Dudley_ErrorCodeType err, __const char *msg)
43    Paso_setError(err,msg);  {
44        Esys_setError(err, msg);
45  }  }
46    
47  /* checks if there is no error */  /* checks if there is no error */
48  bool_t Finley_noError(void) {  bool_t Dudley_noError(void)
49     return Paso_noError();  {
50        return Esys_noError();
51  }  }
52    
53  /* return the error code */  /* return the error code */
54  Finley_ErrorCodeType Finley_getErrorType(void) {  Dudley_ErrorCodeType Dudley_getErrorType(void)
55      return Paso_getErrorType();  {
56        return Esys_getErrorType();
57  }  }
58    
59  /* return the error message */  /* return the error message */
60  char* Finley_getErrorMessage(void) {  char *Dudley_getErrorMessage(void)
61    return Paso_getErrorMessage();  {
62        return Esys_getErrorMessage();
63  }  }
64    
65  /* return the error message */  /* return the error message */
66  void Finley_convertPasoError(void) {  void Dudley_convertPasoError(void)
67    /* nothing has to be done here */  {
68        /* nothing has to be done here */
69  }  }
70    
 #ifdef PASO_MPI  
71  /* checks that there is no error accross all processes in a communicator */  /* 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 */  /* NOTE : does not make guarentee consistency of error string on each process */
73  bool_t Finley_MPI_noError( Paso_MPIInfo *mpi_info )  bool_t Dudley_MPI_noError(Esys_MPIInfo * mpi_info)
74  {  {
75      return Paso_MPI_noError( mpi_info );      return Esys_MPIInfo_noError(mpi_info);
76  }  }
 #endif  
   
   
 /**************************************************************/  
   
   
 /*  
  * $Log$  
  * Revision 1.3  2005/09/15 03:44:22  jgs  
  * Merge of development branch dev-02 back to main trunk on 2005-09-15  
  *  
  * Revision 1.2.2.1  2005/09/07 06:26:18  gross  
  * the solver from finley are put into the standalone package paso now  
  *  
  * Revision 1.2  2005/07/08 04:07:50  jgs  
  * Merge of development branch back to main trunk on 2005-07-08  
  *  
  * Revision 1.1.1.1.2.1  2005/06/29 02:34:50  gross  
  * some changes towards 64 integers in finley  
  *  
  * Revision 1.1.1.1  2004/10/26 06:53:57  jgs  
  * initial import of project esys2  
  *  
  * Revision 1.2  2004/07/02 04:21:13  gross  
  * Finley C code has been included  
  *  
  * Revision 1.1.1.1  2004/06/24 04:00:40  johng  
  * Initial version of eys using boost-python.  
  *  
  *  
  */  

Legend:
Removed from v.730  
changed lines
  Added in v.3227

  ViewVC Help
Powered by ViewVC 1.1.26