	SUBROUTINE UPCASE (C,N)6C_TITLE UPCASE.  Converts all characters to uppercase.C_ARG9	CHARACTER*(*) C	![I/O] String to be made all upper_case.,	INTEGER N	![I] Length of string to convert.
C_DESCRIPTIONAC	Takes an input string and converts all characters to uppercase.C_END		DO I=1,N	  J = ICHAR (C(I:I))>	  IF (J.GE.97 .AND. J.LE.122) THEN ! is in range of lowercase0		J = J-32		! offset from UPCASEase to lowercase.		C(I:I) = CHAR(J)	! convert back to character
	    ENDIF	  ENDDO	RETURN	END