update_res_grad_c Subroutine

public subroutine update_res_grad_c(j, nod_max, old_nod_coord, nts_elem_nod, active_nts, nts_amo, k_contact, uvec, duvec, fvec_contact, stick_slip, contact_mat_para, nts_mat)

+- +- +- +- +- +- +- +- +- +- +- +- +- +- +- +- +- +- +- +- +- +- +- +- +- +- +- +- +- +- +- +- +- +- +- +- +- +- +-

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	j
integer,	intent(in)			::	nod_max
real(kind=real64),	intent(in)			::	old_nod_coord(:,:)
integer,	intent(in)			::	nts_elem_nod(:,:)
integer,	intent(in)			::	active_nts(:)
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(:)

Contents

None