1 // Copyright (c) 2017-2026, Lawrence Livermore National Security, LLC and other CEED contributors.
2 // All Rights Reserved. See the top-level LICENSE and NOTICE files for details.
4 // SPDX-License-Identifier: BSD-2-Clause
16 // -----------------------------------------------------------------------------
18 // -----------------------------------------------------------------------------
21 // BCMMS - boundary function
25   PetscScalar y = coords[1];  in BCMMS()  local
30   u[0] = exp(2 * x) * sin(3 * y) * cos(4 * z) / 1e8 * load_increment;  in BCMMS()
31   u[1] = exp(3 * y) * sin(4 * z) * cos(2 * x) / 1e8 * load_increment;  in BCMMS()
32   u[2] = exp(4 * z) * sin(2 * x) * cos(3 * y) / 1e8 * load_increment;  in BCMMS()
41 // BCClamp - fix boundary values with affine transformation at fraction of load increment
44   PetscScalar y          = coords[1];  in BCClamp()  local
56       c_0 = clampMax[6] * M_PI, c_1 = clampMax[7] * M_PI, cx = kx * x + ky * y + kz * z,  in BCClamp()
61 …u[0] = lx + s * (-kz * y + ky * z) + (1 - c) * (-(ky * ky + kz * kz) * x + kx * ky * y + kx * kz *…  in BCClamp()
62 …u[1] = ly + s * (kz * x + -kx * z) + (1 - c) * (kx * ky * x + -(kx * kx + kz * kz) * y + ky * kz *…  in BCClamp()
63 …u[2] = lz + s * (-ky * x + kx * y) + (1 - c) * (kx * kz * x + ky * kz * y + -(kx * kx + ky * ky) *…  in BCClamp()