/[escript]/trunk/paso/src/SchurComplement.cpp
ViewVC logotype

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

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

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

  ViewVC Help
Powered by ViewVC 1.1.26