SUBROUTINE SCVTLU (TEXT)
C*****************************************************************************
C
C Description  : Routine to convert a string in-place from lower- to
C                upper-case characters
C
C Arguments    : TEXT  = STRING to be converted
C
C Author       : F.A.Minkema
C                AKZO PHARMA, Oss Holland
C                dept. SDA
C
C Version      : V1.0      Date : 1-nov-1982
C
C Module name  : SCVTLU.FTN
C
C Package      : RSX-LIBRARY
C
C Compilation/Linking : FOR/F4P/TR:NONE SCVTLU
C
C Updates      : name                 version
C
C  description : 
C
C*****************************************************************************

	BYTE TEXT(1)
C
C
C   convert lower-case characters 
C
	DO 10 I=1,LEN(TEXT)
	  IF (TEXT(I).GE.'a' .AND. TEXT(I).LE.'z') TEXT(I)=TEXT(I)-32
10	CONTINUE
C
C   go back to calling routine
C
	RETURN
	END