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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1417 - (hide annotations)
Mon Feb 25 04:45:48 2008 UTC (11 years, 7 months ago) by gross
File MIME type: text/plain
File size: 1016 byte(s)
some more work on the transport solver.
1 gross 1417
2     /* $Id$ */
3    
4     /*******************************************************
5     *
6     * Copyright 2008 by University of Queensland
7     *
8     * http://esscc.uq.edu.au
9     * Primary Business: Queensland, Australia
10     * Licensed under the Open Software License version 3.0
11     * http://www.opensource.org/licenses/osl-3.0.php
12     *
13     *******************************************************/
14    
15     /**************************************************************/
16    
17     /* Paso: Transort problem: reset operators */
18    
19     /**************************************************************/
20    
21     /* Author: l.gross@uq.edu.au */
22    
23     /**************************************************************/
24    
25     #include "SolverFCT.h"
26    
27     /**************************************************************/
28    
29     void Paso_FCTransportProblem_reset(Paso_FCTransportProblem* in)
30     {
31     Paso_SystemMatrix_setValues(in->transport_matrix, 0.);
32     Paso_SystemMatrix_setValues(in->mass_matrix, 0.);
33     Paso_solve_free(in->iteration_matrix);
34     in->valid_matrices=FALSE;
35     }

  ViewVC Help
Powered by ViewVC 1.1.26