SUBROUTINE UPPER(ALIN,BLIN)
      IMPLICIT INTEGER (A-Z)
      INTEGER ALIN(132)
      INTEGER BLIN(132)
      INTEGER UCASE(27)
      DATA UCASE(1),UCASE(2),UCASE(3),UCASE(4),UCASE(5),UCASE(6),UCASE(7
     *),UCASE(8),UCASE(9),UCASE(10),UCASE(11),UCASE(12),UCASE(13),UCASE(
     *14),UCASE(15),UCASE(16),UCASE(17),UCASE(18),UCASE(19),UCASE(20),UC
     *ASE(21),UCASE(22),UCASE(23),UCASE(24),UCASE(25),UCASE(26),UCASE(27
     *)/65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,8
     *6,87,88,89,90,10002/
      A1=1
23000 IF(.NOT.(ALIN(A1).NE.10002))GOTO 23001
      IF(.NOT.((ALIN(A1).GT.96).AND.(ALIN(A1).LT.123)))GOTO 23002
      BLIN(A1)=UCASE((ALIN(A1)-32-64))
      GOTO 23003
23002 CONTINUE
      BLIN(A1)=ALIN(A1)
23003 CONTINUE
      A1=A1+1
      GOTO 23000
23001 CONTINUE
      BLIN(A1)=10002
      RETURN
      END