fstr_contact_elem_common.f90 File Reference

Go to the source code of this file.

Modules
module	m_fstr_contact_elem_common
	Common utilities for contact element calculations.

Functions/Subroutines
subroutine, public	m_fstr_contact_elem_common::computetm_tt (ctState, tSurf, fcoeff, Tm, Tt)
	Compute Tm (relative displacement mapping) and optionally Tt (tangential mapping) This subroutine constructs the mapping matrices based on contact_disc.md section 10: Tm = [I_3; -N_1*I_3; -N_2*I_3; ...; -N_n*I_3] (size: 3 x 3*(nnode+1)) Tt = Pt * Tm where Pt = I_3 - n x n (computed only if fcoeff /= 0) More...
subroutine, public	m_fstr_contact_elem_common::computecontactmaps_alag (ctState, tSurf, ele, Bn, metric, Ht, Gt)
	Compute contact maps for ALag method (normal distribution and tangential displacement maps) This subroutine constructs the mapping matrices for ALag contact using computeTm_Tt as the core: Bn: normal force distribution vector [n; -N_1*n; -N_2*n; ...; -N_n*n] (size: nnode*3+3) Ht: tangent displacement map from DispIncreMatrix (size: 2 x nnode*3+3) Gt: covariant displacement map Gt = metric * Ht (size: 2 x nnode*3+3) Where: dxy = Gt * edisp, f3 = Ht^T * fric. More...
subroutine, public	m_fstr_contact_elem_common::computefrictionforce_alag (ctState, fcoeff, lambda_n, metric, Ht, Gt, edisp, edof, ctTForce, mut, update_multiplier, slave_id, ctchanged, norm_trial, alpha, that, jump_ratio)
	Compute friction force for ALag method Given tangent maps Ht, Gt and displacement increment, compute the friction force vector. Handles both stick and slip states. More...
subroutine, public	m_fstr_contact_elem_common::gettrialfricforceandcheckfricstate (ctstate, fcoeff, tPenalty, lagrange)
	This subroutine calculates trial friction force and checks friction state. More...
subroutine, public	m_fstr_contact_elem_common::update_tangentforce (etype, nn, elemt0, elemt, cstate)
	This subroutine find the projection of a slave point onto master surface. More...