runCM Subroutine

public subroutine runCM(obj, penaltyparameter, debug, GaussPointProjection)

call f%write(A_ij)

call f%write(A_ij)

!!no tension wall 保留中

*(1.0d0/2.0d0) !!no tension wall 保留中

Type Bound

ContactMechanics_

Arguments

Type	Intent	Optional	Attributes		Name
class(ContactMechanics_),	intent(inout),		target	::	obj
real(kind=real64),	intent(in),	optional		::	penaltyparameter
logical,	intent(in),	optional		::	debug
logical,	intent(in),	optional		::	GaussPointProjection