MEF90DefMechWork Subroutine

  • Blaise Bourdin (2014-2022, bourdin@lsu.edu) Blaise Bourdin (2022-26, bourdin@mcmaster.ca) Alexis Marboeuf (2022, marboeua@mcmaster.ca)
  • 346 statements
  • Source File

public subroutine MEF90DefMechWork(MEF90DefMechCtx, bodyForceWork, boundaryForceWork, ierr)

MEF90DefMechWork:

Arguments

Type IntentOptional Attributes Name
type(MEF90DefMech_Type), intent(in) :: MEF90DefMechCtx
real(kind=C_DOUBLE), dimension(:), pointer :: bodyForceWork
real(kind=C_DOUBLE), dimension(:), pointer :: boundaryForceWork
integer(kind=C_INT32_T), intent(inout) :: ierr