program ch0807a
implicit none
integer, dimension(1:6):: b=[1,3,5,7,9,11]
integer, dimension(3,2)::a = 0, c= 0
integer:: i

      a = reshape(b,[3,2])
      c = reshape(b,[3,2],order=[2,1])
      print*,'a:'
      do i=1,3
         print *,a(i,1:2)
      end do
       print*,'c:'
      do i=1,3
         print *,c(i,1:2)
      end do
end program ch0807a