Как Fortran освобождает связанные списки? - PullRequest
Новая
       17

Как Fortran освобождает связанные списки?

7 голосов
/ 08 февраля 2012

Я хотел бы использовать связанные списки в Фортране для хранения массива данных неопределенной длины.

У меня есть следующие настройки: 

TYPE linked_list
    INTEGER :: data
    TYPE(linked_list) :: next_item => NULL()
END TYPE

Теперь скажите, что я создаю такойlist: 

TYPE(LINKED_LIST) :: example_list
example_list%data =1
ALLOCATE(example_list%next_item)
example_list%next_item%data = 2
ALLOCATE(example_list%next_item%next_item)
example_list%next_item%next_item%data = 3

Мой вопрос: если я выполню: 

DEALLOCATE(example_list)

, будут ли все вложенные уровни также освобождены или мне нужно пройти по списку до самого глубокого элемента и освободить его?от самого глубокого элемента вверх?

1 Ответ

9 голосов
/ 08 февраля 2012

Вы должны освободить каждый узел вручную. Вот где полезен стиль «объектно-ориентированный». 

module LinkedListModule
    implicit none
    private

    public :: LinkedListType
    public :: New, Delete
    public :: Append

    interface New
        module procedure NewImpl
    end interface

    interface Delete
        module procedure DeleteImpl
    end interface

    interface Append
        module procedure AppendImpl
    end interface

    type LinkedListType
        type(LinkedListEntryType), pointer :: first => null()
    end type

    type LinkedListEntryType
        integer :: data
        type(LinkedListEntryType), pointer :: next => null()
    end type

contains

    subroutine NewImpl(self)
        type(LinkedListType), intent(out) :: self

        nullify(self%first) 
    end subroutine

    subroutine DeleteImpl(self)
       type(LinkedListType), intent(inout) :: self

       if (.not. associated(self%first)) return

       current => self%first
       next => current%next
       do
           deallocate(current)
           if (.not. associated(next)) exit
           current => next
           next => current%next
       enddo

    end subroutine

    subroutine AppendImpl(self, value)

       if (.not. associated(self%first)) then
           allocate(self%first)
           nullify(self%first%next)
           self%first%value = value
           return
       endif


       current => self%first
       do
           if (associated(current%next)) then
               current => current%next
           else
             allocate(current%next)
             current => current%next
             nullify(current%next)
             current%value = value
             exit
           endif
       enddo

    end subroutine

end module

Осторожно: уже за полночь, и я не очень люблю кодировать в окне браузера. Этот код может не работать. Это просто макет.

Используйте вот так 

program foo
   use LinkedListModule
   type(LinkedListType) :: list

   call New(list)
   call Append(list, 3)
   call Delete(list)
end program
...