Il Linguaggio Fortran 90/95

5.8 Argomenti delle Procedure 251
5.8.5 Variabili stringa di caratteri come parametri formali
Quando una stringa di caratteri viene utilizzata come argomento fittizio di una procedura la
sua lunghezza viene dichiarata con un asterisco. Poiché la memoria non viene allocata per gli
argomenti fittizi, non è necessario conoscere la lunghezza di un argomento stringa quando la
procedura viene compilata. Ecco un tipico esempio di argomento fittizio stringa di caratteri:
PROGRAM main
CHARACTER(LEN=10) :: nome
...
CALL sub(nome)
...
CONTAINS
SUBROUTINE sub(mia_stringa)
CHARACTER(LEN=*), INTENT(IN) :: mia_stringa
...
END SUBROUTINE sub
END PROGRAM main
All’atto della chiamata di procedura, la lunghezza dell’argomento fittizio stringa sarà pari alla
lunghezza dell’argomento effettivo che verrà passato dall’unità chiamante. Per conoscere la
lunghezza dell’argomento durante l’esecuzione della subroutine è possibile usare la funzione intrinseca
LEN. Ad esempio, la seguente subroutine visualizza la lunghezza dell’argomento stringa
che riceve in input dall’unità chiamante:
SUBROUTINE sub(mia_stringa)
CHARACTER(LEN=*), INTENT(IN) :: mia_stringa
WRITE(*,’(1X,A,I3)’) "Lunghezza della variabile = ", LEN(mia_stringa)
...
END SUBROUTINE sub
Un parametro formale come mia_stringa viene detto stringa fittizia di lunghezza presunta
(assumed-length character). Secondo un approccio molto meno flessibile sarebbe possibile anche
dichiarare un argomento formale come una stringa fittizia di lunghezza esplicita (explicit-length
character), come nel seguente esempio:
PROGRAM main
CHARACTER(LEN=10) :: nome
...
CALL sub(nome)
...
CONTAINS
SUBROUTINE sub(stringa_fissa)
CHARACTER(LEN=15), INTENT(IN) :: stringa_fissa
...
END SUBROUTINE sub
END PROGRAM main