Il Linguaggio Fortran 90/95

218 Unità di Programma
[CONTAINS
procedure interne]
END [PROGRAM [nome_programma]]
L’istruzione PROGRAM segna l’inizio dell’unità di programma principale mentre l’istruzione
END PROGRAM non solo rappresenta la fine dell’unità ma anche la fine dell’intero programma.
Specificare il nome del programma è opzionale ma è sempre consigliabile farlo. L’istruzione
CONTAINS serve ad identificare le eventuali procedure interne all’unità di programma principale.
Quando tutte le istruzioni eseguibili siano state completate, il controllo bypassa le eventuali
procedure interne per eseguire l’istruzione di END.
Un programma può essere interrotto, durante la sua esecuzione, in un punto qualsiasi e da
ogni unità di programma, attraverso l’istruzione STOP la quale ha la seguente sintassi:
STOP [etichetta]
in cui l’etichetta è una stringa di caratteri opzionale (racchiusa tra virgolette) avente lo scopo
di informare l’utente del punto in cui l’esecuzione del programma è stata interrotta.
5.2 Procedure
Una procedura è un’unità di programma usata per raggruppare un insieme di istruzioni correlate
aventi lo scopo di risolvere un problema specifico e, in qualche modo, ”completo”. Per
procedura si intende una subroutine o una function. Una function restituisce un solo valore
e, tipicamente, non altera il valore dei suoi argomenti; una subroutine di solito serve ad eseguire
calcoli più complicati e può restituire, attraverso i suoi argomenti, zero o più risultati.
Le procedure possono essere di due tipi: intrinseche o definite dall’utente. Le prime sono
residenti nel linguaggio e, pertanto, sono immediatamente utilizzabili dal programmatore (tipiche
procedure intrinseche sono le funzioni matematiche SIN, LOG, etc.). Invece, le procedure
definite dall’utente (anche dette sottoprogrammi) sono create dal programmatore per svolgere
compiti speciali non previsti dalle procedure intrinseche.
Il Fortran 90/95 prevede tre tipologie di sottoprogrammi:
• Procedure Interne: sono contenute interamente in una unità di programma ”ospite”.
• Procedure Esterne: sono procedure ”indipendenti”, spesso non contenute nel file che
contiene l’unità di programma chiamante e non necessariamente devono essere scritte in
Fortran.
• Procedure di Modulo: sono procedure contenute all’interno di un’unità di programma
modulo.
5.2.1 Subroutine
Una subroutine è una procedura Fortran che viene invocata specificandone il nome in un’istruzioneCALL,
riceve i valori di input e restituisce quelli di output attraverso unalista_di_argomenti.
La forma generale di una subroutine è la seguente: