Home
last modified time | relevance | path

Searched refs:scl (Results 1 – 5 of 5) sorted by relevance

/petsc/src/tao/bound/tutorials/
H A Dplate2f.F90519 PetscReal scl, fnorm, det, xt
631 …PetscCall(PetscOptionsGetReal(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-bottom', scl, flg, ierr))
633 PetscCall(VecScale(Bottom, scl, ierr))
636 PetscCall(PetscOptionsGetReal(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-top', scl, flg, ierr))
638 PetscCall(VecScale(Top, scl, ierr))
641 … PetscCall(PetscOptionsGetReal(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-right', scl, flg, ierr))
643 PetscCall(VecScale(Right, scl, ierr))
646 … PetscCall(PetscOptionsGetReal(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-left', scl, flg, ierr))
648 PetscCall(VecScale(Left, scl, ierr))
H A Dplate2.c609 PetscReal one = 1.0, two = 2.0, three = 3.0, scl = 1.0, tol = 1e-10; in MSA_BoundaryConditions() local
700 PetscCall(PetscOptionsGetReal(NULL, NULL, "-bottom", &scl, &flg)); in MSA_BoundaryConditions()
701 if (flg) PetscCall(VecScale(Bottom, scl)); in MSA_BoundaryConditions()
702 PetscCall(PetscOptionsGetReal(NULL, NULL, "-top", &scl, &flg)); in MSA_BoundaryConditions()
703 if (flg) PetscCall(VecScale(Top, scl)); in MSA_BoundaryConditions()
704 PetscCall(PetscOptionsGetReal(NULL, NULL, "-right", &scl, &flg)); in MSA_BoundaryConditions()
705 if (flg) PetscCall(VecScale(Right, scl)); in MSA_BoundaryConditions()
707 PetscCall(PetscOptionsGetReal(NULL, NULL, "-left", &scl, &flg)); in MSA_BoundaryConditions()
708 if (flg) PetscCall(VecScale(Left, scl)); in MSA_BoundaryConditions()
/petsc/src/tao/unconstrained/tutorials/
H A Dminsurf2.c769 PetscReal scl = 1.0; in MSA_BoundaryConditions() local
771 PetscCall(PetscOptionsGetReal(NULL, NULL, "-bottom", &scl, &flg)); in MSA_BoundaryConditions()
773 for (i = 0; i < bsize; i++) user->bottom[i] *= scl; in MSA_BoundaryConditions()
776 PetscCall(PetscOptionsGetReal(NULL, NULL, "-top", &scl, &flg)); in MSA_BoundaryConditions()
778 for (i = 0; i < tsize; i++) user->top[i] *= scl; in MSA_BoundaryConditions()
781 PetscCall(PetscOptionsGetReal(NULL, NULL, "-right", &scl, &flg)); in MSA_BoundaryConditions()
783 for (i = 0; i < rsize; i++) user->right[i] *= scl; in MSA_BoundaryConditions()
786 PetscCall(PetscOptionsGetReal(NULL, NULL, "-left", &scl, &flg)); in MSA_BoundaryConditions()
788 for (i = 0; i < lsize; i++) user->left[i] *= scl; in MSA_BoundaryConditions()
/petsc/src/snes/tutorials/
H A Dex16.c467 PetscReal scl; in FormElementJacobian() local
490 scl = vol * wts[qi] * wts[qj] * wts[qk]; in FormElementJacobian()
504 …for (m = 0; m < 3; m++) ef[idx][m] += scl * (lgrad[0] * FS[3 * m + 0] + lgrad[1] * FS[3 * m + 1] +… in FormElementJacobian()
505 ef[idx][1] -= user->load_factor * scl * user->loading * vals[bidx]; in FormElementJacobian()
517 eq[idx][1] += scl * user->loading * vals[bidx]; in FormElementJacobian()
545 …ej[teidx + NPB * tridx] += scl * (lgrad[0] * dFS[3 * ll + 0] + lgrad[1] * dFS[3 * ll + 1] + lgrad[… in FormElementJacobian()
/petsc/share/petsc/datafiles/meshes/
H A Dtestcase3D.cas7645 …sition-model . none) (rp-trans-one-eqn? . #f) (rp-trans-sst? . #f) (rp-trb-scl? . #t) (rp-turb? . …