C INTOSC.F OF N.TAJIMA'S FORTRAN BENCH-MARK TESTS (VER.2)
C SIMULATES HARMONIC OSCILLATION USING ONLY 4-BYTE INTEGERS.
C HISTORY: 97/3/21,98/6/26,7/1
      PROGRAM INTOSC
      IMPLICIT INTEGER (A-Z)
      I=0
      J=1045
      CALL INTOS1(I,J)
      END
C
      SUBROUTINE INTOS1(I,J)
      IMPLICIT INTEGER (A-Z)
      PARAMETER(NMAX=1000000000)
      DO 10 N=1,NMAX
         K=(205*J)/103-I
         I=J
         J=K
   10 CONTINUE
      WRITE(6,20) NMAX,I,NMAX+1,J
   20 FORMAT(2('  I(',I12,')=',I12))
      END