在Fortran中为散列代码中的键赋值

PROGRAM HashCode
  IMPLICIT NONE
  
  TYPE :: HashTable
    INTEGER :: key
    REAL :: value
  END TYPE HashTable
  
  TYPE(HashTable), DIMENSION(100) :: hashTable
  INTEGER :: i
  
  ! 初始化散列代码
  DO i = 1, 100
    hashTable(i)%key = i
    hashTable(i)%value = 0.0
  END DO
  
  ! 为散列代码中的键赋值
  CALL AssignValue(hashTable, 42, 3.14)
  
  ! 打印散列代码中的键值对
  DO i = 1, 100
    IF (hashTable(i)%key /= 0) THEN
      PRINT *, "Key:", hashTable(i)%key, "Value:", hashTable(i)%value
    END IF
  END DO
  
CONTAINS
  
  SUBROUTINE AssignValue(hashTable, key, value)
    TYPE(HashTable), DIMENSION(:) :: hashTable
    INTEGER :: key
    REAL :: value
    INTEGER :: i
    
    DO i = 1, SIZE(hashTable)
      IF (hashTable(i)%key == key) THEN
        hashTable(i)%value = value
        EXIT
      END IF
    END DO
  END SUBROUTINE AssignValue
  
END PROGRAM HashCode