Searched refs:inorms (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/snes/impls/ntrdc/ |
| H A D | ntrdc.c | 303 …PetscReal inorms[99]; /*… in SNESSolve_NEWTONTRDC() local
384 PetscCall(VecStrideNormAll(YNtmp, NORM_INFINITY, inorms)); in SNESSolve_NEWTONTRDC()
387 if (inorms[j] < 1.0 / neP->auto_scale_max) inorms[j] = 1.0 / neP->auto_scale_max; in SNESSolve_NEWTONTRDC()
389 PetscCall(VecStrideSet(W, j, inorms[j])); in SNESSolve_NEWTONTRDC()
390 PetscCall(VecStrideScale(YNtmp, j, 1.0 / inorms[j])); in SNESSolve_NEWTONTRDC()
391 PetscCall(VecStrideScale(X, j, 1.0 / inorms[j])); in SNESSolve_NEWTONTRDC()
461 PetscCall(VecStrideScale(Y, j, inorms[j])); in SNESSolve_NEWTONTRDC()
465 PetscCall(VecStrideScale(X, j, inorms[j])); in SNESSolve_NEWTONTRDC()
|