Il Linguaggio Fortran 90/95

7.11 Strutture dati dinamiche 393
TYPE (node),POINTER :: previous, current
! Cerca la posizione dove inserire il nuovo oggetto
previous => links%first ! inizializza
current => previous%next
DO
IF (.NOT.ASSOCIATED(current)) EXIT ! inserisce alla fine
IF (obj < current%value) EXIT ! *** sovrapposto ***
previous => current
current => current%next ! si sposta sul prossimo nodo
END DO
! Inserisce l’oggetto prima di quello corrente (sono permessi duplicati)
ALLOCATE(previous%next) ! alloca nuovo spazio in memoria
previous%next%value = obj ! nuovo oggetto inserito
previous%next%next => current
END SUBROUTINE insert
FUNCTION is_empty(links) RESULT(t_or_f)
TYPE(list),INTENT(IN) :: links
LOGICAL :: t_or_f
t_or_f = .NOT.ASSOCIATED(links%first%next)
END FUNCTION is_empty
FUNCTION new() RESULT(new_list)
TYPE(list) :: new_list
ALLOCATE(new_list%first) ! alloca memoria per l’oggetto
NULLIFY(new_list%first%next) ! comincia con una lista vuota
END FUNCTION new
SUBROUTINE print_list (links)
TYPE(list),INTENT(IN) :: links
TYPE(node),POINTER :: current
INTEGER :: counter
current => links%first%next
counter = 0
PRINT*,"Valore dell’oggetto:"
DO
IF (.NOT.ASSOCIATED(current)) EXIT ! fine lista
counter = counter+1
PRINT*, counter," ",current%value
current => current%next
END DO
END SUBROUTINE print_list
END MODULE linked_list