/[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 1027 by ksteube, Wed Feb 14 04:40:49 2007 UTC revision 1028 by gross, Wed Mar 14 00:15:24 2007 UTC
# Line 46  void Paso_solve(Paso_SystemMatrix* A, Line 46  void Paso_solve(Paso_SystemMatrix* A,
46                                 double* in,                                 double* in,
47                                 Paso_Options* options) {                                 Paso_Options* options) {
48    Paso_Performance pp;    Paso_Performance pp;
49      index_t package;
50    Paso_resetError();    Paso_resetError();
51    if (A->num_rows!=A->num_cols || A->col_block_size!=A->row_block_size) {    if (A->num_rows!=A->num_cols || A->col_block_size!=A->row_block_size) {
52         Paso_setError(VALUE_ERROR,"Paso_solve: matrix has to be a square matrix.");         Paso_setError(VALUE_ERROR,"Paso_solve: matrix has to be a square matrix.");
53         return;         return;
54    }    }
55    Performance_open(&pp,options->verbose);    Performance_open(&pp,options->verbose);
56    index_t package=Paso_Options_getPackage(options->method,options->package,options->symmetric);    package=Paso_Options_getPackage(options->method,options->package,options->symmetric);
57    if (Paso_noError()) {    if (Paso_noError()) {
58       switch(package) {       switch(package) {
59    

Legend:
Removed from v.1027  
changed lines
  Added in v.1028

  ViewVC Help
Powered by ViewVC 1.1.26