/[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 1985 by jfenwick, Thu Nov 6 02:40:10 2008 UTC revision 1986 by jfenwick, Thu Nov 6 23:33:14 2008 UTC
# Line 83  err_t Paso_Solver_BiCGStab( Line 83  err_t Paso_Solver_BiCGStab(
83    
84    
85    /* Local variables */    /* Local variables */
86    double *rtld=NULL,*p=NULL,*v=NULL,*t=NULL,*phat=NULL,*shat=NULL,*s=NULL, *buf1=NULL, *buf0=NULL;    double *rtld=NULL,*p=NULL,*v=NULL,*t=NULL,*phat=NULL,*shat=NULL,*s=NULL;/*, *buf1=NULL, *buf0=NULL;*/
87    double beta,norm_of_residual,sum_1,sum_2,sum_3,sum_4,norm_of_residual_global;    double beta,norm_of_residual=0,sum_1,sum_2,sum_3,sum_4,norm_of_residual_global=0;
88    double alpha, omega, omegaNumtr, omegaDenumtr, rho, tol, rho1;    double alpha=0, omega=0, omegaNumtr, omegaDenumtr, rho, tol, rho1=0;
89  #ifdef PASO_MPI  #ifdef PASO_MPI
90    double loc_sum[2], sum[2];    double loc_sum[2], sum[2];
91  #endif  #endif
92    dim_t num_iter=0,maxit,num_iter_global;    dim_t num_iter=0,maxit,num_iter_global=0;
93    dim_t i0;    dim_t i0;
94    bool_t breakFlag=FALSE, maxIterFlag=FALSE, convergeFlag=FALSE;    bool_t breakFlag=FALSE, maxIterFlag=FALSE, convergeFlag=FALSE;
95    dim_t status = SOLVER_NO_ERROR;    dim_t status = SOLVER_NO_ERROR;

Legend:
Removed from v.1985  
changed lines
  Added in v.1986

  ViewVC Help
Powered by ViewVC 1.1.26