diff --git a/src/ksp/ksp/impls/gmres/fgmres/fgmres.c b/src/ksp/ksp/impls/gmres/fgmres/fgmres.c index 1e57d7eab53..9299deac1f7 100644 --- a/src/ksp/ksp/impls/gmres/fgmres/fgmres.c +++ b/src/ksp/ksp/impls/gmres/fgmres/fgmres.c @@ -172,7 +172,8 @@ PetscErrorCode KSPFGMRESCycle(PetscInt *itcount,KSP ksp) /* new entry in hessenburg is the 2-norm of our new direction */ ierr = VecNorm(VEC_VV(loc_it+1),NORM_2,&tt);CHKERRQ(ierr); - + KSPCheckNorm(ksp,tt); + *HH(loc_it+1,loc_it) = tt; *HES(loc_it+1,loc_it) = tt;