Anonymous user
Matrix transposition: Difference between revisions
no edit summary
(Added Haskell example) |
No edit summary |
||
Line 196:
writefln(" n (m's transpose) = ", n.toString()) ;
}</pre>
=={{header|Fortran}}==
In ISO Fortran 90 and later, use the TRANSPOSE function:
REAL, DIMENSION(N,M) :: A = (/ ((i+2*j,i=1,n),j=1,m) /)
REAL, DIMENSION(M,N) :: B
B = TRANSPOSE(A)
In MIL-STD-1753 Fortran and later, use nested structured DO loops:
In ANSI FORTRAN 66 and later, use nested labeled DO loops:
=={{header|Haskell}}==
| |||