m_fstr_contact_elem_slag Module Reference

Slag method implementations for contact element calculations. More...

Functions/Subroutines
subroutine, public	getcontactstiffness_slag (ctState, tSurf, iter, tPenalty, fcoeff, lagrange, stiffness)
subroutine, public	getcontactnodalforce_slag (ctState, tSurf, ndCoord, ndDu, tPenalty, fcoeff, lagrange, ctNForce, ctTForce, cflag)
subroutine, public	gettiedstiffness_slag (ctState, tSurf, idof, stiffness)
subroutine, public	gettiednodalforce_slag (ctState, tSurf, idof, ndu, lagrange, ctNForce, ctTForce)

Detailed Description

Slag method implementations for contact element calculations.

Function/Subroutine Documentation

getcontactnodalforce_slag()

subroutine, public m_fstr_contact_elem_slag::getcontactnodalforce_slag	(	type(tcontactstate)	ctState,
		type(tsurfelement)	tSurf,
		real(kind=kreal), dimension(:)	ndCoord,
		real(kind=kreal), dimension(:)	ndDu,
		real(kind=kreal)	tPenalty,
		real(kind=kreal)	fcoeff,
		real(kind=kreal)	lagrange,
		real(kind=kreal), dimension(:)	ctNForce,
		real(kind=kreal), dimension(:)	ctTForce,
		logical	cflag
	)

Parameters

ctstate	type tContactState
tsurf	surface element structure
tpenalty	friction coefficient; tangential penalty
lagrange	value of Lagrange multiplier
nddu	nodal coordinates; nodal displacement increment
ctnforce	contact force vector
cttforce	contact force vector
cflag	is necessary to update tangentForce_final

Definition at line 105 of file fstr_contact_elem_slag.f90.

Here is the call graph for this function:

getcontactstiffness_slag()

subroutine, public m_fstr_contact_elem_slag::getcontactstiffness_slag	(	type(tcontactstate)	ctState,
		type(tsurfelement)	tSurf,
		integer(kind=kint)	iter,
		real(kind=kreal)	tPenalty,
		real(kind=kreal)	fcoeff,
		real(kind=kreal)	lagrange,
		real(kind=kreal), dimension(:,:)	stiffness
	)

Parameters

ctstate	type tContactState
tsurf	surface element structure
tpenalty	friction coefficient; tangential penalty
lagrange	value of Lagrange multiplier
stiffness	contact stiffness matrix

Definition at line 22 of file fstr_contact_elem_slag.f90.

Here is the call graph for this function:

gettiednodalforce_slag()

subroutine, public m_fstr_contact_elem_slag::gettiednodalforce_slag	(	type(tcontactstate)	ctState,
		type(tsurfelement)	tSurf,
		integer(kind=kint)	idof,
		real(kind=kreal), dimension(:)	ndu,
		real(kind=kreal)	lagrange,
		real(kind=kreal), dimension(:)	ctNForce,
		real(kind=kreal), dimension(:)	ctTForce
	)

Parameters

ctstate	type tContactState
tsurf	surface element structure
ndu	nodal displacement
lagrange	value of Lagrange multiplier
ctnforce	tied contact force vector
cttforce	tied contact force vector

Definition at line 206 of file fstr_contact_elem_slag.f90.

Here is the call graph for this function:

gettiedstiffness_slag()

subroutine, public m_fstr_contact_elem_slag::gettiedstiffness_slag	(	type(tcontactstate)	ctState,
		type(tsurfelement)	tSurf,
		integer(kind=kint)	idof,
		real(kind=kreal), dimension(:,:)	stiffness
	)

Parameters

ctstate	type tContactState
tsurf	surface element structure
stiffness	contact stiffness matrix

Definition at line 172 of file fstr_contact_elem_slag.f90.

Here is the call graph for this function: