Tripletas de Índices y Constructores de Arreglos

Las tripletas de índices de arreglos permiten seleccionar un subconjunto de los elementos de un arreglo definiendo el límite inferior, superior y el paso del índice de la siguiente forma:

inferior : superior : paso

Donde los valores por omisión son: 1 : n : 1

Por ejemplo, el siguiente programa asigna estos valores a la matriz m

    PROGRAM asigna_matriz
      IMPLICIT NONE
      INTEGER, DIMENSION (5,5) :: m
      m(1:5:2,1:5:2) = 1        ! m(::2,::2) = 1
      m(2:4:2,1:5:2) = 2        ! m(2::2,::2) = 2
      m(1:5:1,2:4:2) = 3        ! m(:,2::2) = 3
      PRINT*, m
    END

La asignación de valores a un arreglo se puede realizar mediante los constructores de arreglos:

    C Fortran 77        ! Fortran 90
    PROGRAM a_m2        PROGRAM asigna_matriz_2
    INTEGER n             IMPLICIT NONE
    PARAMETER (n=100)     INTEGER, PARAMETER :: n = 100
    REAL m(n,n)           REAL, DIMENSION(n:n) :: m
    DO 1 i = 1,n          INTEGER :: i
      m(i) = 1.0/i          m = 1.0 / (/ (i, i = 1, n) /)
  1 CONTINUE            END
        END

Es posible combinar las tripletas de índices con los constructores de los arreglos.