CMake: removing qpythia from the depedencies
[u/mrichter/AliRoot.git] / MICROCERN / cltou.F
CommitLineData
fe4da5cc 1*
2* $Id$
3*
fe4da5cc 4#include "kerngen/pilot.h"
5 SUBROUTINE CLTOU (CHV)
6C
7C CERN PROGLIB# M432 CLTOU .VERSION KERNFOR 4.21 890323
8C ORIG. 11/02/86 A. PETRILLI
9C NEW 9/02/89 JZ, for speed
10C
11C- Convert character string CHV from lower to upper case.
12
13 CHARACTER CHV*(*)
14
15#include "kerngen/qnatch.inc"
16* Ignoring t=pass
17
18
19 DO 19 JJ=1,LEN(CHV)
20#if defined(CERNLIB_QASCII)
21 J = ICHAR(CHV(JJ:JJ))
22 IF (J.LT.97) GO TO 19
23 IF (J.GE.123) GO TO 19
24 CHV(JJ:JJ) = CHAR(J-32)
25#endif
26#if defined(CERNLIB_QEBCDIC)
27 J = ICHAR(CHV(JJ:JJ))
28 IF (NATCH(J+1).NE.3) GO TO 19
29 CHV(JJ:JJ) = CHAR(J+64)
30#endif
31 19 CONTINUE
32 END