Il Linguaggio Fortran 90/95

388 Puntatori
Uno dei vantaggi che si ha lavorando con liste concatenate consiste nel fatto che la memoria
allocata può immediatamente essere liberata quando non più necessaria. Questa operazione
può essere facilmente effettuata attraversando la lista e deallocandone tutti i nodi, nello stesso
modo con cui essi sono stati processati per essere sottoposti a stampa:
! Attraversamento della lista e deallocazione dei nodi
current => list ! current punta alla testa della lista
DO
IF (.NOT.ASSOCIATED(current)) EXIT ! esce quando raggiunge la coda
list => current%next ! list punta al successivo nodo di testa
DEALLOCATE(current) ! dealloca il corrente nodo di testa
current => list ! current punta al nuovo nodo di testa
END DO
Un pratico esempio di utilizzo di liste concatenate può essere concepito, ad esempio, per l’ordinamento
di un elenco di valori secondo il meccanismo di ordinamento per inserzione (insertion
sort) il quale, come è noto, viene utilizzato per la costruzione di una lista ordinata all’atto della
generazione della lista stessa. L’algoritmo in esame lavora inserendo ciascun valore, appena
questo viene letto, nella posizione che gli compete nella lista. In particolare, se tale valore è
minore di tutti i valori precedentemente immagazzinati nella lista, esso verrà inserito in testa
alla lista; al contrario, se è maggiore di tutti gli elementi della lista esso verrà posizionato in
coda alla lista; infine, se questo valore si colloca in una posizione, per così dire, intermedia esso
verrà inserito nella idonea posizione a(j) facendo preliminarmente avanzare di una posizione
tutti gli elementi della sottosequenza ordinata a(j), a(j + 1), ...a(n). Ebbene, si noti che se
la lista in oggetto fosse implementata a mezzo di un array, l’inserimento di un qualsiasi elemento
all’interno della lista comporterebbe uno spostamento ”fisico” di intere sezioni di array.
L’impiego, invece, di liste concatenate fornisce una valida soluzione per definire una relazione
di ordinamento tra gli elementi evitando di procedere ad un riordinamento fisico degli stessi.
Quanto detto è efficacemente descritto dal seguente programma:
PROGRAM inserzione
!
! Scopo: Leggere una serie di valori reali da un file di dati
! organizzarli secondo il procedimento di ordinamento
! per inserzione. Una volta ordinati, gli elementi
! della lista vengono prodotti in stampa.
!
! *** Sezione dichiarativa ***
IMPLICIT NONE
TYPE :: int_value
REAL :: value
TYPE(int_value),POINTER :: next_value
END TYPE
TYPE(int_value), POINTER :: head ! puntatore alla testa della lista