Matrix transposition: Difference between revisions

m
Line 200:
=={{header|Fortran}}==
In ISO Fortran 90 or later, use the TRANSPOSE intrinsic function:
REALreal, DIMENSIONdimension(Nn,Mm) :: Aa = RESHAPEreshape( (/ (i,i=1,n*m) /), (/ n, m /) )
REALreal, DIMENSIONdimension(Mm,Nn) :: Bb
Bb = TRANSPOSEtranspose(Aa)
 
In MIL-STD-1753 Fortran or later, use nested structured DO loops:
Anonymous user