isnatural Interface

public interface isnatural

Check if a real/complex number is a natrual number


Module Procedures

private pure elemental module function isnaturalr(x) result(res)

Check if x is a natural number (1, 2, 3, ...)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: x

Return Value logical

private pure elemental module function isnaturalz(z) result(res)

Check if z is a natural number (1, 2, 3, ...)

Arguments

Type IntentOptional Attributes Name
complex(kind=dp), intent(in) :: z

Return Value logical