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

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

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

revision 969 by ksteube, Tue Feb 13 23:02:23 2007 UTC revision 971 by ksteube, Wed Feb 14 04:40:49 2007 UTC
# Line 39  Line 39 
39  #include "UMFPACK.h"  #include "UMFPACK.h"
40  #endif  #endif
41    
 #ifdef TRILINOS  
 #include "TRILINOS.h"  
 #endif  
   
42  /**************************************************************/  /**************************************************************/
43    
44  void Paso_solve(Paso_SystemMatrix* A,  void Paso_solve(Paso_SystemMatrix* A,
# Line 56  void Paso_solve(Paso_SystemMatrix* A, Line 52  void Paso_solve(Paso_SystemMatrix* A,
52         return;         return;
53    }    }
54    Performance_open(&pp,options->verbose);    Performance_open(&pp,options->verbose);
   printf("ksteube in paso/src/solve.c : Paso_solve\n");  
55    index_t package=Paso_Options_getPackage(options->method,options->package,options->symmetric);    index_t package=Paso_Options_getPackage(options->method,options->package,options->symmetric);
56    if (Paso_noError()) {    if (Paso_noError()) {
57       switch(package) {       switch(package) {
58    
59          case PASO_PASO:          case PASO_PASO:
           printf("ksteube in paso/src/solve.c : Paso_solve PASO_PASO\n");  
60            Paso_Solver(A,out,in,options,&pp);            Paso_Solver(A,out,in,options,&pp);
61            A->solver_package=PASO_PASO;            A->solver_package=PASO_PASO;
62            break;            break;
# Line 89  void Paso_solve(Paso_SystemMatrix* A, Line 83  void Paso_solve(Paso_SystemMatrix* A,
83            break;            break;
84          #endif          #endif
85    
         #ifdef TRILINOS  
         case PASO_TRILINOS:  
           printf("ksteube in paso/src/solve.c : Paso_solve PASO_TRILINOS\n");  
           Paso_TRILINOS(A,out,in,options,&pp);  
           A->solver_package=PASO_TRILINOS;  
           break;  
         #endif  
   
86          default:          default:
87             Paso_setError(VALUE_ERROR,"Paso_solve: unknown package code");             Paso_setError(VALUE_ERROR,"Paso_solve: unknown package code");
88             break;             break;
# Line 134  void Paso_solve_free(Paso_SystemMatrix* Line 120  void Paso_solve_free(Paso_SystemMatrix*
120            Paso_UMFPACK_free(in);            Paso_UMFPACK_free(in);
121            break;            break;
122          #endif          #endif
   
         #ifdef TRILINOS  
         case PASO_TRILINOS:  
           Paso_TRILINOS_free(in);  
           break;  
         #endif  
123     }     }
124  }  }
125  /*  /*

Legend:
Removed from v.969  
changed lines
  Added in v.971

  ViewVC Help
Powered by ViewVC 1.1.26