Il Linguaggio Fortran 90/95

5.2 Procedure 219
SUBROUTINE nome_subroutine[(lista_di_argomenti)]
[istruzioni di definizione e dichiarazione di variabili]
[istruzioni eseguibili]
[CONTAINS
procedure interne]
[RETURN]
END [SUBROUTINE [nome_subroutine]]
L’istruzioneSUBROUTINE identifica l’inizio della subroutine, specifica il nome della procedura
e la lista degli argomenti.
La lista degli argomenti contiene una serie di variabili che vengono passate alla subroutine
dall’unità di programma chiamante. Queste variabili sono chiamate parametri formali o
argomenti fittizi (dummy) in quanto le subroutine non riservano alcuna memoria per questo
tipo di variabili. Si tratta, quindi, di una specie di ”segnaposti” per gli argomenti effettivi o
parametri attuali che saranno passati dall’unità chiamante.
Allo stesso modo di un’unità di programma principale, anche una subroutine ha una sezione
dichiarativa ed una sezione esecutiva. Quando un programma chiama una subroutine, l’esecuzione
del programma viene temporaneamente sospesa per consentire l’esecuzione della subroutine.
Quando viene raggiunta l’istruzione RETURN o l’istruzione END SUBROUTINE l’esecuzione
dell’unità chiamante riprende dalla riga successiva a quella che ha effettuato la chiamata.
Qualsiasi unità di programma eseguibile può chiamare una subroutine, inclusa un’altra
subroutine. La chiamata avviene attraverso l’istruzione CALL, la cui sintassi è:
CALL nome_subroutine([lista_di_argomenti])
Gli argomenti effettivi della lista degli argomenti devono corrispondere in numero, ordine e tipo
agli argomenti fittizi dichiarati nella subroutine.
5.2.2 Function
Una function è una procedura Fortran il cui risultato è un numero, un valore logico, un array,
una stringa, un puntatore, che può essere combinato con variabili e costanti a formare una
espressione. Queste espressioni possono apparire sul lato destro di un’istruzione di assegnazione
nell’unità di programma chiamante.
La forma generale di una funzione è la seguente:
tipo FUNCTION nome_function[(lista_di_argomenti)]
[istruzioni di definizione e dichiarazione di variabili]
[istruzioni eseguibili]
nome_funzione = espressione
[CONTAINS
procedure interne]
END [FUNCTION [nome_function]]
Iltipo del risultato fornito dalla function può anche essere specificato nella sezione dichiarativa,
in tal caso la forma della function diventa: