C
C
      PROGRAM BNCH8
C
C  VAX750 RESULTS:
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
      CHARACTER A
      CHARACTER*28 ALPHA
c     DIMENSION IARAY(512,512),IVECT(262144)
      DIMENSION IARAY(512,512),IVECT(32767)
      EQUIVALENCE (IARAY,IVECT)
      DATA ALPHA /'ABCDEFGHIJKLMNOPQRSTUVWXYZ  '/
C
C
C     CALL TIME00
C     CALL TIMEPR
c     DO 1000 IDX=1,262144
      DO 1000 IDX=1,32767
c     IVECT(IDX)=262145-IDX
      IVECT(IDX)=32768-IDX
      CALL SUB(2,IDX,ALPHA,*1000)
 1000 CONTINUE
C     CALL TIMEWI
C     CALL TIMEEX
C     CALL DRTIME
      STOP 'DONE'
      END
C
C
      SUBROUTINE SUB(I,J,ALPHA,*)
      CHARACTER*(*) ALPHA
      CHARACTER*2 A2
      L = LEN(ALPHA)-1
      IF (J .GT. L) THEN
      K = L
      ELSE
      K = J
      ENDIF
      A2 = ALPHA(K:K+I-1)
      RETURN
      END