C+
C NAME:
C	uppercase
C PURPOSE:
C	Convert string to uppercase
C CATEGORY:
C	String manipulation
C CALLING SEQUENCE:
	subroutine uppercase(C)
C INPUTS:
C	C		character*(*)	string to be processed
C OUTPUTS:
C	C		character*(*)	modified string
C SEE ALSO:
C	lowercase, itrim, icompress, iwhitespace, bCompareStr
C PROCEDURE:
C	Each character in the string is converted separately.
C	The intrinsic FORTRAN functions ICHAR is used to find the ASCII code
C	for the character. For lowercase characters (ASCII code 97-122) 32 is
C	subtracted from the ASCII code.The FORTRAN function CHAR is used to
C	convert the corrected code back to a character.
C MODIFICATION HISTORY:
C	JAN-1992, Paul Hick (UCSD)
C-
	    character C*(*)

	ia = ichar('a')
	iz = ichar('z')
	iOff = ichar('A')-ichar('a')
	do I=1,len(C)
	    J = ichar(C(I:I))
	    if (J .ge. ia .and. J .le. iz) C(I:I) = char(J+iOff)
	end do
	
	return
	end