Il Linguaggio Fortran 90/95

7.11 Strutture dati dinamiche 397
i nodi) con componenti definiti con l’attributo POINTER. Il programma seguente ha lo scopo di
generare una sequenza di 100 valori interi di tipo random e di organizzarli secondo un ordinamento
ad albero binario. La sequenza così ordinata viene quindi riprodotta a video. Per poter
comprendere appieno le operazioni svolte nel programma è opportuno tenere presente questo
semplice schema il quale risulta applicabile in maniera del tutto generale a problemi di gestione
di alberi binari:
• Quando viene letto il primo valore viene allocata una variabile (il root node) atta ad
ospitarlo e i due puntatori componenti vengono annullati.
• Quando viene letto il valore successivo, viene creato un nuovo nodo per poterlo ospitare.
• Se il nuovo valore risulta minore del valore del nodo radice, il puntatore before di root
è indirizzato a questo nuovo nodo.
• Se, invece, il nuovo valore risulta maggiore del valore del nodo radice, è il puntatore after
di root ad essere indirizzato a questo nuovo nodo.
• Letto un nuovo valore ed allocato memoria per esso, se esso risulta maggiore del valore
di root ma il puntatore after è già associato, allora esso viene confrontato con il valore
puntato da after ed il nuovo nodo viene inserito nella posizione appropriata al di sotto
di quel nodo.
• Se, invece, il nuovo valore risulta minore del valore di root ma il puntatore before è già
associato, allora esso viene confrontato con il valore puntato da before ed il nuovo nodo
viene inserito nella posizione appropriata al di sopra di quel nodo.
MODULE binary_tree
IMPLICIT NONE
SAVE
PRIVATE greater_than, less_than, equal_to
TYPE :: node
INTEGER :: int
TYPE(node), POINTER :: before
TYPE(node), POINTER :: after
END TYPE
INTERFACE OPERATOR(>)
MODULE PROCEDURE greater_than
END INTERFACE
INTERFACE OPERATOR(