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