Removed redundant initialization update

Author: chuckyvt

src/stdlib_hashmap_chaining.f90

@@ -551,10 +551,7 @@ module subroutine map_chain_entry(map, key, other, conflict)
         character(*), parameter :: procedure = 'MAP_ENTRY'
 
         ! Check that map is initialized.  
-        if (.not. map % initialized) then
-            call init_chaining_map( map )
-            map % initialized = .true.
-        endif
+        if (.not. map % initialized) init_chaining_map( map )
 
         hash_val = map % hasher( key )
 

src/stdlib_hashmap_open.f90

@@ -540,10 +540,7 @@ module subroutine map_open_entry(map, key, other, conflict)
         character(*), parameter :: procedure = 'MAP_ENTRY'
 
         ! Check that map is initialized.  
-        if (.not. map % initialized) then
-            call init_open_map( map )
-            map % initialized = .true.
-        endif
+        if (.not. map % initialized) call init_open_map( map )
 
         hash_val = map % hasher( key )