SUBROUTINE CNV2UP(STRING,LEN) C C Routine to convert all lowercase letters in STRING to UPPERCASE. C This is the character form of UPCASE for strings C IMPLICIT INTEGER (A-Z) CHARACTER UPPER*26,STRING*132 C DATA UPPER/'ABCDEFGHIJKLMNOPQRSTUVWXYZ'/ DATA a,z/"141,"172/ C DO 10 I=1,LEN C = ICHAR(STRING(I:I)) IF (C.GE.a.AND.C.LE.z) THEN IDX = C-a+1 STRING(I:I) = UPPER(IDX:IDX) ENDIF 10 CONTINUE RETURN END