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

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

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

revision 1811 by ksteube, Thu Sep 25 23:11:13 2008 UTC revision 1902 by artak, Wed Oct 22 03:54:14 2008 UTC
# Line 56  void Paso_Solver_updateIncompleteSchurCo Line 56  void Paso_Solver_updateIncompleteSchurCo
56               for (iPtr_FC = A_FC->pattern->ptr[col_CF]; iPtr_FC < A_FC->pattern->ptr[col_CF + 1]; ++iPtr_FC) {               for (iPtr_FC = A_FC->pattern->ptr[col_CF]; iPtr_FC < A_FC->pattern->ptr[col_CF + 1]; ++iPtr_FC) {
57                  col_FC=A_FC->pattern->index[iPtr_FC];                  col_FC=A_FC->pattern->index[iPtr_FC];
58                  /* is (i,col_FC) in the shape of A_CC ? */                  /* is (i,col_FC) in the shape of A_CC ? */
59                  where_p=(index_t*)bsearch(&col_FC,index_CC,index_CC_len,sizeof(index_t),Paso_comparIndex);                 where_p=(index_t*)bsearch(&col_FC,index_CC,index_CC_len,sizeof(index_t),Paso_comparIndex);
60                  if (where_p!=NULL) {                  if (where_p!=NULL) {
61                      if (set_A) {                      if (set_A) {
62                         A11=A_CF->val[iPtr_CF]*invA_FF[col_CF];                         A11=A_CF->val[iPtr_CF]*invA_FF[col_CF];
63                         set_A=FALSE;                         set_A=FALSE;
# Line 205  void Paso_Solver_updateIncompleteSchurCo Line 205  void Paso_Solver_updateIncompleteSchurCo
205   * has not been tested yet.   * has not been tested yet.
206   *   *
207   *   *
208   */   */

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

  ViewVC Help
Powered by ViewVC 1.1.26