@@ -824,7 +824,6 @@ subroutine int8_get_other_data( map, value, other, exists )
824
824
! !
825
825
! !! Int8 key generic interface for get_other_data function
826
826
827
- import hashmap_type, key_type, other_type
828
827
class(hashmap_type), intent (inout ) :: map
829
828
integer (int8), intent (in ) :: value(:)
830
829
type (other_type), intent (out ) :: other
@@ -844,7 +843,6 @@ subroutine int32_get_other_data( map, value, other, exists )
844
843
! !
845
844
! ! Int32 key generic interface for get_other_data function
846
845
847
- import hashmap_type, key_type, other_type
848
846
class(hashmap_type), intent (inout ) :: map
849
847
integer (int32), intent (in ) :: value(:)
850
848
type (other_type), intent (out ) :: other
@@ -864,7 +862,6 @@ subroutine char_get_other_data( map, value, other, exists )
864
862
! !
865
863
! ! Character key generic interface for get_other_data function
866
864
867
- import hashmap_type, key_type, other_type
868
865
class(hashmap_type), intent (inout ) :: map
869
866
character (* ), intent (in ) :: value
870
867
type (other_type), intent (out ) :: other
@@ -889,7 +886,6 @@ subroutine int8_remove_entry(map, value, existed) ! Chase's delent
889
886
! ! existed - a logical flag indicating whether an entry with the key
890
887
! ! was present in the original map
891
888
!
892
- import hashmap_type, key_type
893
889
class(hashmap_type), intent (inout ) :: map
894
890
integer (int8), intent (in ) :: value(:)
895
891
logical , intent (out ), optional :: existed
@@ -913,7 +909,6 @@ subroutine int32_remove_entry(map, value, existed) ! Chase's delent
913
909
! ! existed - a logical flag indicating whether an entry with the key
914
910
! ! was present in the original map
915
911
!
916
- import hashmap_type, key_type
917
912
class(hashmap_type), intent (inout ) :: map
918
913
integer (int32), intent (in ) :: value(:)
919
914
logical , intent (out ), optional :: existed
@@ -937,7 +932,6 @@ subroutine char_remove_entry(map, value, existed) ! Chase's delent
937
932
! ! existed - a logical flag indicating whether an entry with the key
938
933
! ! was present in the original map
939
934
!
940
- import hashmap_type, key_type
941
935
class(hashmap_type), intent (inout ) :: map
942
936
character (* ), intent (in ) :: value
943
937
logical , intent (out ), optional :: existed
@@ -956,7 +950,6 @@ subroutine int8_map_entry(map, value, other, conflict)
956
950
! ! Int8 generic interface for map entry
957
951
! ! ([Specifications](../page/specs/stdlib_hashmaps.html#map_entry-inserts-an-entry-into-the-hash-map))
958
952
! !
959
- import hashmap_type, key_type, other_type
960
953
class(hashmap_type), intent (inout ) :: map
961
954
integer (int8), intent (in ) :: value(:)
962
955
type (other_type), intent (in ), optional :: other
@@ -977,7 +970,6 @@ subroutine int32_map_entry(map, value, other, conflict)
977
970
! ! Inserts an entry into the hash table
978
971
! ! ([Specifications](../page/specs/stdlib_hashmaps.html#map_entry-inserts-an-entry-into-the-hash-map))
979
972
! !
980
- import hashmap_type, key_type, other_type
981
973
class(hashmap_type), intent (inout ) :: map
982
974
integer (int32), intent (in ) :: value(:)
983
975
type (other_type), intent (in ), optional :: other
@@ -998,7 +990,6 @@ subroutine char_map_entry(map, value, other, conflict)
998
990
! ! Inserts an entry into the hash table
999
991
! ! ([Specifications](../page/specs/stdlib_hashmaps.html#map_entry-inserts-an-entry-into-the-hash-map))
1000
992
! !
1001
- import hashmap_type, key_type, other_type
1002
993
class(hashmap_type), intent (inout ) :: map
1003
994
character (len=* ), intent (in ) :: value
1004
995
type (other_type), intent (in ), optional :: other
@@ -1024,7 +1015,6 @@ subroutine int8_key_test(map, value, present)
1024
1015
! ! value - int8 array that is the key to lookup.
1025
1016
! ! present - a flag indicating whether key is present in the map
1026
1017
!
1027
- import hashmap_type, key_type
1028
1018
class(hashmap_type), intent (inout ) :: map
1029
1019
integer (int8), intent (in ) :: value(:)
1030
1020
logical , intent (out ) :: present
@@ -1051,7 +1041,6 @@ subroutine int32_key_test(map, value, present)
1051
1041
! ! value - int32 array that is the key to lookup.
1052
1042
! ! present - a flag indicating whether key is present in the map
1053
1043
!
1054
- import hashmap_type, key_type
1055
1044
class(hashmap_type), intent (inout ) :: map
1056
1045
integer (int32), intent (in ) :: value(:)
1057
1046
logical , intent (out ) :: present
@@ -1076,7 +1065,6 @@ subroutine char_key_test(map, value, present)
1076
1065
! ! value - char array that is the key to lookup.
1077
1066
! ! present - a flag indicating whether key is present in the map
1078
1067
!
1079
- import hashmap_type, key_type
1080
1068
class(hashmap_type), intent (inout ) :: map
1081
1069
character (* ), intent (in ) :: value
1082
1070
logical , intent (out ) :: present
@@ -1102,7 +1090,6 @@ subroutine int8_set_other_data( map, value, other, exists )
1102
1090
! ! in the map
1103
1091
! !
1104
1092
!
1105
- import hashmap_type, key_type, other_type
1106
1093
class(hashmap_type), intent (inout ) :: map
1107
1094
integer (int8), intent (in ) :: value(:)
1108
1095
type (other_type), intent (in ) :: other
@@ -1129,7 +1116,6 @@ subroutine int32_set_other_data( map, value, other, exists )
1129
1116
! ! in the map
1130
1117
! !
1131
1118
!
1132
- import hashmap_type, key_type, other_type
1133
1119
class(hashmap_type), intent (inout ) :: map
1134
1120
integer (int32), intent (in ) :: value(:)
1135
1121
type (other_type), intent (in ) :: other
@@ -1156,7 +1142,6 @@ subroutine char_set_other_data( map, value, other, exists )
1156
1142
! ! in the map
1157
1143
! !
1158
1144
!
1159
- import hashmap_type, key_type, other_type
1160
1145
class(hashmap_type), intent (inout ) :: map
1161
1146
character (* ), intent (in ) :: value
1162
1147
type (other_type), intent (in ) :: other
0 commit comments