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

trunk/finley/src/Finley.c revision 751 by bcumming, Mon Jun 26 01:46:34 2006 UTC temp/finley/src/Finley.c revision 1387 by trankine, Fri Jan 11 07:45:26 2008 UTC
# Line 1  Line 1
/*
************************************************************
*          Copyright 2006 by ACcESS MNRF                   *
*                                                          *
*              http://www.access.edu.au                    *
*       Primary Business: Queensland, Australia            *
*                                                          *
************************************************************
*/
1
2  /**************************************************************/  /* \$Id\$ */
3
4  /*    Finley finite element solver */  /*******************************************************
5     *
6     *           Copyright 2003-2007 by ACceSS MNRF
7     *       Copyright 2007 by University of Queensland
8     *
9     *                http://esscc.uq.edu.au
10     *        Primary Business: Queensland, Australia
13     *
14     *******************************************************/
15
16  /**************************************************************/  /**************************************************************/
17
18  /*  Author: gross@access.edu.au */  /*    Finley finite element solver */
/*  Version: \$Id\$ */
19
20  /**************************************************************/  /**************************************************************/
21
22  #include "Finley.h"  #include "Finley.h"
23
#ifdef PASO_MPI
int __g_nodeTag    = FINLEY_NODE_TAG;
int __g_elementTag = FINLEY_ELEMENT_TAG;
#endif

24  /* This function returns a time mark */  /* This function returns a time mark */
25  double Finley_timer(void) {  double Finley_timer(void) {
26     return Paso_timer();     return Paso_timer();
# Line 68  void Finley_convertPasoError(void) { Line 61  void Finley_convertPasoError(void) {
61    /* nothing has to be done here */    /* nothing has to be done here */
62  }  }
63
#ifdef PASO_MPI
64  /* checks that there is no error accross all processes in a communicator */  /* checks that there is no error accross all processes in a communicator */
65  /* NOTE : does not make guarentee consistency of error string on each process */  /* NOTE : does not make guarentee consistency of error string on each process */
66  bool_t Finley_MPI_noError( Paso_MPIInfo *mpi_info )  bool_t Finley_MPI_noError( Paso_MPIInfo *mpi_info )
67  {  {
68      return Paso_MPI_noError( mpi_info );      return Paso_MPIInfo_noError( mpi_info );
69  }  }
#endif

/**************************************************************/
70
71
/*
* \$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.751 changed lines Added in v.1387