/[escript]/trunk/paso/src/SolverFCT_Function.c
ViewVC logotype

Contents of /trunk/paso/src/SolverFCT_Function.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1651 - (show annotations)
Tue Jul 15 09:33:48 2008 UTC (11 years, 2 months ago) by phornby
File MIME type: text/plain
File size: 1078 byte(s)
Altix:

remove remaining warnings involving printf's and functions not returning values.
Only warnings left are in boost, and warnings that optimisation is turned off on big files.


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

  ViewVC Help
Powered by ViewVC 1.1.26