is_not_zero_r32 Function

private elemental function is_not_zero_r32(scalar)

Arguments

Type IntentOptional Attributes Name
real(kind=real32), intent(in) :: scalar

Return Value logical


Contents

Source Code

is_not_zero_r32

Source Code

  logical elemental function is_not_zero_r32(scalar)
    real(real32), intent(in) :: scalar
    is_not_zero_r32 = .not. is_zero(scalar)
  end function is_not_zero_r32