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