program arrayio
	implicit none
	real, dimension(5) :: a = (/1.,2.,3.,20.,10./)
        integer, dimension(4) :: vec = (/4,3,4,5/)

        write (*, 100) a
100     format (2X, 5f8.3)

        write (*, 100) a(2:4)   ! elements 2 - 4: prints 2 3 20
        write (*, 100) a(1:5:2) ! elements 1 - 5, stride = 2 (every other element)
        write (*, 100) a(2::2)  ! all elements from #2, stride = 2
        write (*, 100) a(2:)    ! all elements from #2 on
        write (*, 100) a(vec)   ! elements 4,3,4, and 5

        end program