Il Linguaggio Fortran 90/95

118 Istruzioni di controllo
DO i=1,n
x(i) = x(i)*myfunc(n)
END DO
In questo caso il compilatore potrebbe non essere in grado di stabilire se il risultato della
funzione myfunc dipenda o meno da i o da x. In casi come questo deve essere responsabilità
del programmatore sapere se il risultato del fattore è invariante o meno e, in caso affermativo,
spostarne il calcolo all’esterno del ciclo.
Un’altra caratteristica che rende spesso poco efficiente un ciclo è il fatto che, al suo interno,
un grande sforzo di calcolo è dedicato a compiti banali, compiti che spesso possono essere
rimossi semplicemente cambiando l’utilizzo di alcune variabili. Ad esempio, per rimuovere
l’assegnazione i = j, basta trattare, nella successiva parte di codice, la variabile j come se
fosse niente di più che un alias di i. Un esempio, concepito per la valutazione dei numeri di
Fibonacci, aiuterà a meglio comprendere questo concetto. I numeri di Fibonacci, si ricorda,
sono definiti, in forma ricorsiva, al modo seguente:
1, se n = 1 o se n = 2
fib(n) =
fib(n − 1) + fib(n − 2), se n > 2
Un semplice programma per il loro calcolo potrebbe essere:
PROGRAM fibonacci
IMPLICIT NONE
INTEGER :: n ! valore di input
INTEGER :: fib ! numero di Fibonacci
INTEGER :: a, b ! variabili di appoggio
PRINT*, " Inserisci n > 2: "
READ(*,*) n
a = 1
b = 1
DO i = 3,n
c = a+b
a = b
b = c
END DO
fib = c
PRINT*, fib
END PROGRAM fibonacci
Come si può notare, per ogni ”spazzata” del ciclo vengono effettuate tre assegnazioni, di cui
due ”banali”; ebbene, queste ultime possono essere facilmente rimosse e rimpiazzate da un’unica
istruzione di assegnazione, al modo seguente:
PROGRAM fibonacci
IMPLICIT NONE