FEDEM Solver
R8.0
Source code of the dynamics solver
|
Module with subroutine for setting up linear multi-point constraints. More...
Functions/Subroutines | |
subroutine, public | wavgmconstreqn (iel, lDof, nM, indC, txc, tyc, tzc, mnpc, epsX, tolX, dX, work, weight, omega, ipsw, lpu) |
Computes constraint equation coefficients for a WAVGM element. More... | |
Module with subroutine for setting up linear multi-point constraints.
This module contains a subroutine for processing the Weighted Average Motion (WAVGM) elements (also known as RBE3 elements in Nastran).
subroutine, public wavgmotionmodule::wavgmconstreqn | ( | integer, intent(in) | iel, |
integer, intent(in) | lDof, | ||
integer, intent(in) | nM, | ||
integer, dimension(:), intent(in) | indC, | ||
real(dp), dimension(:), intent(in) | txc, | ||
real(dp), dimension(:), intent(in) | tyc, | ||
real(dp), dimension(:), intent(in) | tzc, | ||
integer, dimension(:), intent(in) | mnpc, | ||
real(dp), intent(in) | epsX, | ||
real(dp), dimension(3), intent(inout) | tolX, | ||
real(dp), dimension(:,:), intent(inout) | dX, | ||
real(dp), dimension(:), intent(inout) | work, | ||
real(dp), dimension(:), intent(in) | weight, | ||
real(dp), dimension(:), intent(out) | omega, | ||
integer, intent(in) | ipsw, | ||
integer, intent(in) | lpu | ||
) |
Computes constraint equation coefficients for a WAVGM element.
[in] | iel | Element index |
[in] | lDof | Local index of dependent DOF to compute coefficients for |
[in] | nM | Number of independent nodes in current element |
[in] | indC | Nodal component indices (common for all nodes) |
[in] | txc | Table of x-coordinates for the nodal points |
[in] | tyc | Table of Y-coordinates for the nodal points |
[in] | tzc | Table of Z-coordinates for the nodal points |
[in] | mnpc | Matrix of nodal point correspondances for current element |
[in] | epsX | Relative geometric tolerance for WAVGM elements |
tolX | Absolute geometric tolerance for each coordinate direction | |
dX | Element nodal coordinates relative to the centre of gravity | |
work | Work array | |
[in] | weight | Independent DOF weights for current element |
[out] | omega | Resulting constraint equation coefficients |
[in] | ipsw | Print switch |
[in] | lpu | File unit number for res-file output |
The coefficients that couples a dependent DOF at the reference node of a Weighted AVerage Motion element to the independent nodal DOFs of the same element are computed.