program dotproduct
	   implicit none
	   integer,parameter :: maxsize=10
	   integer :: maxnum=100
	   integer, dimension(maxsize) :: v1, v2
	   integer i, j, dot
	   real, dimension(5) :: randomarray
	   call random_seed()
	   call random_number(randomarray)

	   write(*,*) 'randomarray=', randomarray
	   write (*, *) 'Generating vector 1...'
	   do i= 1, maxsize
	       call random_number(randomarray)
	       v1(i) = int(randomarray(1)*maxnum)
	   end do

	   write(*,*) 'Generating vector 2...'
	   do i=1, maxsize
	      call random_number(randomarray)
	      v2(i) = int(randomarray(1)*maxnum)
	   end do

	   write (*,*) 'V1:', (v1(i),i=1,maxsize)
	   write (*,*) 'V2:', (v2(i),i=1,maxsize)

	   dot = 0

	   do i=1, maxsize
	      dot = dot + (v1(i)*v2(i))
	   end do

           write(*,*) 'Dot product:', dot

       end program