Il Linguaggio Fortran 90/95

3.8 Ottimizzazione delle operazioni con array 153
! loop e procedura originali
DO i=1,n
CALL mysub(x,i)
END DO
SUBROUTINE mysub(a,j)
IMPLICIT NONE
REAL, DIMENSION(:) :: a
INTEGER :: j
...
a(j) = a(j)+c
...
RETURN
END SUBROUTINE mysub
! invocazione della procedura e
! procedura clonata dopo il loop pushing
CALL mysub2(x)
SUBROUTINE mysub2(a)
IMPLICIT NONE
REAL, DIMENSION(:) :: a
INTEGER :: i
...
DO i=1,n
a(i) = a(i) + c
END DO
...
RETURN
END SUBROUTINE mysub2
Naturalmente se nel ciclo ci sono altre istruzioni oltre alla chiamata di procedura, allora un
prerequisito per il pushing dovrà essere il loop fission.
3.8.10 Loop peeling
Un’altra operazione utile in molti casi è il cosiddetto loop peeling. Il peeling ha due applicazioni
principali: rimuovere le dipendenze create dalle prime o dalle ultime iterazioni di un ciclo
(consentendo così la parallelizzazione delle istruzioni) e creare un match tra gli estremi di
variazione degli indici di due o più cicli in modo da consentire una efficace operazione di fusione.
Come esempio di applicazione della presente operazione, si guardi il seguente frammento di
programma:
DO i=2,n