5 * Revision 1.2.4.1 2002/11/26 16:46:57 hristov
6 * Merging NewIO with v3-09-04
8 * Revision 1.2 2002/10/14 14:57:10 hristov
9 * Merging the VirtualMC branch to the main development branch (HEAD)
11 * Revision 1.1.2.1 2002/07/11 17:14:48 alibrary
14 * Revision 1.1.1.1 1999/05/18 15:55:29 fca
17 * Revision 1.1.1.1 1996/02/15 17:49:43 mclareni
21 #include "kerngen/pilot.h"
22 SUBROUTINE CLTOU (CHV)
24 C CERN PROGLIB# M432 CLTOU .VERSION KERNFOR 4.21 890323
25 C ORIG. 11/02/86 A. PETRILLI
26 C NEW 9/02/89 JZ, for speed
28 C- Convert character string CHV from lower to upper case.
32 #include "kerngen/qnatch.inc"
37 #if defined(CERNLIB_QASCII)
40 IF (J.GE.123) GO TO 19
41 CHV(JJ:JJ) = CHAR(J-32)
43 #if defined(CERNLIB_QEBCDIC)
45 IF (NATCH(J+1).NE.3) GO TO 19
46 CHV(JJ:JJ) = CHAR(J+64)