lt_scalar Function

private function lt_scalar(a, b) result(c)

Less than comparison between autodiff array and scalar

Arguments

Type IntentOptional Attributes Name
class(array_type), intent(in), target :: a
real(kind=real32), intent(in) :: b

Return Value logical, dimension(size(a%val,1), size(a%val,2))


Source Code

  function lt_scalar(a, b) result(c)
    !! Less than comparison between autodiff array and scalar
    implicit none
    class(array_type), intent(in), target :: a
    real(real32), intent(in) :: b
    logical, dimension(size(a%val,1), size(a%val,2)) :: c

    c = a%val .lt. b

  end function lt_scalar