function to free elements of the string list.

Note: Pointers that are allocated will never go out of scope. Pointers
that are assigned (=>) will be deallocated/disaccociated like allocatables
that go out of scope

src/config.f90

@@ -24,6 +24,7 @@ module config
    contains
      procedure :: add            => add
      procedure :: show           => show
+     procedure :: free           => free
 
      procedure :: keyExists      => keyExists
      procedure :: countKeys      => countKeys
@@ -166,8 +167,9 @@ subroutine config_init()
 
 end subroutine config_init
 
+
 !--------------------------------------------------------------------------------------------------
-!> @brief parses the homogenization part in the material configuration file
+!> @brief parses the material.config file
 !--------------------------------------------------------------------------------------------------
 subroutine parseFile(line,&
                      sectionNames,part,fileUnit)
@@ -229,6 +231,7 @@ subroutine parseFile(line,&
      call part(s)%show()
    end do
  end if 
+
 end subroutine parseFile
 
 !--------------------------------------------------------------------------------------------------
@@ -283,23 +286,24 @@ end subroutine show
 
 
 !--------------------------------------------------------------------------------------------------
-!> @brief deallocates all elements of a given list
+!> @brief cleans entire list
-!> @details Strings are printed in order of insertion (FIFO)
+!> @details list head is remains alive
 !--------------------------------------------------------------------------------------------------
-!    subroutine free_all()
+subroutine free(this)
-!      implicit none
+
-!                 
+  implicit none
-!      type(node), pointer :: item
+  class(tPartitionedStringList),  target, intent(in) :: this
-!         
+  type(tPartitionedStringList),   pointer            :: new, item
-!      do        
+
-!        item => first
+  item => this%next
-!         
+  do while (associated(item%next))
-!        if (associated(item) .eqv. .FALSE.) exit
+    new => item
-!          
+    deallocate(item)
-!        first => first%next
+    item => new%next
-!        deallocate(item)
+  enddo
-!      end do                     
+  deallocate(item)
-!    end subroutine free_all
+
+end subroutine free
 
 
 !--------------------------------------------------------------------------------------------------