! 散列查找法范例
! By Perng 1997/8/31
program HASH_SEARCH_DEMO
  implicit none
  integer, parameter :: N=10 ! 類型的大小
  integer Source(N) ! 存放數據組的類型
  integer A(100)    ! 存放Hashing 后的類型
  integer KEY       ! 記錄所要找的值
  integer I         ! 循環記數器
  data Source /21,53,71,19,61,81,3,17,44,93/

  write(*,"('Source=>',10I3)") Source
  write(*,*) 'Input KEY:'
  read (*,*) KEY
  if ( KEY<0 .or. KEY>100 ) then
    write(*,*) "Not found."
	stop
  end if

  ! 建立Hash表格中, 表格中放的是數值在類型中的位置
  A = 0
  do I=1,N
    A( Source(I) ) = I
  end do

  ! 在Hash表格中尋找數據
  if ( A(KEY)/=0 ) then
    write(*,"('Source(',I2,' )=',I3)") A(KEY), KEY
  else  
    write(*,*) "Not found"
  end if

  stop
end program