gt_scalar Function

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

Greater 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 gt_scalar(a, b) result(c)
    !! Greater 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 .gt. b

  end function gt_scalar