SUBROUTINE ARRTIM4(ARR1,ARR2)
      INTEGER ARR1(4),ARR2(4)
      WRITE(6,100)
  100 FORMAT(' ENTERING FORTRAN ARRTIM4')
      DO 10 I=1,4
      ARR2(I)=ARR1(I)*4
   10 CONTINUE
      RETURN
      END