real, dimension(20) :: a real, dimension(16) :: p p = a(5:20)