MEF90DefMechOperatorDamage Subroutine

  • Blaise Bourdin (2012-20, bourdin@lsu.edu) Erwan Tanne (2012-20, erwan.tanne@gmail.com) Blaise Bourdin (2022-26, bourdin@mcmaster.ca) Alexis Marboeuf (2022, marboeua@mcmaster.ca)
  • 340 statements
  • Source File

public subroutine MEF90DefMechOperatorDamage(snesDamage, damage, residual, MEF90DefMechCtx, ierr)

MEF90DefMechOperatorDamage: Build the operator. When called in type(tSNES), the solution time should always match the target time, so there is no need for interpolation of the forces, external, and boundary values

Arguments

Type IntentOptional Attributes Name
type(tSNES), intent(in) :: snesDamage
type(tVec), intent(in) :: damage
type(tVec), intent(inout) :: residual
type(MEF90DefMech_Type), intent(in) :: MEF90DefMechCtx
integer(kind=C_INT32_T), intent(inout) :: ierr