10 integer a, z, ascii_factor, char_value
11 parameter(a = 97, z = 122, ascii_factor = 32)
14 char_value = ichar(text(i:i))
15 if (( char_value .ge. a) .and. (char_value .le. z))
then
16 text(i:i) = char(char_value - ascii_factor)
subroutine conv_to_ucase(text)