<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 |
|
![]() 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 |