wavgmModule.f90 File Reference

Weighted Average Motion constraint handling. More...

Modules
module	wavgmotionmodule
	Module with subroutine for setting up linear multi-point constraints.

Functions/Subroutines
subroutine, public	wavgmotionmodule::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...
subroutine	computepointcoords (W)
	Computes the nodal coordinates relative to the centre of gravity. More...
real(dp) function	sumsqrw (dX, dY, W)
	Returns the weighted square sum of two arrays. More...
real(dp) function	sumsqr (dX, dY)
	Returns the square sum of two arrays. More...

Detailed Description

Weighted Average Motion constraint handling.

Function/Subroutine Documentation

computepointcoords()

subroutine wavgmconstreqn::computepointcoords

(

real(dp), dimension(:), intent(in), optional

W

)

Computes the nodal coordinates relative to the centre of gravity.

If the weights (W) are present, a weighted CoG is used. This subroutine also recomputes the geometric tolerances (tolX).

sumsqr()

real(dp) function wavgmconstreqn::sumsqr ( real(dp), dimension(:), intent(in)  dX, real(dp), dimension(:), intent(in)  dY  )

private

Returns the square sum of two arrays.

The following sum is returned:

sum_i=1,nm {dx(i)^2+dy(i)^2}

sumsqrw()

real(dp) function wavgmconstreqn::sumsqrw ( real(dp), dimension(:), intent(in)  dX, real(dp), dimension(:), intent(in)  dY, real(dp), dimension(:), intent(in)  W  )

private

Returns the weighted square sum of two arrays.

The following sum is returned:

sum_i=1,nm {w(i)*(dx(i)^2+dy(i)^2)}