Apply a callback to an array: Difference between revisions

m
(→‎{{header|D}}: Moved foreach code to Loop Structures, as it doesn't demonstrate a callback)
Line 349:
INTEGER :: I, J
REAL, DIMENSION(3,4) :: B, &
A = RESHAPE( (/ ((0.1 * I + J, I = 1, 203), J = 1, 4) /), (/ 3,4 /) )
DO I = 1, 3
Anonymous user