Deallocated the internal data-structures of the given list. Caution: If the stored values are pointers, their targets will not get deallocated by this routine.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(list_timerenv_type), | intent(inout) | :: | list |
SUBROUTINE list_timerenv_destroy(list)
# 21 "/__w/dbcsr/dbcsr/src/core/dbcsr_list_timerenv.F"
!! Deallocated the internal data-structures of the given list.
# 21 "/__w/dbcsr/dbcsr/src/core/dbcsr_list_timerenv.F"
!! Caution: If the stored values are pointers, their targets will
# 21 "/__w/dbcsr/dbcsr/src/core/dbcsr_list_timerenv.F"
!! not get deallocated by this routine.
# 21 "/__w/dbcsr/dbcsr/src/core/dbcsr_list_timerenv.F"
# 21 "/__w/dbcsr/dbcsr/src/core/dbcsr_list_timerenv.F"
TYPE(list_timerenv_type), intent(inout) :: list
# 21 "/__w/dbcsr/dbcsr/src/core/dbcsr_list_timerenv.F"
INTEGER :: i
# 21 "/__w/dbcsr/dbcsr/src/core/dbcsr_list_timerenv.F"
IF(.not. ASSOCIATED(list%arr)) &
# 21 "/__w/dbcsr/dbcsr/src/core/dbcsr_list_timerenv.F"
DBCSR_ABORT("list_timerenv_destroy: list is not initialized.")
# 21 "/__w/dbcsr/dbcsr/src/core/dbcsr_list_timerenv.F"
# 21 "/__w/dbcsr/dbcsr/src/core/dbcsr_list_timerenv.F"
do i=1, list%size
# 21 "/__w/dbcsr/dbcsr/src/core/dbcsr_list_timerenv.F"
deallocate(list%arr(i)%p)
# 21 "/__w/dbcsr/dbcsr/src/core/dbcsr_list_timerenv.F"
end do
# 21 "/__w/dbcsr/dbcsr/src/core/dbcsr_list_timerenv.F"
deallocate(list%arr)
# 21 "/__w/dbcsr/dbcsr/src/core/dbcsr_list_timerenv.F"
list%size = -1
# 21 "/__w/dbcsr/dbcsr/src/core/dbcsr_list_timerenv.F"
END SUBROUTINE list_timerenv_destroy