C
C $Id: upcase.F,v 1.2 1998/07/16 16:40:48 jjv5 Exp arjan $
C
C------------------------------------------------------------------------
      SUBROUTINE UPCASE1(STRING,IEND)
C
C     CHANGES LOWER CASE CHARACTERS IN STRING(1:IEND) TO UPPER CASE.
C     -- S. DIXON.
C
      CHARACTER STRING*(*),AUPP,ALOW,DUMMY
      EQUIVALENCE (IAUPP,AUPP),(IALOW,ALOW),(IDUMMY,DUMMY)
      DATA AUPP,ALOW /'A','a'/
      SAVE AUPP,ALOW       
      return
      ISHIFT = IALOW - IAUPP
      DO 20 I=1,IEND
        DUMMY = STRING(I:I)
        IF(IDUMMY.GE.IALOW)THEN
          IDUMMY = IDUMMY - ISHIFT
          STRING(I:I) = DUMMY
        ENDIF
 20   CONTINUE
      RETURN
      END