Il Linguaggio Fortran 90/95

5.5 Moduli 237
IMPLICIT NONE
SAVE
! dichiarazione dei dati condivisi
...
CONTAINS
SUBROUTINE sub(a,b,c,m,conv)
IMPLICIT NONE
REAL, DIMENSION(3), INTENT(IN) :: a
REAL, INTENT(IN) :: b, c
INTEGER, INTENT(OUT) :: m
LOGICAL, INTENT(OUT) :: conv
! sezione esecutiva
...
END SUBROUTINE sub
END MODULE mio_modulo
La subroutine sub è ”a disposizione” di una qualunque unità di programma che faccia uso del
modulo mio_modulo e può da questa essere usata, come una normale subroutine, mediante
l’istruzione CALL, così come illustrato dal seguente esempio:
PROGRAM mio_prog
USE mio_modulo
IMPLICIT NONE
...
CALL sub(x,y,z,m,conv)
...
END PROGRAM
Si noti che anche per una procedura di modulo è possibile definire una procedura interna, come
ben descritto dal seguente programma:
MODULE miomodulo
! Esempio di sottoprogrammi interni ad procedure di modulo
! Sezione dichiarativa
IMPLICIT NONE
TYPE :: new
INTEGER :: j, k
END TYPE new
! Inizializzazione di x a mezzo di costruttore:
TYPE(new) :: x=new(1234,5678)
! Sezione "interna"
CONTAINS
SUBROUTINE sub_mod_1() ! sottoprogramma di modulo
! start subroutine sub_mod_1
CALL sub_int()