Il Linguaggio Fortran 90/95

7.11 Strutture dati dinamiche 389
CHARACTER(LEN=20) :: filename ! nome del file di dati di input
INTEGER :: istat ! variabile di stato (0 = ok)
INTEGER :: nvals = 0 ! numero di dati letti
TYPE(int_value), POINTER :: ptr ! puntatore al nuovo valore
TYPE(int_value), POINTER :: ptr1 ! puntatore temporaneo per la ricerca
TYPE(int_value), POINTER :: ptr2 ! puntatore temporaneo per la ricerca
TYPE(int_value), POINTER :: tail ! puntatore alla coda della lista
REAL :: temp ! variabile temporanea
! *** Sezione esecutiva ***
WRITE(*,’(1X,A)’,ADVANCE=’NO’) "Nome del file di dati: "
READ(*,’(A20)’) filename
! Connessione del file di dati
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 letto
! il valore da ordinare, viene allocato spazio in memoria per esso,
! viene individuata la posizione che gli compete nella lista e, quindi,
! si procede al suo inserimento nella lista
input: DO
READ(11,*,IOSTAT=istat) temp ! lettura del valore
IF (istat/=0) EXIT input ! esce per condizioni di fine-file
nvals = nvals+1 ! contatore
ALLOCATE(ptr,STAT=istat) ! alloca spazio per il nuovo nodo
ptr%value = temp ! immagazzina il dato letto
! Si valuta la posizione nalla lista dove inserire il nuovo valore
new: IF (.NOT.ASSOCIATED(head)) THEN ! lista ancora vuota
head => ptr ! posiziona il nuovo valore in testa
tail => head ! la coda punta al nuovo valore
NULLIFY (ptr%next_value) ! annulla il puntatore temporaneo
ELSE ! Lista non vuota
front: IF (ptr%value head
head => ptr
ELSE IF (ptr%value>=tail%value) THEN
! Inserimento del valore in coda alla lista
tail%next_value => ptr
tail => ptr
NULLIFY (tail%next_value)
ELSE
! Ricerca della posizione dove inserire il nuovo valore
ptr1 => head
ptr2 => ptr1%next_value