added a is_hash_enabled function

Author: jacobwilliams

src/json_file_module.F90

@@ -254,6 +254,7 @@ module json_file_module
         ! hash table functions:
         procedure,public :: initialize_hash
         procedure,public :: destroy_hash
+        procedure,public :: is_hash_enabled
 
         ! ***************************************************
         ! operators
@@ -3291,6 +3292,20 @@ subroutine initialize_hash(me, status_ok, initial_capacity)
     end subroutine initialize_hash
 !*****************************************************************************************
 
+!*****************************************************************************************
+!>
+!  Check if the hash table is enabled.
+
+    pure function is_hash_enabled(me) result(enabled)
+
+    class(json_file),intent(in) :: me
+    logical(LK) :: enabled
+
+    enabled = me%hash_enabled
+
+    end function is_hash_enabled
+!*****************************************************************************************
+
 !*****************************************************************************************
 !>
 !  Destroy the hash table if it exists.