to_upper Subroutine

public subroutine to_upper(char)

Convert a single character to uppercase

Arguments

Type IntentOptional AttributesName
character(len=1), intent(inout) :: char

Contents

None