Screamer Project  V3.3.1
Screamer Structure
 All Files Functions Variables
cnv2ucas.f
Go to the documentation of this file.
1  subroutine conv_to_ucase (text)
2 c
3 c Modifications:
4 c 2014-05-01 RBS: integer*4 to integer
5 c
6  character text*(*)
7 c
8 c Converts all lowercase letters in TEXT to uppercase.
9 c
10  integer a, z, ascii_factor, char_value
11  parameter(a = 97, z = 122, ascii_factor = 32)
12 c
13  do i = 1, len(text)
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)
17  end if
18  end do
19 c
20  return
21  end
subroutine conv_to_ucase(text)
Definition: cnv2ucas.f:1