FrontISTR 5.2.0
Large-scale structural analysis program with finit element method
Loading...
Searching...
No Matches
fstr_contact_def.F90 File Reference

Go to the source code of this file.

Data Types

type  mcontactdef::tcontact
 Structure to includes all info needed by contact calculation. More...
 
type  mcontactdef::fstr_info_contactchange
 

Modules

module  mcontactdef
 This module manage the data structure for contact calculation.
 

Functions/Subroutines

subroutine mcontactdef::fstr_write_contact (file, contact)
 Write out contact definition.
 
subroutine mcontactdef::fstr_contact_finalize (contact)
 Finalizer.
 
logical function mcontactdef::fstr_contact_check (contact, hecmesh)
 Check the consistency with given mesh of contact defintiion.
 
logical function mcontactdef::fstr_contact_init (contact, hecmesh, myrank)
 Initializer of tContactState.
 
subroutine mcontactdef::clear_contact_state (contact)
 Reset contact state all to free.
 
subroutine mcontactdef::scan_contact_state (flag_ctalgo, contact, currpos, currdisp, ndforce, infoctchange, nodeid, elemid, is_init, active, mu, b)
 This subroutine update contact states, which include.
 
subroutine mcontactdef::calcu_contact_force0 (contact, coord, disp, ddisp, fcoeff, mu, mut, b)
 This subroutine update contact condition as follows:
 
subroutine mcontactdef::update_contact_multiplier (contact, coord, disp, ddisp, fcoeff, mu, mut, gnt, ctchanged)
 This subroutine update lagrangian multiplier and the distance between contacting nodes.
 
subroutine mcontactdef::ass_contact_force (contact, coord, disp, b)
 This subroutine assemble contact force into contacing nodes.
 
subroutine mcontactdef::set_contact_state_vector (contact, dt, relvel_vec, state_vec)
 This subroutine setup contact output nodal vectors.
 
subroutine mcontactdef::update_contact_tangentforce (contact)
 
subroutine mcontactdef::track_contact_position_exp (nslave, contact, currpos, currdisp, infoctchange, nodeid, elemid)
 This subroutine tracks down next contact position after a finite slide.
 
subroutine mcontactdef::scan_contact_state_exp (contact, currpos, currdisp, infoctchange, nodeid, elemid, is_init, active)
 This subroutine update contact states, which include.
 

Variables

real(kind=kreal), parameter mcontactdef::distclr_init = 1.d-6
 dist clearance for initial scan