5 * Revision 1.1.1.1 1996/02/15 17:49:43 mclareni
9 #include "kerngen/pilot.h"
10 SUBROUTINE CUTOL (CHV)
12 C CERN PROGLIB# M432 CUTOL .VERSION KERNFOR 4.21 890323
13 C ORIG. 11/02/86 A. PETRILLI
14 C NEW 9/02/89 JZ, for speed
16 C- Convert character string CHV from upper to lower case.
19 #include "kerngen/qnatch.inc"
24 #if defined(CERNLIB_QASCII)
28 CHV(JJ:JJ) = CHAR(J+32)
30 #if defined(CERNLIB_QEBCDIC)
32 IF (NATCH(J+1).NE.4) GO TO 19
33 CHV(JJ:JJ) = CHAR(J-64)