Il Linguaggio Fortran 90/95

7.11 Strutture dati dinamiche 399
INTEGER :: istat
TYPE(node), POINTER :: root ! testa dell’albero
TYPE(node), POINTER :: temp ! contiene il valore corrente
! --- Sezione esecutiva ---
NULLIFY(root,temp)
! Ora si valutano 100 valori reali random e li si converte
! in interi compresi tra 0 1 100
CALL RANDOM_NUMBER(random)
input = INT(100*random)
WRITE(*,"(’Elenco originale:’,(/,2X,I10))") input
! Ora viene creato un nodo per ciascun intero e lo si inserisce nell’albero
DO i = 1,100
ALLOCATE(temp,STAT=istat)
temp%int = input(i)
CALL add_node(root,temp)
END DO
WRITE(*,"/,(’Elenco ordinato:’)")
CALL write_node(root)
CONTAINS
RECURSIVE SUBROUTINE add_node(ptr,new_node)
! Scopo: aggiungere un nodo ad un albero binario
TYPE(node), POINTER :: ptr ! puntatore alla posizione corrente
TYPE(node), POINTER :: new_node ! puntatore al nuovo nodo
IF(.NOT.ASSOCIATED(ptr)) THEN
! Se non esiste ancora alcun albero, questo e’ il primo nodo
ptr => new_node
ELSE
IF (new_node < ptr) THEN
IF(ASSOCIATED(ptr%before)) THEN
CALL add_node(ptr%before,new_node)
ELSE
ptr%before => new_node
END IF
ELSE
IF(ASSOCIATED(ptr%after)) THEN
CALL add_node(ptr%after,new_node)
ELSE
ptr%after => new_node
END IF
END IF
END IF
END SUBROUTINE add_node