PROGRAM silmukka
  IMPLICIT NONE
  INTEGER, PARAMETER :: n = 10
  REAL, DIMENSION(n) :: x
  REAL, DIMENSION(n,n,n) :: y
  INTEGER :: i, j, k

  x(n) = 0.0

  DO i = 1, n
    DO j = 1, n
      DO k = 1, n
        y(i,j,k) = 1.0
      END DO
    END DO
  END DO
END PROGRAM silmukka