/[escript]/branches/windows_from_1456_trunk_1490_merged_in/paso/src/FGMRES.c
ViewVC logotype

Diff of /branches/windows_from_1456_trunk_1490_merged_in/paso/src/FGMRES.c

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

revision 1496 by trankine, Mon Apr 14 06:43:51 2008 UTC revision 1497 by trankine, Mon Apr 14 09:00:03 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=%d)\n",k,abs(g[k]),abs_tol);  printf("FGMRES step %d: error %e (tol=%d)\n",k,fabs(g[k]),abs_tol);
167            }            }
168        }        }
169        /*        /*
Legend:
Removed from v.1496  
changed lines
  Added in v.1497
  ViewVC Help
Powered by ViewVC 1.1.26