finley/src/Finley.c


/*******************************************************
*
* Copyright (c) 2003-2008 by University of Queensland
* Earth Systems Science Computational Center (ESSCC)
* http://www.uq.edu.au/esscc
*
* Primary Business: Queensland, Australia
* Licensed under the Open Software License version 3.0
* http://www.opensource.org/licenses/osl-3.0.php
*
*******************************************************/


/**************************************************************/

/*    Finley finite element solver */

/**************************************************************/

#include "Finley.h"

/* This function returns a time mark */
double Finley_timer(void) {
   return Paso_timer();
}

/* This function checks if the pointer ptr has a target. If not an
   error is raised and TRUE is returned. */
bool_t Finley_checkPtr(void* arg) {
   return Paso_checkPtr(arg);
}

/* reset the error to NO_ERROR */
void Finley_resetError(void) {
  Paso_resetError();
}

/* sets an error */
void Finley_setError(Finley_ErrorCodeType err,__const char* msg) {
  Paso_setError(err,msg);
}

/* checks if there is no error */
bool_t Finley_noError(void) {
   return Paso_noError();
}

/* return the error code */
Finley_ErrorCodeType Finley_getErrorType(void) {
    return Paso_getErrorType();
}

/* return the error message */
char* Finley_getErrorMessage(void) {
  return Paso_getErrorMessage();
}
/* return the error message */
void Finley_convertPasoError(void) {
  /* nothing has to be done here */
}

/* checks that there is no error accross all processes in a communicator */
/* NOTE : does not make guarentee consistency of error string on each process */
bool_t Finley_MPI_noError( Paso_MPIInfo *mpi_info )
{
    return Paso_MPIInfo_noError( mpi_info );
}


1
2	/*******************************************************
3	*
4	* Copyright (c) 2003-2008 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
17	/* Finley finite element solver */
18
19	/**************************************************************/
20
21	#include "Finley.h"
22
23	/* This function returns a time mark */
24	double Finley_timer(void) {
25	return Paso_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 Finley_checkPtr(void* arg) {
31	return Paso_checkPtr(arg);
32	}
33
34	/* reset the error to NO_ERROR */
35	void Finley_resetError(void) {
36	Paso_resetError();
37	}
38
39	/* sets an error */
40	void Finley_setError(Finley_ErrorCodeType err,__const char* msg) {
41	Paso_setError(err,msg);
42	}
43
44	/* checks if there is no error */
45	bool_t Finley_noError(void) {
46	return Paso_noError();
47	}
48
49	/* return the error code */
50	Finley_ErrorCodeType Finley_getErrorType(void) {
51	return Paso_getErrorType();
52	}
53
54	/* return the error message */
55	char* Finley_getErrorMessage(void) {
56	return Paso_getErrorMessage();
57	}
58	/* return the error message */
59	void Finley_convertPasoError(void) {
60	/* nothing has to be done here */
61	}
62
63	/* 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 */
65	bool_t Finley_MPI_noError( Paso_MPIInfo *mpi_info )
66	{
67	return Paso_MPIInfo_noError( mpi_info );
68	}
69
70
Name	Value
svn:eol-style	native
svn:keywords	Author Date Id Revision