Apply a callback to an array: Difference between revisions
Content added Content deleted
(→{{header|D}}: Moved foreach code to Loop Structures, as it doesn't demonstrate a callback) |
|||
Line 349: | Line 349: | ||
INTEGER :: I, J |
INTEGER :: I, J |
||
REAL, DIMENSION(3,4) :: B, & |
REAL, DIMENSION(3,4) :: B, & |
||
A = RESHAPE( (/ ((0.1 * I + J, I = 1, |
A = RESHAPE( (/ ((0.1 * I + J, I = 1, 3), J = 1, 4) /), (/ 3,4 /) ) |
||
DO I = 1, 3 |
DO I = 1, 3 |