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 保留中

Arguments

Type IntentOptional AttributesName
class(ContactMechanics_), intent(inout), target:: obj
real(kind=real64), intent(in), optional :: penaltyparameter
logical, intent(in), optional :: debug
logical, intent(in), optional :: GaussPointProjection

Contents

None