223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

better logic for finalization

This commit is contained in:
Sharan Roongta 2020-04-23 17:10:33 +02:00
parent 11c4ff7787
commit 7fe2a52b65
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/YAML_types.f90
View File

@ -960,13 +960,13 @@ recursive subroutine tDict_finalize(self)
type (tItem),pointer :: current, & type (tItem),pointer :: current, &
next next
current => self%first current => self%first
do while (associated(current)) do while (associated(current))
next => current%next next => current%next
deallocate(current%node) deallocate(current)
current => next current => next
end do end do
nullify(self%first)
end subroutine tDict_finalize end subroutine tDict_finalize
@ -981,13 +981,13 @@ recursive subroutine tList_finalize(self)
type (tItem),pointer :: current, & type (tItem),pointer :: current, &
next next
current => self%first current => self%first
do while (associated(current)) do while (associated(current))
next => current%next next => current%next
if(allocated(current%node)) deallocate(current%node) deallocate(current)
current => next current => next
end do end do
nullify(self%first)
end subroutine tList_finalize end subroutine tList_finalize