paso/src/SolverFCT_Function.c

/* $Id:$ */

/*******************************************************
 *
 *       Copyright 2008 by University of Queensland
 *
 *                http://esscc.uq.edu.au
 *        Primary Business: Queensland, Australia
 *  Licensed under the Open Software License version 3.0
 *     http://www.opensource.org/licenses/osl-3.0.php
 *
 *******************************************************/

#include "Common.h"
#include "SolverFCT.h"
#include "PasoUtil.h"

/*
 * these are the calls to allocate, free and call the function dfineing the FCT eqution
 *
 */
Paso_Function * Paso_Function_FCT_alloc(Paso_MPIInfo *mpi_info)
{
    Paso_Function * out=NULL;
    out=MEMALLOC(1,Paso_Function);
    if (! Paso_checkPtr(out)) {
        out->kind=FCT;
    }
    if (Paso_noError()) {
        return out;
    } else {
        Paso_Function_FCT_free(out);
        return NULL;
    }
}
void Paso_Function_FCT_free(Paso_Function * F) 
{
   if (F!=NULL) {
       MEMFREE(F);
   }
}

err_t Paso_Function_FCT_call(Paso_Function * F,double* value, const double* arg)
{
   return SYSTEM_ERROR;
}

1	/* $Id:$ */
2
3	/*******************************************************
4	*
5	* Copyright 2008 by University of Queensland
6	*
7	* http://esscc.uq.edu.au
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	#include "Common.h"
15	#include "SolverFCT.h"
16	#include "PasoUtil.h"
17
18	/*
19	* these are the calls to allocate, free and call the function dfineing the FCT eqution
20	*
21	*/
22	Paso_Function * Paso_Function_FCT_alloc(Paso_MPIInfo *mpi_info)
23	{
24	Paso_Function * out=NULL;
25	out=MEMALLOC(1,Paso_Function);
26	if (! Paso_checkPtr(out)) {
27	out->kind=FCT;
28	}
29	if (Paso_noError()) {
30	return out;
31	} else {
32	Paso_Function_FCT_free(out);
33	return NULL;
34	}
35	}
36	void Paso_Function_FCT_free(Paso_Function * F)
37	{
38	if (F!=NULL) {
39	MEMFREE(F);
40	}
41	}
42
43	err_t Paso_Function_FCT_call(Paso_Function * F,double* value, const double* arg)
44	{
45	return SYSTEM_ERROR;
46	}
47