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

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

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

revision 1974 by jfenwick, Thu Nov 6 02:40:10 2008 UTC revision 1981 by jfenwick, Thu Nov 6 05:27:33 2008 UTC
# Line 77  err_t Paso_Solver_PCG( Line 77  err_t Paso_Solver_PCG(
77      Paso_Performance* pp) {      Paso_Performance* pp) {
78    
79    /* Local variables */    /* Local variables */
80    dim_t num_iter=0,maxit,num_iter_global, chunk_size=-1, len,rest, np, ipp;    dim_t num_iter=0,maxit,num_iter_global, len,rest, np, ipp;
81    #ifdef USE_DYNAMIC_SCHEDULING
82      dim_t chunk_size=-1;
83    #endif
84    register double ss,ss1;    register double ss,ss1;
85    dim_t i0, istart, iend;    dim_t i0, istart, iend;
86    bool_t breakFlag=FALSE, maxIterFlag=FALSE, convergeFlag=FALSE;    bool_t breakFlag=FALSE, maxIterFlag=FALSE, convergeFlag=FALSE;
# Line 88  err_t Paso_Solver_PCG( Line 91  err_t Paso_Solver_PCG(
91  #ifdef PASO_MPI  #ifdef PASO_MPI
92    double loc_sum[2], sum[2];    double loc_sum[2], sum[2];
93  #endif  #endif
94    double norm_of_residual,norm_of_residual_global;    double norm_of_residual=0,norm_of_residual_global;
95    register double d;    register double d;
96    
97    /* Should not be any executable code before this ifdef */    /* Should not be any executable code before this ifdef */

Legend:
Removed from v.1974  
changed lines
  Added in v.1981

  ViewVC Help
Powered by ViewVC 1.1.26