program SimpleHash
implicit none
 
character(len=9) :: student_id
character(len=13) :: name
character(len=100) :: data
 
integer :: i
integer :: hash
 
student_id = "202401348"
name = "TanakaKakuei"
 
data = trim(student_id) // trim(name)
 
hash = 0
 
do i = 1, len_trim(data)
    hash = mod(hash * 31 + iachar(data(i:i)), 1000000007)
end do
 
print *, "Student ID = ", student_id
print *, "Name = ", name
print *, "Hash Value = ", hash
 
end program SimpleHash