get_partial_max_right Function

private function get_partial_max_right(this, upstream_grad) result(output)

Arguments

Type IntentOptional Attributes Name
class(array_type), intent(inout) :: this
type(array_type), intent(in) :: upstream_grad

Return Value type(array_type)


Source Code

  function get_partial_max_right(this, upstream_grad) result(output)
    implicit none
    class(array_type), intent(inout) :: this
    type(array_type), intent(in) :: upstream_grad
    type(array_type) :: output
    type(array_type), pointer :: ptr

    ptr => upstream_grad * (abs( this%val - this%right_operand%val ) .lt. 1.E-6_real32)
    call output%assign_and_deallocate_source(ptr)
  end function get_partial_max_right