Matrix transposition: Difference between revisions

Content added Content deleted

Inline

@@ Line 200: / Line 200: @@
 =={{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(N,M) :: A = RESHAPE( (/ (i,i=1,n*m) /), (/ n, m /) )
   REAL, DIMENSION(M,N) :: B