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

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

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

revision 1523 by ksteube, Tue Apr 15 00:54:25 2008 UTC revision 1524 by phornby, Wed Apr 23 05:31:54 2008 UTC
# Line 160  err_t Paso_Solver_NLGMRES( Line 160  err_t Paso_Solver_NLGMRES(
160                      h[INDEX2(k,k-1,l)]=0;                      h[INDEX2(k,k-1,l)]=0;
161                      ApplyGivensRotations(2,&(g[k-1]),&(c[k-1]),&(s[k-1]));                      ApplyGivensRotations(2,&(g[k-1]),&(c[k-1]),&(s[k-1]));
162                  }                  }
163                  norm_of_residual=abs(g[k]);                  norm_of_residual=fabs(g[k]);
164                  maxIterFlag = (k>=iter_max);                  maxIterFlag = (k>=iter_max);
165                  convergeFlag = (abs(g[k]) <= abs_tol);                  convergeFlag = (fabs(g[k]) <= abs_tol);
166  printf("FGMRES step %d: error %e (tol=%e)\n",k,fabs(g[k]),abs_tol);                  printf("FGMRES step %d: error %e (tol=%e)\n",k,fabs(g[k]),abs_tol);
167            }            }
168        }        }
169        /*        /*

Legend:
Removed from v.1523  
changed lines
  Added in v.1524

  ViewVC Help
Powered by ViewVC 1.1.26