FrontISTR  5.9.0
Large-scale structural analysis program with finit element method
fstr_contact_element.f90
Go to the documentation of this file.
1 !-------------------------------------------------------------------------------
2 ! Copyright (c) 2019 FrontISTR Commons
3 ! This software is released under the MIT License, see LICENSE.txt
4 !-------------------------------------------------------------------------------
23 module m_fstr_contact_element
24  use m_fstr_contact_elem_common
25  use m_fstr_contact_elem_slag
26  use m_fstr_contact_elem_alag
27  implicit none
28 
29  ! Re-export all public functions from sub-modules
30  public :: computetm_tt
31  public :: gettrialfricforceandcheckfricstate
32  public :: update_tangentforce
33  public :: getcontactstiffness_slag
34  public :: getcontactnodalforce_slag
35  public :: gettiedstiffness_slag
36  public :: gettiednodalforce_slag
37  public :: getcontactstiffness_alag
38  public :: getcontactnodalforce_alag
39  public :: gettiedstiffness_alag
40  public :: gettiednodalforce_alag
41 
42 end module m_fstr_contact_element
m_fstr_contact_elem_alag
Alag method implementations for contact element calculations.
Definition: fstr_contact_elem_alag.f90:6
m_fstr_contact_elem_alag::gettiedstiffness_alag
subroutine, public gettiedstiffness_alag(cstate, tSurf, mu, stiff, force)
Definition: fstr_contact_elem_alag.f90:265
m_fstr_contact_elem_alag::getcontactnodalforce_alag
subroutine, public getcontactnodalforce_alag(ctState, tSurf, ndCoord, ndDu, mu, mut, fcoeff, lagrange, ctNForce, ctTForce, cflag)
Definition: fstr_contact_elem_alag.f90:102
m_fstr_contact_elem_alag::gettiednodalforce_alag
subroutine, public gettiednodalforce_alag(ctState, tSurf, ndu, mu, ctNForce, ctTForce)
Definition: fstr_contact_elem_alag.f90:295
m_fstr_contact_elem_alag::getcontactstiffness_alag
subroutine, public getcontactstiffness_alag(cstate, tSurf, ele, mu, mut, fcoeff, symm, stiff, force)
Definition: fstr_contact_elem_alag.f90:24
m_fstr_contact_elem_common
Common utilities for contact element calculations.
Definition: fstr_contact_elem_common.f90:6
m_fstr_contact_elem_common::computetm_tt
subroutine, public computetm_tt(ctState, tSurf, fcoeff, Tm, Tt)
Compute Tm (relative displacement mapping) and optionally Tt (tangential mapping) This subroutine con...
Definition: fstr_contact_elem_common.f90:26
m_fstr_contact_elem_common::gettrialfricforceandcheckfricstate
subroutine, public gettrialfricforceandcheckfricstate(ctstate, fcoeff, tPenalty, lagrange)
This subroutine calculates trial friction force and checks friction state.
Definition: fstr_contact_elem_common.f90:294
m_fstr_contact_elem_common::update_tangentforce
subroutine, public update_tangentforce(etype, nn, elemt0, elemt, cstate)
This subroutine find the projection of a slave point onto master surface.
Definition: fstr_contact_elem_common.f90:318
m_fstr_contact_elem_slag
Slag method implementations for contact element calculations.
Definition: fstr_contact_elem_slag.f90:6
m_fstr_contact_elem_slag::gettiednodalforce_slag
subroutine, public gettiednodalforce_slag(ctState, tSurf, idof, ndu, lagrange, ctNForce, ctTForce)
Definition: fstr_contact_elem_slag.f90:207
m_fstr_contact_elem_slag::getcontactnodalforce_slag
subroutine, public getcontactnodalforce_slag(ctState, tSurf, ndCoord, ndDu, tPenalty, fcoeff, lagrange, ctNForce, ctTForce, cflag)
Definition: fstr_contact_elem_slag.f90:106
m_fstr_contact_elem_slag::gettiedstiffness_slag
subroutine, public gettiedstiffness_slag(ctState, tSurf, idof, stiffness)
Definition: fstr_contact_elem_slag.f90:173
m_fstr_contact_elem_slag::getcontactstiffness_slag
subroutine, public getcontactstiffness_slag(ctState, tSurf, iter, tPenalty, fcoeff, lagrange, stiffness)
Definition: fstr_contact_elem_slag.f90:23
m_fstr_contact_element
Contact mechanics calculations at element level (single contact pair)
Definition: fstr_contact_element.f90:23