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

Merge branch '30_parsePhasePartOnce' into 19-NewStylePhenopowerlaw

This commit is contained in:
Martin Diehl 2018-06-27 09:05:37 +02:00
parent 96e5175f41 78f9a107fe
commit fb528dad52
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/config.f90
View File

@ -345,6 +345,8 @@ subroutine free(this)
class(tPartitionedStringList), target, intent(in) :: this class(tPartitionedStringList), target, intent(in) :: this
type(tPartitionedStringList), pointer :: new, item type(tPartitionedStringList), pointer :: new, item
if (.not. associated(this%next)) return
item => this%next item => this%next
do while (associated(item%next)) do while (associated(item%next))
new => item new => item