Il Linguaggio Fortran 90/95

238 Unità di Programma
RETURN
CONTAINS
SUBROUTINE sub_int() ! sottoprogramma interno
! start subroutine sub_int_1
CALL sub_mod_2(x%j,x%k)
RETURN
END SUBROUTINE sub_int
END SUBROUTINE sub_mod_1
SUBROUTINE sub_mod_2(i1,i2) ! sottoprogramma di modulo
INTEGER, INTENT (IN OUT) :: i1, i2
INTEGER :: x
! start subroutine sub_mod_2
x = i1
i1 = i2
i2 = x
RETURN
END SUBROUTINE sub_mod_2
END MODULE miomodulo
!
PROGRAM prova
USE miomodulo
CALL sub_mod_1( )
WRITE(*,*) x
STOP
END PROGRAM prova
5.6 Procedure Esterne
Le procedure esterne sono unità di programma (subroutine o function) indipendenti, compilate
separatamente, tipicamente scritte su file del tutto separati dal resto del programma. Il corpo
di una procedura esterna deve contenere tutte le frasi (dichiarazioni e istruzioni) indispensabili
per una sua corretta ed autonoma compilazione. Così come un programma principale e un
modulo, anche una procedura esterna può ospitare procedure interne. Il seguente frammento
di codice mostra un esempio di procedura esterna invocata dal programma principale:
PROGRAM first
REAL :: x
x=second()
...
END PROGRAM first
FUNCTION second() ! funzione esterna
REAL :: second