le_scalar Function

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

Less than or equal tocomparison 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 le_scalar(a, b) result(c)
    !! Less than or equal tocomparison 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 .le. b

  end function le_scalar