Il Linguaggio Fortran 90/95

5.14 Clausola RESULT per le funzioni 277
5.14 Clausola RESULT per le funzioni
Le funzioni Fortran possono essere definite con una clausola RESULT la quale specifica, tra due
parentesi, il nome della variabile che immagazzinerà il risultato fornito dalla funzione. A titolo
di esempio, si consideri la seguente funzione:
FUNCTION addizione(a,b,c) RESULT(somma)
IMPLICIT NONE
REAL, INTENT(IN) :: a, b, c
REAL :: somma
somma = a+b+c
END FUNCTION addizione
Si noti come la dichiarazione del tipo della funzione sia insito nella dichiarazione del tipo
della variabile ”risultato” (nel caso in esame, la funzione ha lo stesso tipo della variabile somma
ossia è una funzione reale). La clausola RESULT è, tipicamente, opzionale; il suo uso risulta,
invece, obbligatorio in presenza di una funzione direttamente ricorsiva (alle procedure ricorsive
sarà dedicato il prossimo paragrafo). Prima, però, si vuole riportare un altro esempio di utilizzo
della clausola RESULT che sia, al contempo, un ulteriore esempio di funzioni che restituiscono
in output una stringa di caratteri. La prossima funzione, infatti, restituisce il giorno della
settimana (ossia una stringa del tipo lunedi, martedi, ...) che corrisponde ad una certa data:
FUNCTION day_of_week(year,mounth,day) RESULT(weekday)
! Calcola il giorno della settimana nota una data
! La data di input non deve essere anteriore al mese di
! Ottobre del 1752 (infatti furono "cancellati" 11 giorni
! al mese di Settembre del 1752)
IMPLICIT NONE
INTEGER, INTENT(IN) :: year, mounth, day
CHARACTER (LEN=9) :: weekday
! Variabili locali
INTEGER :: yr, mnth, hundreds, day_ptr
INTEGER, PARAMETER, DIMENSION(12) :: max_days = &
(/31,29,31,30,31,30,31,31,30,31,30,31/)
CHARACTER(LEN=9), PARAMETER :: day_name(0:6) = (/’Domenica ’, &
’Lunedi ’,’Martedi ’, &
’Mercoledi’,’Giovedi ’, &
’Venerdi ’,’Sabato ’ /)
! Check sul mese
weekday = CHAR(7) // ’Illegale’
mnth=mounth
IF (mnth12) RETURN
! Numera i mesi a partire da Marzo; Gennaio e Febbraio sono
! trattati come i mesi 11 e 12 dell’anno precedente