.SD;.FLAGS CAPITALIZE
.TITLE <UPCASE- CONVERSION FROM LOWER TO UPPER CASE
.PAGE
.INDENT 50
<UPCASE
.SKIP 1
.CENTER
<UPCASE- CONVERSION FROM LOWER TO UPPER CASE
.LEFT MARGIN 10
.SKIP 1
.INDENT -10
^^ROUTINE NAME: <UPCASE\
.SKIP 1
.INDENT -10
^^PURPOSE:\\ ^TO CONVERT AN <ASCII STRING OF A GIVEN NUMBER OF BYTE FROM LOWER CASE
TO UPPER CASE EITHER IN PLACE OR FROM AN INPUT BUFFER TO AN OUTPUT BUFFER
.SKIP 1
.INDENT -10
^^CALLABLE:\\ ^^FROM FORTRAN
.SKIP 1
.INDENT -10
^^PARAMETERS:\\ 
.SK 1;.I -9
^^ASCII\\----THE INPUT STRING TO BE CONVERTED.  <ASCII MAY CONSIST OF MIXED
CHARACTERS.  ^CONVERSION WILL OCCUR ONLY ON LOWER CASE A-Z.
.SK 1;.I -9
^^LENGTH\\---^THE LENGTH OF <ASCII IN BYTES.  ^THIS IS A MANDATORY ARGUMENT.
.SK 1;.I -9
^^RESULT\\---^THE CONVERTED STRING.  ^IF THE USER WISHES THIS MAY BE THE 
INPUT STRING <ASCII AS WELL I.E. CONVERT THE STRING IN PLACE.
.SKIP 1
.INDENT -10
^^ROUTINES USED:\\ ^^$CVTUC
.SKIP 1
.INDENT -10
^^AUTHOR:\\ ^^JACK MARTINELLI#####CETUS CORPORATION
.SKIP 1
.INDENT -10
^^WRITTEN:\\ ^^AUGUST 1978
.SKIP 1
.INDENT -10
^^SOURCE LANGUAGE:\\ ^^MACRO-11
.SKIP 1
.INDENT -10
^^OBJECT MODULE NAME:\\ ^^UPCASE
.SKIP 1
.INDENT -10
^^LIBRARY:\\ ^^DP:[60,60]CETUS
.SKIP 1
.INDENT -10