Skip to main content

Set

Set Neumann boundary condition.

Interface​

INTERFACE
  MODULE SUBROUTINE Set(obj, ConstantNodalValue, SpaceNodalValue, &
    & TimeNodalValue, SpaceTimeNodalValue, SpaceFunction, TimeFunction, &
    & SpaceTimeFunction)
    CLASS(NeumannBC_), INTENT(INOUT) :: obj
    REAL(DFP), OPTIONAL, INTENT(IN) :: ConstantNodalValue
    REAL(DFP), OPTIONAL, INTENT(IN) :: SpaceNodalValue(:)
    REAL(DFP), OPTIONAL, INTENT(IN) :: TimeNodalValue(:)
    REAL(DFP), OPTIONAL, INTENT(IN) :: SpaceTimeNodalValue(:, :)
    PROCEDURE(iface_SpaceTimeFunction), POINTER, OPTIONAL, INTENT(IN) :: &
      & SpaceTimeFunction
    PROCEDURE(iface_SpaceFunction), POINTER, OPTIONAL, INTENT(IN) :: &
      & SpaceFunction
    PROCEDURE(iface_TimeFunction), POINTER, OPTIONAL, INTENT(IN) :: &
      & TimeFunction
  END SUBROUTINE Set
END INTERFACE