      PROGRAM dist1
      INTEGER N1
      PARAMETER (N1 = 1000)
      INTEGER N2
      PARAMETER (N2 = 1000)
      REAL y (N1), z (N1), u (N1)
      REAL x (N2)
      REAL q, r, t
      INTEGER k, l
      INTEGER Ti1
      CALL eeinitialize_f90 ()
      q = 10.0
      r = 1.5
      t = 3.77
      DO Ti1 = 0, N2 - 1
      x (1 + Ti1) = 9.0
      END DO
      DO Ti1 = 0, N1 - 1
      y (1 + Ti1) = 10.0
      END DO
      DO Ti1 = 0, N1 - 1
      z (1 + Ti1) = 11.0
      END DO
      DO Ti1 = 0, N1 - 1
      u (1 + Ti1) = 12.0
      END DO
      DO 7000 l = 1, 1000
      DO k = 1, 900
      x (k) = q + y (k) * (r * z (k + 10) + t * z (k + 11))
      END DO
7000  CONTINUE
      DO 7002 l = 1, 1000
      DO k = 1, 500
      x (k) = u (k) + r * (z (k) + r * y (k)) + t * (u (k + 3) + r * (u 
     &(k + 2) + r * u (k + 1)) + t * (u (k + 6) + r * (u (k + 5) + r * u
     & (k + 4))))
      END DO
7002  CONTINUE
      print *, x(400)
      STOP
      END
