Merge branch '30_parsePhasePartOnce' into 19-NewStylePhenopowerlaw
This commit is contained in:
commit
fb528dad52
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue