/[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 806 by gross, Thu Aug 10 11:58:52 2006 UTC revision 969 by ksteube, Tue Feb 13 23:02:23 2007 UTC
# Line 39  Line 39 
39  #include "UMFPACK.h"  #include "UMFPACK.h"
40  #endif  #endif
41    
42    #ifdef TRILINOS
43    #include "TRILINOS.h"
44    #endif
45    
46  /**************************************************************/  /**************************************************************/
47    
48  void Paso_solve(Paso_SystemMatrix* A,  void Paso_solve(Paso_SystemMatrix* A,
# Line 52  void Paso_solve(Paso_SystemMatrix* A, Line 56  void Paso_solve(Paso_SystemMatrix* A,
56         return;         return;
57    }    }
58    Performance_open(&pp,options->verbose);    Performance_open(&pp,options->verbose);
59      printf("ksteube in paso/src/solve.c : Paso_solve\n");
60    index_t package=Paso_Options_getPackage(options->method,options->package,options->symmetric);    index_t package=Paso_Options_getPackage(options->method,options->package,options->symmetric);
61    if (Paso_noError()) {    if (Paso_noError()) {
62       switch(package) {       switch(package) {
63    
64          case PASO_PASO:          case PASO_PASO:
65              printf("ksteube in paso/src/solve.c : Paso_solve PASO_PASO\n");
66            Paso_Solver(A,out,in,options,&pp);            Paso_Solver(A,out,in,options,&pp);
67            A->solver_package=PASO_PASO;            A->solver_package=PASO_PASO;
68            break;            break;
# Line 83  void Paso_solve(Paso_SystemMatrix* A, Line 89  void Paso_solve(Paso_SystemMatrix* A,
89            break;            break;
90          #endif          #endif
91    
92            #ifdef TRILINOS
93            case PASO_TRILINOS:
94              printf("ksteube in paso/src/solve.c : Paso_solve PASO_TRILINOS\n");
95              Paso_TRILINOS(A,out,in,options,&pp);
96              A->solver_package=PASO_TRILINOS;
97              break;
98            #endif
99    
100          default:          default:
101             Paso_setError(VALUE_ERROR,"Paso_solve: unknown package code");             Paso_setError(VALUE_ERROR,"Paso_solve: unknown package code");
102             break;             break;
# Line 120  void Paso_solve_free(Paso_SystemMatrix* Line 134  void Paso_solve_free(Paso_SystemMatrix*
134            Paso_UMFPACK_free(in);            Paso_UMFPACK_free(in);
135            break;            break;
136          #endif          #endif
137    
138            #ifdef TRILINOS
139            case PASO_TRILINOS:
140              Paso_TRILINOS_free(in);
141              break;
142            #endif
143     }     }
144  }  }
145  /*  /*

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

  ViewVC Help
Powered by ViewVC 1.1.26