Il Linguaggio Fortran 90/95

5.3 Procedure Interne 223
più rapida può essere calcolarlo ”al volo”. Se, tuttavia, questo valore è utilizzato molte volte
mentre risiede nella cache memory del computer, può essere più conveniente precomputarlo.
Quando alcuni degli argomenti di una procedura sono costanti la procedura stessa può essere
”clonata” nel senso che è possibile costruire una nuova routine da quella originale semplicemente
eliminando i parametri formali superflui e sostituendo nel corpo della procedura il valore della
costante ad ogni ricorrenza del parametro. Naturalmente questa function cloning può essere
efficacemente sfruttata per semplificare alcune operazioni algebriche pervenendo così a funzioni
o subroutine più snelle e dalla più rapida esecuzione. Un esempio di ”clonazione” di subroutine
è riportato di seguito e mostra come sia possibile sfruttare efficacemente questa operazione per
semplificare alcune espressioni ad esempio secondo il meccanismo di strength reduction:
! codice originale
CALL mysub(a,2)
...
SUBROUTINE mysub(x,p)
IMPLICIT NONE
REAL,DIMENSION(:) :: x
INTEGER :: p
x = x**p + REAL(p-2)
...
END SUBROUTINE mysub
! codice ottimizzato
CALL mysub2(a)
...
SUBROUTINE mysub2(x)
IMPLICIT NONE
REAL,DIMENSION(:) :: x
x = x*x
...
END SUBROUTINE mysub
In questo caso nel caso l’elevamento al quadrato è stato sostituito da una comune moltiplicazione
del fattore per sé stesso. L’efficacia di questa soluzione risiede nel fatto che l’operazione di
prodotto viene normalmente eseguita dieci volte più velocemente dell’elevamento a potenza.
5.3 Procedure Interne
Un’unità di programma può contenere una o più procedure interne le quali, tuttavia, non possono
contenere ulteriori procedure interne (in altre parole non è possibile una loro nidificazione).
Le procedure interne vengono elencate al termine dell’unità di programma ospite, e sono precedute
dall’istruzione CONTAINS. Di seguito si riporta un esempio di procedura interna ospitata
in un programma principale: