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

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

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

revision 1916 by artak, Wed Oct 22 03:54:14 2008 UTC revision 1917 by phornby, Thu Oct 23 09:09:31 2008 UTC
# Line 25  Line 25 
25  #include "Paso.h"  #include "Paso.h"
26  #include "Solver.h"  #include "Solver.h"
27  #include "PasoUtil.h"  #include "PasoUtil.h"
28    #include "Pattern_coupling.h"
29    
30  /**************************************************************/  /**************************************************************/
31    
# Line 79  Paso_Solver_AMG* Paso_Solver_getAMG(Paso Line 80  Paso_Solver_AMG* Paso_Solver_getAMG(Paso
80    Paso_SparseMatrix * schur=NULL;    Paso_SparseMatrix * schur=NULL;
81    Paso_SparseMatrix * schur_withFillIn=NULL;    Paso_SparseMatrix * schur_withFillIn=NULL;
82    Paso_Pattern* mult=NULL;    Paso_Pattern* mult=NULL;
83    double A11,A12,A13,A21,A22,A23,A31,A32,A33,D,time0,time1,time2,S;    double time0,time1,time2,S;
84        
85    /* identify independend set of rows/columns */    /* identify independend set of rows/columns */
86    mis_marker=TMPMEMALLOC(n,index_t);    mis_marker=TMPMEMALLOC(n,index_t);
# Line 159  Paso_Solver_AMG* Paso_Solver_getAMG(Paso Line 160  Paso_Solver_AMG* Paso_Solver_getAMG(Paso
160                }                }
161                fprintf(stderr,"\n MATRIX END\n");                fprintf(stderr,"\n MATRIX END\n");
162  */                */              
163                #pragma omp for private(i, where_p,iPtr,A11,A12,A13,A21,A22,A23,A31,A32,A33,D,index) schedule(static)                #pragma omp for private(i, where_p,iPtr,index) schedule(static)
164                for (i = 0; i < out->n_F; i++) {                for (i = 0; i < out->n_F; i++) {
165                  /* find main diagonal */                  /* find main diagonal */
166                  iPtr=A_p->pattern->ptr[out->rows_in_F[i]];                  iPtr=A_p->pattern->ptr[out->rows_in_F[i]];

Legend:
Removed from v.1916  
changed lines
  Added in v.1917

  ViewVC Help
Powered by ViewVC 1.1.26