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

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

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

revision 940 by gross, Mon Jan 29 00:09:08 2007 UTC revision 1028 by gross, Wed Mar 14 00:15:24 2007 UTC
# Line 86  err_t Paso_Solver_BiCGStab( Line 86  err_t Paso_Solver_BiCGStab(
86    double beta,norm_of_residual,sum_1,sum_2,sum_3,sum_4,norm_of_residual_global;    double beta,norm_of_residual,sum_1,sum_2,sum_3,sum_4,norm_of_residual_global;
87    double alpha, omega, omegaNumtr, omegaDenumtr, rho, tol, rho1;    double alpha, omega, omegaNumtr, omegaDenumtr, rho, tol, rho1;
88    dim_t num_iter=0,maxit,num_iter_global;    dim_t num_iter=0,maxit,num_iter_global;
89    dim_t i0;    dim_t i0,n;
90    bool_t breakFlag=FALSE, maxIterFlag=FALSE, convergeFlag=FALSE;    bool_t breakFlag=FALSE, maxIterFlag=FALSE, convergeFlag=FALSE;
91    dim_t status = SOLVER_NO_ERROR;    dim_t status = SOLVER_NO_ERROR;
92      double *resid = tolerance;
93    /* adapt original routine parameters */    /* adapt original routine parameters */
94    dim_t n = A->num_cols * A-> col_block_size;;    n = A->num_cols * A-> col_block_size;;
   double * resid = tolerance;  
95    
96    /* Executable Statements */    /* Executable Statements */
97    

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

  ViewVC Help
Powered by ViewVC 1.1.26