integrate_inertia_matrix.hpp

Go to the documentation of this file.

#pragma once
 
#include <Kokkos_Core.hpp>
#include <Kokkos_SIMD.hpp>
 
namespace kynema_fmb::beams {
 
template <typename DeviceType>
struct IntegrateInertiaMatrixElement {
    template <typename ValueType>
    using View = Kokkos::View<ValueType, DeviceType>;
    template <typename ValueType>
    using ConstView = typename View<ValueType>::const_type;
    template <typename ValueType>
    using LeftView = Kokkos::View<ValueType, Kokkos::LayoutLeft, DeviceType>;
    template <typename ValueType>
    using ConstLeftView = typename LeftView<ValueType>::const_type;
 
    size_t element;
    size_t num_nodes;
    size_t num_qps;
    ConstView<double*> qp_weight_;
    ConstView<double*> qp_jacobian_;
    ConstLeftView<double**> shape_interp_;
    ConstLeftView<double**> shape_deriv_;
    ConstView<double* [6][6]> qp_Muu_;
    ConstView<double* [6][6]> qp_G_I_;
    ConstView<double* [6][6]> qp_Duu_;
    ConstView<double* [6][6]> qp_GD1_;
    ConstView<double* [6][6]> qp_GD2_;
    ConstView<double* [6][6]> qp_DD2_;
    double beta_prime_;
    double gamma_prime_;
    Kokkos::View<double** [6][6], DeviceType> gbl_M_;
 
    KOKKOS_FUNCTION
    void operator()(size_t node_simd_node) const {
        using simd_type = Kokkos::Experimental::simd<double>;
        using tag_type = Kokkos::Experimental::vector_aligned_tag;
        using Kokkos::ALL;
        using Kokkos::Array;
        using Kokkos::make_pair;
        using Kokkos::subview;
 
        constexpr auto width = simd_type::size();
        const auto extra_component = num_nodes % width == 0U ? 0U : 1U;
        const auto num_simd_nodes = (num_nodes / width) + extra_component;
        const auto node = node_simd_node / num_simd_nodes;
        const auto simd_node = (node_simd_node % num_simd_nodes) * width;
 
        auto local_M = Array<simd_type, 36>{};
 
        const auto qp_Muu = ConstView<double* [36]>(qp_Muu_.data(), num_qps);
        const auto qp_G_I = ConstView<double* [36]>(qp_G_I_.data(), num_qps);
        const auto qp_Duu = ConstView<double* [36]>(qp_Duu_.data(), num_qps);
        const auto qp_GD1 = ConstView<double* [36]>(qp_GD1_.data(), num_qps);
        const auto qp_GD2 = ConstView<double* [36]>(qp_GD2_.data(), num_qps);
        const auto qp_DD2 = ConstView<double* [36]>(qp_DD2_.data(), num_qps);
 
        for (auto qp = 0U; qp < num_qps; ++qp) {
            const auto w = simd_type(qp_weight_(qp));
            const auto jacobian = simd_type(qp_jacobian_(qp));
            const auto phi_1 = simd_type(shape_interp_(node, qp));
            auto phi_2 = simd_type{};
            phi_2.copy_from(&shape_interp_(simd_node, qp), tag_type());
            const auto phi_prime_1 = simd_type(shape_deriv_(node, qp));
            auto phi_prime_2 = simd_type{};
            phi_prime_2.copy_from(&shape_deriv_(simd_node, qp), tag_type());
            const auto c1 = (phi_prime_1 * phi_prime_2) * (w / jacobian);
            const auto c2 = (phi_prime_1 * phi_2) * w;
            const auto c3 = (phi_1 * phi_prime_2) * w;
            const auto c4 = (phi_1 * phi_2) * (w * jacobian);
            const auto Muu_local = subview(qp_Muu, qp, ALL);
            const auto G_I_local = subview(qp_G_I, qp, ALL);
            const auto Duu_local = subview(qp_Duu, qp, ALL);
            const auto GD1_local = subview(qp_GD1, qp, ALL);
            const auto GD2_local = subview(qp_GD2, qp, ALL);
            const auto DD2_local = subview(qp_DD2, qp, ALL);
            for (auto i = 0; i < 36; ++i) {
                const auto Muu = simd_type(Muu_local(i));
                const auto G_I = simd_type(G_I_local(i));
                const auto Duu = simd_type(Duu_local(i));
                const auto GD1 = simd_type(GD1_local(i));
                const auto GD2 = simd_type(GD2_local(i));
                const auto DD2 = simd_type(DD2_local(i));
                const auto Mij = c4 * Muu;
                const auto Gij = c1 * Duu + c2 * GD1 + c3 * DD2 + c4 * (G_I + GD2);
                local_M[i] = local_M[i] + (beta_prime_ * Mij) + (gamma_prime_ * Gij);
            }
        }
 
        const auto num_lanes = Kokkos::min(width, num_nodes - simd_node);
        const auto global_M = View<double** [36]>(gbl_M_.data(), num_nodes, num_nodes);
        const auto M_slice =
            subview(global_M, node, make_pair(simd_node, simd_node + num_lanes), ALL);
 
        for (auto lane = 0U; lane < num_lanes; ++lane) {
            for (auto component = 0; component < 36; ++component) {
                M_slice(lane, component) = local_M[component][lane];
            }
        }
    }
};
}  // namespace kynema_fmb::beams