PROGRAM ARRTEST
      EXTERNAL ARRTIM4
      INTEGER ARR1(4),ARR2(4)
      DO 20 I=1,4
      ARR1(I)=I
   20 CONTINUE
      WRITE(6,100)
  100 FORMAT(' CALLING ARRTIM4')
      CALL ARRTIM4(ARR1,ARR2)
      DO 10 I=1,4
      WRITE(6,200)I,ARR2(I)
  200 FORMAT(' ARR2(',I,')=',I4)
   10 CONTINUE
      WRITE(6,300)
  300 FORMAT(' DID IT WORK')
      STOP
      END