DBCSR: rename hash table files

svn-origin-rev: 18331

src/dbcsr/base/dbcsr_hash_table.f90

@@ -10,7 +10,7 @@
 !> \brief finds a prime equal or larger than i, needed at creation
 !> \param i ...
 !> \return ...
-! *****************************************************************************
+! **************************************************************************************************
   FUNCTION matching_prime(i) RESULT(res)
     INTEGER, INTENT(IN)                      :: i
     INTEGER                                  :: res
@@ -34,7 +34,7 @@
 !>        the hash table will expand as needed (but this requires rehashing)
 !> \param hash_table ...
 !> \param table_size ...
-! *****************************************************************************
+! **************************************************************************************************
   SUBROUTINE hash_table_create(hash_table,table_size)
     TYPE(hash_table_type)                    :: hash_table
     INTEGER, INTENT(IN)                      :: table_size
@@ -56,7 +56,7 @@
 ! *****************************************************************************
 !> \brief ...
 !> \param hash_table ...
-! *****************************************************************************
+! **************************************************************************************************
   SUBROUTINE hash_table_release(hash_table)
     TYPE(hash_table_type)                    :: hash_table
 
@@ -71,7 +71,7 @@
 !> \param hash_table ...
 !> \param c this value is being hashed
 !> \param p this is being stored
-! *****************************************************************************
+! **************************************************************************************************
   RECURSIVE SUBROUTINE hash_table_add(hash_table,c,p)
     TYPE(hash_table_type), INTENT(INOUT)     :: hash_table
     INTEGER, INTENT(IN)                      :: c, p
@@ -123,7 +123,7 @@
 !> \param hash_table ...
 !> \param c ...
 !> \return ...
-! *****************************************************************************
+! **************************************************************************************************
   PURE FUNCTION hash_table_get(hash_table,c) RESULT(p)
     TYPE(hash_table_type), INTENT(IN)        :: hash_table
     INTEGER, INTENT(IN)                      :: c

src/dbcsr/mm/dbcsr_mm_csr.F

@@ -81,7 +81,7 @@ MODULE dbcsr_mm_csr
       TYPE(dbcsr_mm_sched_type)                      :: sched
    END TYPE dbcsr_mm_csr_type
 
-#include "../base/hash_table_types.f90"
+#include "../base/dbcsr_hash_table_types.f90"
 
 ! **************************************************************************************************
    PUBLIC :: dbcsr_mm_csr_type
@@ -983,6 +983,6 @@ CONTAINS
 
    END FUNCTION my_checker_tr
 
-#include "../base/hash_table.f90"
+#include "../base/dbcsr_hash_table.f90"
 
 END MODULE dbcsr_mm_csr