Declare two two-dimensional arrays a and b of dimension n*m and m*n, respectively. Assign to b the transpose of a (i.e. the value with index interchange).

typ, omv

var A: array[1..m, 1..n] of ArbFloat; B: array[1..n, 1..m] of ArbFloat; begin ... some code to fill A omvtrm( A[1,1], m, n, n, B[1,1], m ); end.

real :: a(n,m), b(m,n) b = transpose(a)

use PDL::Basic qw(sequence transpose);

my ($m, $n) = (3, 2); my $A = sequence $m, $n; my $B = transpose $A;

import numpy as np

a = np.array([[1,2], [3,4], [5,6]]) b = a.T

a = [[1,2], [3,4], [5,6]] b = a.transpose

No security, no password. Other people might choose the same nickname.