assumeIsEven Subroutine

public pure subroutine assumeIsEven(input, output, error)

Check the input string to see if it holds an even value with the assumption that the string is a valid decimal integer string.

This subroutine ignores leading and trailing whitespaces.

This subroutine considers an error to has occurred if the input string is empty(only spaces) or is 0 length.

Arguments

Type IntentOptional AttributesName
character(len=*), intent(in) :: input

A string.

logical, intent(out) :: output

.TRUE. if the rightmost character(exclude trailing spaces) is an even value, or otherwise, .FALSE..

logical, intent(out) :: error

A value of .TRUE. on error. Otherwise, a value of .FALSE..