299   Vec                         YCtmp;  in SNESSolve_NEWTONTRDC()  local
323   YCtmp  = snes->work[5];  /* Cauchy solution */  in SNESSolve_NEWTONTRDC()
422         PetscCall(VecCopy(GradF, YCtmp));           /* this could be improved */  in SNESSolve_NEWTONTRDC()
423         PetscCall(VecScale(YCtmp, auk));            /* YCtmp, Cauchy solution*/  in SNESSolve_NEWTONTRDC()
424         PetscCall(VecNorm(YCtmp, NORM_2, &ycnorm)); /* ycnorm <- || Y_cauchy || */  in SNESSolve_NEWTONTRDC()
426           PetscCall(VecCopy(YCtmp, Y));  in SNESSolve_NEWTONTRDC()
429           PetscCall(VecAXPY(YNtmp, -1.0, YCtmp)); /* YCtmp = A, YNtmp = B */  in SNESSolve_NEWTONTRDC()
432           PetscCall(VecDotRealPart(YCtmp, YNtmp, &c1));  in SNESSolve_NEWTONTRDC()
434           PetscCall(VecNorm(YCtmp, NORM_2, &c2)); /* this could be improved */  in SNESSolve_NEWTONTRDC()
440           PetscCall(VecWAXPY(W, tau, YNtmp, YCtmp));  in SNESSolve_NEWTONTRDC()
441           PetscCall(VecAXPY(W, -tau, YCtmp));  in SNESSolve_NEWTONTRDC()