/[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 2642 by jfenwick, Fri Aug 21 06:30:25 2009 UTC revision 2643 by artak, Wed Sep 2 00:10:00 2009 UTC
# Line 97  Paso_Solver_AMG* Paso_Solver_getAMG(Paso Line 97  Paso_Solver_AMG* Paso_Solver_getAMG(Paso
97    Paso_SparseMatrix * schur=NULL;    Paso_SparseMatrix * schur=NULL;
98    Paso_SparseMatrix * schur_withFillIn=NULL;    Paso_SparseMatrix * schur_withFillIn=NULL;
99    double S=0;    double S=0;
   char fname[6];  
100        
101    /*Make sure we have block sizes 1*/    /*Make sure we have block sizes 1*/
102    if (A_p->col_block_size>1) {    if (A_p->col_block_size>1) {
# Line 133  Paso_Solver_AMG* Paso_Solver_getAMG(Paso Line 132  Paso_Solver_AMG* Paso_Solver_getAMG(Paso
132       /*out->GS=Paso_Solver_getGS(A_p,verbose);*/       /*out->GS=Paso_Solver_getGS(A_p,verbose);*/
133       out->level=level;       out->level=level;
134            
        sprintf(fname,"A%d.mat",level);  
     
        Paso_SparseMatrix_saveMM(A_p,fname);  
     
135       if (level==0 || n<=options->min_coarse_matrix_size) {       if (level==0 || n<=options->min_coarse_matrix_size) {
136           out->coarsest_level=TRUE;           out->coarsest_level=TRUE;
137           #ifdef MKL           #ifdef MKL
Legend:
Removed from v.2642  
changed lines
  Added in v.2643
  ViewVC Help
Powered by ViewVC 1.1.26