Il Linguaggio Fortran 90/95

406 Puntatori
equal_to = .TRUE.
ELSE
equal_to = .FALSE.
END IF
END FUNCTION equal_to
END MODULE btree
PROGRAM binary_tree
!
! Scopo: Legge da file una sequenza di nominativi e relativi numeri
! di telefono e li immagazzina in un albero binario. Dopo che
! i valori sono stati immagazzinati essi vengono stampati
! secondo l’ordinamento lessicografico. A questo punto l’utente
! puo’ inserire un nome per verificare che lo stesso sia presente
! nella rubrica. In caso affermativo viene stampato il record
! a cui appartiene.
!
USE btree
IMPLICIT NONE
! *** Sezione dichiarativa ***
INTEGER :: error ! "error flag": 0 = ok
CHARACTER(LEN=20) :: filename ! nome del file di dati
INTEGER :: istat ! "variabile di stato": 0 = ok
TYPE(node),POINTER :: root ! puntatore al nodo root
TYPE(node),POINTER :: temp ! puntatore temporaneo
! *** Sezione esecutiva ***
! "Annullamento" dei nuovi puntatori
NULLIFY(root,temp)
! Lettura del nome del file di dati
WRITE(*,*) "Nome del file di dati: "
READ(*,’(A20)’) filename
! Connessione del file di ingresso.
OPEN(UNIT=11,FILE=filename,STATUS=’OLD’,ACTION=’READ’,IOSTAT=istat)
fileopen: IF (istat==0) THEN ! connessione avvenuta con successo
! Dal momento che il file e’ stato connesso con successo, viene allocato
! spazio in memoria per ciascun nodo, vengono letti i dati da inserire
! nel nodo, quindi il nodo viene inserito nell’albero
input: DO