/[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 1985 by jfenwick, Thu Nov 6 02:40:10 2008 UTC revision 1986 by jfenwick, Thu Nov 6 23:33:14 2008 UTC
# Line 81  err_t Paso_Solver_GMRES( Line 81  err_t Paso_Solver_GMRES(
81    double *AP,**X_PRES,**R_PRES,**P_PRES, *dots, *loc_dots;    double *AP,**X_PRES,**R_PRES,**P_PRES, *dots, *loc_dots;
82    double *P_PRES_dot_AP,*R_PRES_dot_P_PRES,*BREAKF,*ALPHA;    double *P_PRES_dot_AP,*R_PRES_dot_P_PRES,*BREAKF,*ALPHA;
83    double R_PRES_dot_AP0,P_PRES_dot_AP0,P_PRES_dot_AP1,P_PRES_dot_AP2,P_PRES_dot_AP3,P_PRES_dot_AP4,P_PRES_dot_AP5,P_PRES_dot_AP6,R_PRES_dot_P,breakf0;    double R_PRES_dot_AP0,P_PRES_dot_AP0,P_PRES_dot_AP1,P_PRES_dot_AP2,P_PRES_dot_AP3,P_PRES_dot_AP4,P_PRES_dot_AP5,P_PRES_dot_AP6,R_PRES_dot_P,breakf0;
84    double tol,Factor,sum_BREAKF,gamma,SC1,SC2,norm_of_residual,diff,L2_R,Norm_of_residual_global;    double tol,Factor,sum_BREAKF,gamma,SC1,SC2,norm_of_residual=0,diff,L2_R,Norm_of_residual_global=0;
85    double *save_XPRES, *save_P_PRES, *save_R_PRES,save_R_PRES_dot_P_PRES;    double *save_XPRES, *save_P_PRES, *save_R_PRES,save_R_PRES_dot_P_PRES;
86    dim_t maxit,Num_iter_global,num_iter_restart,num_iter;    dim_t maxit,Num_iter_global=0,num_iter_restart=0,num_iter;
87    dim_t i,z,order,n, Length_of_mem, th, local_n , rest, n_start ,n_end;    dim_t i,z,order,n, Length_of_mem, th, local_n , rest, n_start ,n_end;
88    bool_t breakFlag=FALSE, maxIterFlag=FALSE, convergeFlag=FALSE,restartFlag=FALSE;    bool_t breakFlag=FALSE, maxIterFlag=FALSE, convergeFlag=FALSE,restartFlag=FALSE;
89    err_t Status=SOLVER_NO_ERROR;    err_t Status=SOLVER_NO_ERROR;

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

  ViewVC Help
Powered by ViewVC 1.1.26