module sample1
     integer, dimension (10) :: k
   end module 
!
   program test8
     use sample1
   integer i
   call sub1
   do i = 1,10
      write(6,*) k(i)
   end do
   end
!
   subroutine sub1
      use sample1
   integer i
   do i = 1, 10
      k(i) = 21-2*i
   end do
   return
   end