Matrix transposition: Difference between revisions
Content added Content deleted
Line 200: | Line 200: | ||
=={{header|Fortran}}== |
=={{header|Fortran}}== |
||
In ISO Fortran 90 or later, use the TRANSPOSE intrinsic function: |
In ISO Fortran 90 or later, use the TRANSPOSE intrinsic function: |
||
integer, parameter :: n = 3, m = 5 |
|||
real, dimension( |
real, dimension(n,m) :: a = reshape( (/ (i,i=1,n*m) /), (/ n, m /) ) |
||
real, dimension(m,n) :: b |
|||
⚫ | |||
b = transpose(a) |
|||
⚫ | |||
do i = 1, n |
|||
print *, a(i,:) |
|||
end do |
|||
do j = 1, m |
|||
print *, b(j,:) |
|||
end do |
|||
In MIL-STD-1753 |
In ANSI FORTRAN 77 with MIL-STD-1753 extensions or later, use nested structured DO loops: |
||
REAL A(3,5), B(5,3) |
REAL A(3,5), B(5,3) |
||
DATA ((A(I,J),I=1,3),J=1,5) /1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15/ |
DATA ((A(I,J),I=1,3),J=1,5) /1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15/ |