Il Linguaggio Fortran 90/95

386 Puntatori
value
pointer
Figura 7.1: Generico nodo di lista concatenata
• Non sono immagazzinati necessariamente in maniera contigua.
• Possono essere creati dinamicamente (cioè al tempo di esecuzione).
• Possono essere inseriti in un punto qualsiasi della lista.
• Possono essere rimossi dinamicamente.
Per tale ragione una lista può crescere o ridursi in maniera arbitraria durante l’esecuzione
di un programma.
Una lista concatenata consiste essenzialmente di strutture (ossia, con terminologia Fortran,
di oggetti di tipo derivato) contenenti campi per i comuni dati e in più un ulteriore campo che
rappresenta un puntatore al successivo elemento della lista. Per convenzione il primo e l’ultimo
nodo della lista vengono chiamati rispettivamente testa e coda della lista.
Il programma che segue vuole essere un esempio introduttivo al problema della definizione
di liste concatenate:
PROGRAM simple_linked_list
IMPLICIT NONE
! Definizione di un nodo
TYPE node
INTEGER :: value
TYPE (node), POINTER :: next
END TYPE node
INTEGER :: num
! Dichiarazione del nodo corrente e dell’intera lista
TYPE (node), POINTER :: list, current
! Costruzione della lista
NULLIFY(list) ! inizialmente la lista e’ vuota
DO
READ(*,*) num ! legge un valore dalla tastiera
IF (num==0) EXIT ! il ciclo si arresta quando viene inserito 0
ALLOCATE(current) ! crea un nuovo nodo
current%value = num ! immagazzina il nuovo valore
current%next => list ! punta al nodo precedente
list => current ! aggiorna la testa della lista
END DO
! Attraversa la lista e ne stampa i valori
current => list ! current e’ un alias della lista
✲