Il Linguaggio Fortran 90/95

316 Array Processing
Tuttavia, se un tale array è l’argomento di una procedura esterna allora è necessario fornire un
interface block nell’unità di programma chiamante.
Ad esempio, considerata la seguente procedura esterna definente gli array fittizi di forma
presunta arr1, arr2, arr3:
SUBROUTINE sub(arr1,arr2,arr3)
IMPLICIT NONE
REAL, DIMENSION(:,:), INTENT(IN) :: arr1, arr2
REAL, DIMENSION(0:,2:), INTENT(OUT) :: arr3
...
END SUBROUTINE sub
una unità di programma chiamante sintatticamente valida potrebbe essere la seguente:
PROGRAM prova_sub
REAL, DIMENSION (0:9,10) :: arr1 ! forma (/10,10/)
INTERFACE
SUBROUTINE sub(arr1,arr2,arr3)
IMPLICIT NONE
REAL, DIMENSION(:,:), INTENT(IN) :: arr1, arr2
REAL, DIMENSION(0:,2:), INTENT(OUT) :: arr3
END SUBROUTINE sub
END INTERFACE
...
CALL SUB (arr1,arr2(1:5,3:7),arr3(0:4,2:6))
...
END PROGRAM prova_sub
6.4 Array automatici
Un array automatico (automatic array) è uno speciale tipo di explicit-shape array che può essere
dichiarato soltanto in una procedura come oggetto locale ma non come parametro formale
ed inoltre deve essere caratterizzato dall’avere almeno uno dei limiti di un indice non costante.
Lo spazio in memoria per gli elementi di un array automatico è allocato dinamicamente quando
l’esecuzione del programma entra nella procedura, ed è rimosso automaticamente all’atto dell’uscita
dalla procedura. Durante l’esecuzione della procedura nella quale esso è dichiarato, un
array automatico può essere usato allo stesso modo di un qualsiasi altro array, in particolare
può essere passato come parametro attuale in una ulteriore chiamata di procedura.
Si guardi il seguente esempio:
SUBROUTINE mia_sub(x,y,n)
IMPLICIT NONE
! Parametri Formali
INTEGER, INTENT(IN) :: n