Il Linguaggio Fortran 90/95

392 Puntatori
MODULE linked_list
USE class_object
IMPLICIT NONE
TYPE node ! generico nodo della lista
PRIVATE
TYPE(object) :: value ! componente del nodo
TYPE(node),POINTER :: next ! puntatore al prossimo nodo
END TYPE node
TYPE list ! lista concatenata di nodi
PRIVATE
TYPE(node),POINTER :: first ! primo oggetto della lista
END TYPE list
CONTAINS
SUBROUTINE delete (links,obj,found)
TYPE(list),INTENT(INOUT) :: links
TYPE(object),INTENT(IN) :: obj
LOGICAL,INTENT(OUT) :: found
TYPE(node),POINTER :: previous, current
! Cerca la posizione di obj
previous => links%first ! comincia dalla testa della lista
current => previous%next
found = .FALSE. ! inizializza
DO
IF (found.OR.(.NOT.ASSOCIATED(current))) RETURN ! fine lista
IF (obj==current%value) THEN ! *** sovrapposto ***
found = .TRUE.
EXIT
ELSE ! si sposta sul nodo successivo nella lista
previous => previous%next
current => current%next
END IF
END DO
! Elimina il nodo se esso e’ stato trovato
IF (found) THEN
previous%next => current%next
DEALLOCATE(current) ! liberato lo spazio per il nodo
END IF
END SUBROUTINE delete
SUBROUTINE insert(links,obj)
TYPE(list),INTENT(INOUT) :: links
TYPE(object),INTENT(IN) :: obj