Program reshape_example
  Implicit None
  Integer,Parameter :: v(6) = [ 1,2,3,4,5,6 ]
  Integer :: a(2,3), i
  a = Reshape(v, Shape(a))
  Print *, 'Reshape in default (array element) order'
  Do i=1, Size(a,1)
    Print 1, i, a(i,:)
1   Format(1X,'Row ',I0,' =',99(1X,I0))
  End Do
  a = Reshape(v, Shape(a), Order=[2,1])
  Print *, 'Reshape with Order argument'
  Do i=1, Size(a,1)
    Print 1, i, a(i,:)
  End Do
End Program