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

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

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

revision 3082 by jfenwick, Tue Aug 3 06:04:05 2010 UTC revision 3086 by jfenwick, Thu Aug 5 05:07:58 2010 UTC
# Line 14  Line 14 
14    
15  /**************************************************************/  /**************************************************************/
16    
17  /*    Finley finite element solver */  /*    Dudley finite element solver */
18    
19  /**************************************************************/  /**************************************************************/
20    
21  #include "Dudley.h"  #include "Dudley.h"
22    
23  /* This function returns a time mark */  /* This function returns a time mark */
24  double Finley_timer(void) {  double Dudley_timer(void) {
25     return Paso_timer();     return Paso_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);     return Paso_checkPtr(arg);
32  }  }
33    
34  /* reset the error to NO_ERROR */  /* reset the error to NO_ERROR */
35  void Finley_resetError(void) {  void Dudley_resetError(void) {
36    Paso_resetError();    Paso_resetError();
37  }  }
38    
39  /* sets an error */  /* sets an error */
40  void Finley_setError(Finley_ErrorCodeType err,__const char* msg) {  void Dudley_setError(Dudley_ErrorCodeType err,__const char* msg) {
41    Paso_setError(err,msg);    Paso_setError(err,msg);
42  }  }
43    
44  /* checks if there is no error */  /* checks if there is no error */
45  bool_t Finley_noError(void) {  bool_t Dudley_noError(void) {
46     return Paso_noError();     return Paso_noError();
47  }  }
48    
49  /* return the error code */  /* return the error code */
50  Finley_ErrorCodeType Finley_getErrorType(void) {  Dudley_ErrorCodeType Dudley_getErrorType(void) {
51      return Paso_getErrorType();      return Paso_getErrorType();
52  }  }
53    
54  /* return the error message */  /* return the error message */
55  char* Finley_getErrorMessage(void) {  char* Dudley_getErrorMessage(void) {
56    return Paso_getErrorMessage();    return Paso_getErrorMessage();
57  }  }
58  /* return the error message */  /* return the error message */
59  void Finley_convertPasoError(void) {  void Dudley_convertPasoError(void) {
60    /* nothing has to be done here */    /* nothing has to be done here */
61  }  }
62    
63  /* checks that there is no error accross all processes in a communicator */  /* checks that there is no error accross all processes in a communicator */
64  /* NOTE : does not make guarentee consistency of error string on each process */  /* NOTE : does not make guarentee consistency of error string on each process */
65  bool_t Finley_MPI_noError( Paso_MPIInfo *mpi_info )  bool_t Dudley_MPI_noError( Paso_MPIInfo *mpi_info )
66  {  {
67      return Paso_MPIInfo_noError( mpi_info );      return Paso_MPIInfo_noError( mpi_info );
68  }  }

Legend:
Removed from v.3082  
changed lines
  Added in v.3086

  ViewVC Help
Powered by ViewVC 1.1.26