4 #include "kerngen/pilot.h"
7 C CERN PROGLIB# M432 CLTOU .VERSION KERNFOR 4.21 890323
8 C ORIG. 11/02/86 A. PETRILLI
9 C NEW 9/02/89 JZ, for speed
11 C- Convert character string CHV from lower to upper case.
15 #include "kerngen/qnatch.inc"
20 #if defined(CERNLIB_QASCII)
23 IF (J.GE.123) GO TO 19
24 CHV(JJ:JJ) = CHAR(J-32)
26 #if defined(CERNLIB_QEBCDIC)
28 IF (NATCH(J+1).NE.3) GO TO 19
29 CHV(JJ:JJ) = CHAR(J+64)