update_friction Subroutine

public subroutine update_friction(j, nod_max, nod_coord, nts_elem_nod, active_nts, surface_nod, sur_nod_inf, nts_amo, k_contact, uvec, duvec, fvec_contact, stick_slip, contact_mat_para, nts_mat, itr_contact)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	j
integer,	intent(in)			::	nod_max
real(kind=real64),	intent(in)			::	nod_coord(:,:)
integer,	intent(in)			::	nts_elem_nod(:,:)
integer,	intent(in)			::	active_nts(:)
integer,	intent(in)			::	surface_nod(:)
integer,	intent(in)			::	sur_nod_inf(:,:)
real(kind=real64),	intent(inout)			::	nts_amo(:,:)
real(kind=real64),	intent(inout)			::	k_contact(:,:)
real(kind=real64),	intent(in)			::	uvec(:)
real(kind=real64),	intent(in)			::	duvec(:)
real(kind=real64),	intent(inout)			::	fvec_contact(:)
integer,	intent(inout)			::	stick_slip(:)
real(kind=real64),	intent(in)			::	contact_mat_para(:,:)
integer,	intent(in)			::	nts_mat(:)
integer,	intent(in)			::	itr_contact

Contents

None