Anonymous user
Apply a callback to an array: Difference between revisions
→{{header|Fortran}}
Line 354:
=={{header|Fortran}}==
In ISO Fortran 95 or later, use elemental functions:
ELEMENTAL FUNCTION CUBE( X )
IMPLICIT NONE
Line 365:
IMPLICIT NONE
INTEGER :: I, J
REAL, DIMENSION(
A = RESHAPE( (/ ((0.1 * I + J, I = 1, 20), J = 1, 4) /), (/
DO I = 1, 3
WRITE(*,*) A(I,:)
END DO
B = CUBE( A ) ! Applies CUBE to every member of A,
! and stores each result in the equivalent element of B
DO I = 1,
WRITE(*,*) B(I,:)
END DO
END PROGRAM EXAMPLE
ANSI FORTRAN 77 (with MIL-STD-1753 structured DO) Example:
|