Il Linguaggio Fortran 90/95

7.11 Strutture dati dinamiche 407
ALLOCATE(temp,STAT=istat) ! alloca il nodo
NULLIFY(temp%before,temp%after) ! annulla i puntatori
! Lettura dati
READ(11,100,IOSTAT=istat) temp%surname,temp%name,temp%phone
100 FORMAT(A10,1X,A10,1X,A16)
IF (istat/=0) EXIT input ! raggiunto l’"end of file"
CALL add_node(root,temp) ! aggiunge un nodo all’albero
END DO input
! Stampa della lista ordinata
WRITE (*,’(/,1X,A)’) "Lista ordinata: "
CALL write_node(root)
! Prompt per la ricerca di un elemento
WRITE(*,’(/,1X,A)’) "Nominativo da cercare nella lista: "
WRITE(*,’(1X,A)’,ADVANCE=’NO’) "Cognome: "
READ(*,’(A)’) temp%surname
WRITE(*,’(1X,A)’,ADVANCE=’NO’) "Nome: "
READ (*,’(A)’) temp%name
! Ricerca dell’elemento
CALL find_node(root,temp,error)
check: IF (error==0) THEN
WRITE(*,’(/,1X,A)’) "Il record cercato e’:"
WRITE(*,’(1X,7A)’) temp%surname, ’, ’, temp%name, ’ ’, temp%phone
ELSE
WRITE(*,’(/,1X,A)’) "L’elemento richiesto non e’ disponibile"
END IF check
ELSE fileopen ! connessione del file fallita
WRITE(*,’(1X,A)’) "Impossibile connettere il file specificato"
WRITE(*,’(1X,A,I6)’) "Codice errore:", istat
END IF fileopen
END PROGRAM binary_tree
Può essere utile testare il precedente programma con un idoneo file di ingresso. A tale scopo,
assumendo che che il file di testo rubrica.dat contenga il seguente elenco di nomi:
Allen Barry 805-238-7999
Kent Clark 608-555-1212
Wayne Bruce 800-800-1111
Canary Black 504-388-3123
El Kara 567-234-5678
Prince Diana 212-338-3030
Luthor Lex 800-800-1111
Woman Wonder 617-123-4567
Jordan Al 713-721-0901