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

Diff of /trunk/paso/src/SolverFCT_FluxControl.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1562 by gross, Wed May 21 13:04:40 2008 UTC revision 1811 by ksteube, Thu Sep 25 23:11:13 2008 UTC
# Line 1  Line 1 
 /* $Id:$ */  
1    
2  /*******************************************************  /*******************************************************
3   *  *
4   *       Copyright 2007 by University of Queensland  * Copyright (c) 2003-2008 by University of Queensland
5   *  * Earth Systems Science Computational Center (ESSCC)
6   *                http://esscc.uq.edu.au  * http://www.uq.edu.au/esscc
7   *        Primary Business: Queensland, Australia  *
8   *  Licensed under the Open Software License version 3.0  * Primary Business: Queensland, Australia
9   *     http://www.opensource.org/licenses/osl-3.0.php  * 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    
# Line 44  Line 45 
45    
46  void Paso_FCTransportProblem_setLowOrderOperator(Paso_FCTransportProblem * fc) {  void Paso_FCTransportProblem_setLowOrderOperator(Paso_FCTransportProblem * fc) {
47    dim_t n=Paso_SystemMatrix_getTotalNumRows(fc->transport_matrix),i;    dim_t n=Paso_SystemMatrix_getTotalNumRows(fc->transport_matrix),i;
48    index_t color, iptr_ij,j,iptr_ji;    index_t iptr_ij,j,iptr_ji;
49    Paso_SystemMatrixPattern *pattern;    Paso_SystemMatrixPattern *pattern;
50    register double d_ij, sum, rtmp1, rtmp2;    register double d_ij, sum, rtmp1, rtmp2;
51    

Legend:
Removed from v.1562  
changed lines
  Added in v.1811

  ViewVC Help
Powered by ViewVC 1.1.26