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

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

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

revision 430 by gross, Wed Jan 11 06:40:50 2006 UTC revision 633 by dhawcroft, Thu Mar 23 05:37:00 2006 UTC
# Line 1  Line 1 
1  /* $Id$ */  /* $Id$ */
2    
3    
4    /*
5    ********************************************************************************
6    *               Copyright   2006 by ACcESS MNRF                                *
7    *                                                                              *
8    *                 http://www.access.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: RILU preconditioner with reordering                 */  /* Paso: RILU preconditioner with reordering                 */
# Line 13  Line 25 
25    
26  #include "Paso.h"  #include "Paso.h"
27  #include "Solver.h"  #include "Solver.h"
28  #include "Util.h"  #include "PasoUtil.h"
29    
30  /**************************************************************/  /**************************************************************/
31    
# Line 90  Paso_Solver_RILU* Paso_Solver_getRILU(Pa Line 102  Paso_Solver_RILU* Paso_Solver_getRILU(Pa
102    if ( !(Paso_checkPtr(mis_marker) || Paso_checkPtr(out) || Paso_checkPtr(counter) ) ) {    if ( !(Paso_checkPtr(mis_marker) || Paso_checkPtr(out) || Paso_checkPtr(counter) ) ) {
103       /* identify independend set of rows/columns */       /* identify independend set of rows/columns */
104       time0=Paso_timer();       time0=Paso_timer();
105         #pragma omp parallel for private(i) schedule(static)
106         for (i=0;i<n;++i) mis_marker[i]=-1;
107       Paso_SystemMatrixPattern_mis(A_p->pattern,mis_marker);       Paso_SystemMatrixPattern_mis(A_p->pattern,mis_marker);
108       time2=Paso_timer()-time0;       time2=Paso_timer()-time0;
109       if (Paso_noError()) {       if (Paso_noError()) {

Legend:
Removed from v.430  
changed lines
  Added in v.633

  ViewVC Help
Powered by ViewVC 1.1.26