|
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.
