From b6b2023526cb1fb57b794394b697366625ec02a5 Mon Sep 17 00:00:00 2001
From: Adam Nelson <nelsonag@umich.edu>
Date: Sat, 6 Apr 2013 12:39:21 -0400
Subject: [PATCH] Removed dict_delete_*.

---
 src/dict_header.F90 | 50 ---------------------------------------------
 1 file changed, 50 deletions(-)

diff --git a/src/dict_header.F90 b/src/dict_header.F90
index 79b4a2f0fa..7da2015fd3 100644
--- a/src/dict_header.F90
+++ b/src/dict_header.F90
@@ -64,7 +64,6 @@ module dict_header
     type(HashListCI), pointer :: table(:) => null()
   contains
     procedure :: add_key => dict_add_key_ci
-    procedure :: delete => dict_delete_ci
     procedure :: get_key => dict_get_key_ci
     procedure :: has_key => dict_has_key_ci
     procedure :: keys => dict_keys_ci
@@ -77,7 +76,6 @@ module dict_header
     type(HashListII), pointer :: table(:) => null()
   contains
     procedure :: add_key => dict_add_key_ii
-    procedure :: delete => dict_delete_ii
     procedure :: get_key => dict_get_key_ii
     procedure :: has_key => dict_has_key_ii
     procedure :: keys => dict_keys_ii
@@ -152,54 +150,6 @@ contains
 
   end subroutine dict_add_key_ii
 
-!===============================================================================
-! DICT_DELETE deletes all (key,value) pairs from the dictionary
-!===============================================================================
-
-  subroutine dict_delete_ci(this)
-
-    class(DictCharInt) :: this
-
-    integer :: i
-    type(ElemKeyValueCI), pointer :: current
-    type(ElemKeyValueCI), pointer :: next
-
-    if (associated(this % table)) then
-      do i = 1, size(this % table)
-        current => this % table(i) % list
-        do while (associated(current))
-          next => current % next
-          deallocate(current)
-          current => next
-        end do
-        nullify(this % table(i) % list)
-      end do
-    end if
-
-  end subroutine dict_delete_ci
-
-  subroutine dict_delete_ii(this)
-
-    class(DictIntInt) :: this
-
-    integer :: i
-    type(ElemKeyValueII), pointer :: current
-    type(ElemKeyValueII), pointer :: next
-
-    if (associated(this % table)) then
-      do i = 1, size(this % table)
-        current => this % table(i) % list
-        do while (associated(current))
-          next => current % next
-          deallocate(current)
-          current => next
-        end do
-        nullify(this % table(i) % list)
-      end do
-    end if
-
-  end subroutine dict_delete_ii
-
 !===============================================================================
 ! DICT_GET_ELEM returns a pointer to the (key,value) pair for a given key. This
 ! method is private.