Transmission explicite des étendues en argument.

 
       SUBROUTINE explicite (t, n,p)
          IMPLICIT NONE
          !---------------------------
          ! declarations des arguments
          !---------------------------
          INTEGER, INTENT(IN)                  :: n,p
          REAL, DIMENSION (n,p), INTENT(INOUT) :: t
          !------------------------------------
          ! declarations des variables locales
          !------------------------------------
          INTEGER :: i
          !------debut du programme-------------
          DO i =1,n
            t(i,:) = i
          ENDDO
          PRINT*,t
       END SUBROUTINE explicite

Naturellement, les appels de la subroutine explicite doit être fait dans le programme principal une fois que le tableau $t$ a été alloué.