Searched defs:getTrialFricForceANDcheckFricState (Results 1 – 1 of 1) sorted by relevance
387 type(tContactState) :: ctState !< type tContactState388 integer(kind=kint) :: nnode !< number of nodes of master segment389 integer(kind=kint) :: i, j local390 real(kind=kreal) :: fcoeff, tPenalty !< friction coefficient; tangential penalty391 real(kind=kreal) :: lagrange !< value of Lagrange multiplier392 real(kind=kreal) :: ndDu((nnode + 1)*3) !< nodal displacement increment393 …real(kind=kreal) :: normal(3), shapefunc(nnode) !< normal vector at target point; shape functions394 real(kind=kreal) :: nTm((nnode + 1)*3) !< vector395 real(kind=kreal) :: dotP396 real(kind=kreal) :: relativeDisp(3) !< relative displacement[all …]