blob: f09dad6a9cf04d4d28829a99e824de8b3785c597 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
*DECK LIBCOV
SUBROUTINE LIBCOV(TEXT)
*
*-----------------------------------------------------------------------
*
*Purpose:
* Convert a lower-case character variable to upper case.
*
*Copyright:
* Copyright (C) 2002 Ecole Polytechnique de Montreal
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
* License as published by the Free Software Foundation; either
* version 2.1 of the License, or (at your option) any later version
*
*Author(s): A. Hebert
*
*Parameters: input/output
* TEXT variable to be converted.
*
*-----------------------------------------------------------------------
*
*----
* SUBROUTINE ARGUMENTS
*----
CHARACTER*(*) TEXT
*
DO 10 I=1,LEN(TEXT)
IF(TEXT(I:I).EQ.'a') TEXT(I:I)='A'
IF(TEXT(I:I).EQ.'b') TEXT(I:I)='B'
IF(TEXT(I:I).EQ.'c') TEXT(I:I)='C'
IF(TEXT(I:I).EQ.'d') TEXT(I:I)='D'
IF(TEXT(I:I).EQ.'e') TEXT(I:I)='E'
IF(TEXT(I:I).EQ.'f') TEXT(I:I)='F'
IF(TEXT(I:I).EQ.'g') TEXT(I:I)='G'
IF(TEXT(I:I).EQ.'h') TEXT(I:I)='H'
IF(TEXT(I:I).EQ.'i') TEXT(I:I)='I'
IF(TEXT(I:I).EQ.'j') TEXT(I:I)='J'
IF(TEXT(I:I).EQ.'k') TEXT(I:I)='K'
IF(TEXT(I:I).EQ.'l') TEXT(I:I)='L'
IF(TEXT(I:I).EQ.'m') TEXT(I:I)='M'
IF(TEXT(I:I).EQ.'n') TEXT(I:I)='N'
IF(TEXT(I:I).EQ.'o') TEXT(I:I)='O'
IF(TEXT(I:I).EQ.'p') TEXT(I:I)='P'
IF(TEXT(I:I).EQ.'q') TEXT(I:I)='Q'
IF(TEXT(I:I).EQ.'r') TEXT(I:I)='R'
IF(TEXT(I:I).EQ.'s') TEXT(I:I)='S'
IF(TEXT(I:I).EQ.'t') TEXT(I:I)='T'
IF(TEXT(I:I).EQ.'u') TEXT(I:I)='U'
IF(TEXT(I:I).EQ.'v') TEXT(I:I)='V'
IF(TEXT(I:I).EQ.'w') TEXT(I:I)='W'
IF(TEXT(I:I).EQ.'x') TEXT(I:I)='X'
IF(TEXT(I:I).EQ.'y') TEXT(I:I)='Y'
IF(TEXT(I:I).EQ.'z') TEXT(I:I)='Z'
10 CONTINUE
RETURN
END
|
