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