MEF90DefMechOperatorDisplacement 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)
  • 597 statements
  • Source File

public subroutine MEF90DefMechOperatorDisplacement(snesDisplacement, displacement, residual, MEF90DefMechCtx, ierr)

MEF90DefMechOperatorDisplacement: 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) :: snesDisplacement
type(tVec), intent(in) :: displacement
type(tVec), intent(inout) :: residual
type(MEF90DefMech_Type), intent(in) :: MEF90DefMechCtx
integer(kind=C_INT32_T), intent(inout) :: ierr