<Example Program>

Program transpose_example
    Real a(3,2)
    Real b(2,3)
    a = Reshape( (/1.,2.,3.,4.,5.,6./), (/3,2/))
    Print *, 'A ='
    Print *, a(1,:)
    Print *, a(2,:)
    Print *, a(3,:)
    b = Transpose(a)
    Print *, 'B ='
    Print *, b(1,:)
    Print *, b(2,:)
End
Execution Results

  A =
  1.0000000   4.0000000
  2.0000000   5.0000000
  3.0000000   6.0000000
  B =
  1.0000000   2.0000000   3.0000000
  4.0000000   5.0000000   6.0000000