Apply a callback to an array: Difference between revisions
Content added Content deleted
m (→{{header|Ada}}: added code highlighting) |
|||
Line 354: | Line 354: | ||
=={{header|Fortran}}== |
=={{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 |
program test |
||
C |
C |
||
Line 368: | Line 390: | ||
C |
C |
||
end |
end |
||
=={{header|FP}}== |
=={{header|FP}}== |