Il Linguaggio Fortran 90/95

252 Unità di Programma
ma di solito non c’è alcuna ragione per preferire questa tecnica così ”rigida” alla più versatile
modalità basata sull’uso delle stringhe di lunghezza presunta, tanto più che l’uso delle stringhe
fittizie di lunghezza esplicita presenta l’ulteriore limitazione che la lunghezza della stringa
(esplicitamente definita) deve essere necessariamente maggiore o uguale di quella della stringa
effettiva.
5.8.6 Tipi di dati derivati come argomenti di procedure
Gli argomenti di una procedura possono essere variabili di un tipo di dati derivato purché la
visibilità di questo tipo di dati sia non ambigua all’atto della chiamata di procedura. Ciò può
avvenire in uno dei seguenti modi:
• La procedura è interna all’unità di programma chiamante in cui il tipo di dati è definito.
• Il tipo di dati derivato è definito in un modulo che sia accessibile alla procedura chiamata.
L’esempio seguente mostra un utilizzo di dati di tipo derivato come argomento di una procedura.
L’esempio, inoltre, mostra un esempio di utilizzo comparato di procedure interne e di modulo:
MODULE miomodulo
! Sezione dichiarativa
IMPLICIT NONE
TYPE :: new
CHARACTER(LEN=3) :: str
INTEGER :: j, k
END TYPE new
! Inizializzazione di x a mezzo di costruttore:
TYPE(new) :: x=new("abc",1234,5678)
! Sezione "interna"
CONTAINS
SUBROUTINE sub_mod_1() ! sottoprogramma di modulo
! start subroutine sub_mod_1
CALL sub_int()
RETURN
CONTAINS
SUBROUTINE sub_int() ! sottoprogramma interno
! start subroutine sub_int_1
CALL sub_mod_2(x)
RETURN
END SUBROUTINE sub_int
END SUBROUTINE sub_mod_1
SUBROUTINE sub_mod_2(x) ! sottoprogramma di modulo
TYPE(new), INTENT (IN OUT) :: x
INTEGER :: int1, int2
! start subroutine sub_mod_2