SUBROUTINE UPCASE (STRING)
	CHARACTER*(*) STRING
C************************************************************************
C***
C***	THIS ROUTINE WILL CONVERT ALL LOWERCASE CHARACTERS IN A STRING
C***	TO UPPERCASE
C***
C***	PARAMETER :
C***
C***		STRING	(C*?)	CHARACTER STRING TO BE CONVERTED
C***
C************************************************************************
C*MCT
C
	INTEGER*4 STLEN,LS,LC
C
	LS = LEN (STRING)
C
	DO LC = 1,LS
	   IF (LGE(STRING(LC:LC),'a') .AND. 
	1      LLE(STRING(LC:LC),'z')) THEN
C
	      STRING (LC:LC) = CHAR (ICHAR (STRING(LC:LC)) - 32)
	   ELSE
	   ENDIF
	END DO
	RETURN
	END