Merging the VirtualMC branch to the main development branch (HEAD)
[u/mrichter/AliRoot.git] / MICROCERN / cltou.F
CommitLineData
fe4da5cc 1*
2* $Id$
3*
4* $Log$
b9d0a01d 5* Revision 1.1.2.1 2002/07/11 17:14:48 alibrary
6* Adding MICROCERN
7*
8* Revision 1.1.1.1 1999/05/18 15:55:29 fca
9* AliRoot sources
10*
fe4da5cc 11* Revision 1.1.1.1 1996/02/15 17:49:43 mclareni
12* Kernlib
13*
14*
15#include "kerngen/pilot.h"
16 SUBROUTINE CLTOU (CHV)
17C
18C CERN PROGLIB# M432 CLTOU .VERSION KERNFOR 4.21 890323
19C ORIG. 11/02/86 A. PETRILLI
20C NEW 9/02/89 JZ, for speed
21C
22C- Convert character string CHV from lower to upper case.
23
24 CHARACTER CHV*(*)
25
26#include "kerngen/qnatch.inc"
27* Ignoring t=pass
28
29
30 DO 19 JJ=1,LEN(CHV)
31#if defined(CERNLIB_QASCII)
32 J = ICHAR(CHV(JJ:JJ))
33 IF (J.LT.97) GO TO 19
34 IF (J.GE.123) GO TO 19
35 CHV(JJ:JJ) = CHAR(J-32)
36#endif
37#if defined(CERNLIB_QEBCDIC)
38 J = ICHAR(CHV(JJ:JJ))
39 IF (NATCH(J+1).NE.3) GO TO 19
40 CHV(JJ:JJ) = CHAR(J+64)
41#endif
42 19 CONTINUE
43 END