is_not_zero_r64 Function

private elemental function is_not_zero_r64(scalar)

Arguments

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

Return Value logical


Contents

Source Code


Source Code

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