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

Annotation of /trunk/paso/src/ReactiveSolver.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2987 - (hide annotations)
Tue Mar 16 01:32:43 2010 UTC (10 years, 7 months ago) by gross
File MIME type: text/plain
File size: 1499 byte(s)
FCT solver rewritten
1 gross 2987
2     /*******************************************************
3     *
4     * Copyright (c) 2003-2010 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     /* Paso: reactive solver (D is a diagonal matrix)
18     *
19     * - Mv_t=Dv+q v(0)=u
20     *
21     * to return v(dt)
22     *
23     */
24    
25     /**************************************************************/
26    
27     /* Author: l.gross@uq.edu.au */
28    
29     /**************************************************************/
30    
31    
32     #include "ReactiveSolver.h"
33     #include "PasoUtil.h"
34     #include "Solver.h"
35    
36     err_t Paso_ReactiveSolver_solve(Paso_ReactiveSolver* support, Paso_TransportProblem* fctp, double* u, double dt, double* source, Paso_Options* options, Paso_Performance *pp)
37     {
38     return SOLVER_NO_ERROR;
39     }
40    
41     Paso_ReactiveSolver* Paso_ReactiveSolver_alloc(Paso_TransportProblem* fctp)
42     {
43     Paso_ReactiveSolver* out=NULL;
44     out=MEMALLOC(1,Paso_ReactiveSolver);
45     if (Paso_checkPtr(out)) return NULL;
46     return out;
47     }
48    
49     void Paso_ReactiveSolver_free(Paso_ReactiveSolver* in)
50     {
51     if (in!=NULL) {
52     MEMFREE(in);
53     }
54     }
55     double Paso_ReactiveSolver_getSafeTimeStepSize(Paso_TransportProblem* fctp)
56     {
57     return LARGE_POSITIVE_FLOAT;
58     }

  ViewVC Help
Powered by ViewVC 1.1.26