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, smoothing_type)
subroutine, public	getcontactnodalforce_slag (ctState, tSurf, ndCoord, ndDu, tPenalty, fcoeff, lagrange, ctNForce, ctTForce, cflag, smoothing_type)
subroutine, public	gettiedstiffness_slag (ctState, tSurf, idof, stiffness, smoothing_type)
subroutine, public	gettiednodalforce_slag (ctState, tSurf, idof, ndu, lagrange, ctNForce, ctTForce, smoothing_type)

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,
		integer(kind=kint), optional	smoothing_type
	)

Parameters

ctstate	type tContactState
tsurf	surface element structure
smoothing_type	kcsNONE or kcsNAGATA
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 107 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,
		integer(kind=kint), optional	smoothing_type
	)

Parameters

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

Definition at line 23 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,
		integer(kind=kint), optional	smoothing_type
	)

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
smoothing_type	kcsNONE or kcsNAGATA

Definition at line 210 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,
		integer(kind=kint), optional	smoothing_type
	)

Parameters

ctstate	type tContactState
tsurf	surface element structure
stiffness	contact stiffness matrix
smoothing_type	kcsNONE or kcsNAGATA

Definition at line 175 of file fstr_contact_elem_slag.f90.

Here is the call graph for this function: