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

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

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

revision 1028 by gross, Wed Mar 14 00:15:24 2007 UTC revision 1312 by ksteube, Mon Sep 24 06:18:44 2007 UTC
# Line 1  Line 1 
 /* $Id$ */  
1    
2    /* $Id$ */
3    
4  /*  /*******************************************************
5  ********************************************************************************   *
6  *               Copyright   2006 by ACcESS MNRF                                *   *           Copyright 2003-2007 by ACceSS MNRF
7  *                                                                              *   *       Copyright 2007 by University of Queensland
8  *                 http://www.access.edu.au                                     *   *
9  *           Primary Business: Queensland, Australia                            *   *                http://esscc.uq.edu.au
10  *     Licensed under the Open Software License version 3.0             *   *        Primary Business: Queensland, Australia
11  *        http://www.opensource.org/licenses/osl-3.0.php                        *   *  Licensed under the Open Software License version 3.0
12  ********************************************************************************   *     http://www.opensource.org/licenses/osl-3.0.php
13  */   *
14     *******************************************************/
15    
16  /*  /*
17  *  Purpose  *  Purpose
# Line 85  err_t Paso_Solver_GMRES( Line 86  err_t Paso_Solver_GMRES(
86    
87        
88    /* adapt original routine parameters */    /* adapt original routine parameters */
89      n = Paso_SystemMatrix_getTotalNumRows(A);
   n=A->num_cols * A-> col_block_size;  
90    Length_of_mem=MAX(Length_of_recursion,0)+1;    Length_of_mem=MAX(Length_of_recursion,0)+1;
91    
   
92    /*     Test the input parameters. */    /*     Test the input parameters. */
93    if (restart>0) restart=MAX(Length_of_recursion,restart);    if (restart>0) restart=MAX(Length_of_recursion,restart);
94    if (n < 0 || Length_of_recursion<=0) {    if (n < 0 || Length_of_recursion<=0) {

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

  ViewVC Help
Powered by ViewVC 1.1.26