# Diff of /trunk/paso/src/SchurComplement.cpp

revision 4828 by caltinay, Wed Mar 26 06:52:28 2014 UTC revision 4829 by caltinay, Thu Apr 3 04:02:53 2014 UTC
# Line 15  Line 15
15  *****************************************************************************/  *****************************************************************************/
16
17
18  /************************************************************************************/  /****************************************************************************/
19
20  /* Paso: updates A_CC <- ACC-ACF AFF^{-1} AFC                 */  /* Paso: updates A_CC <- ACC-ACF AFF^{-1} AFC                 */
21
22  /* no check of consistency of matrices !!!!                   */  /* no check of consistency of matrices !!!!                   */
23
24  /************************************************************************************/  /****************************************************************************/
25
26  /* Copyrights by ACcESS Australia 2003,2004,2005              */  /* Copyrights by ACcESS Australia 2003,2004,2005              */
27  /* Author: Lutz Gross, l.gross@uq.edu.au                      */  /* Author: Lutz Gross, l.gross@uq.edu.au                      */
28
29  /************************************************************************************/  /****************************************************************************/
30
31  #include "Paso.h"  #include "Paso.h"
32  #include "SparseMatrix.h"  #include "SparseMatrix.h"
33  #include "Solver.h"  #include "Solver.h"
34
35  /************************************************************************************/  /****************************************************************************/
36
37
38    void Paso_Solver_updateIncompleteSchurComplement(paso::SparseMatrix_ptr A_CC,
39  void Paso_Solver_updateIncompleteSchurComplement(paso::SparseMatrix* A_CC,paso::SparseMatrix *A_CF,double* invA_FF,index_t* A_FF_pivot,paso::SparseMatrix *A_FC) {          paso::SparseMatrix_ptr A_CF, double* invA_FF, index_t* A_FF_pivot,
40            paso::SparseMatrix_ptr A_FC)
41    {
42    index_t iPtr_CC,*index_CC,col_CF,col_FC, *where_p,iPtr_CC_2,i,iPtr_CF,iPtr_FC;    index_t iPtr_CC,*index_CC,col_CF,col_FC, *where_p,iPtr_CC_2,i,iPtr_CF,iPtr_FC;
43    dim_t index_CC_len;    dim_t index_CC_len;
44    bool set_A;    bool set_A;
# Line 197  void Paso_Solver_updateIncompleteSchurCo Line 198  void Paso_Solver_updateIncompleteSchurCo
198        } /* end of irow loop */        } /* end of irow loop */
199     }     }
200  }  }
201  /*
* \$Log\$
* Revision 1.2  2005/09/15 03:44:40  jgs
* Merge of development branch dev-02 back to main trunk on 2005-09-15
*
* Revision 1.1.2.1  2005/09/05 06:29:50  gross
* These files have been extracted from finley to define a stand alone library for iterative
* linear solvers on the ALTIX. main entry through Paso_solve. this version compiles but
* has not been tested yet.
*
*
*/

Legend:
 Removed from v.4828 changed lines Added in v.4829