IOIPSL/Stringop/gensig.f

module gensig_m

  implicit none

contains

  SUBROUTINE gensig (str, sig)

    ! Generate a signature from the first 30 characters of the string
    ! This signature is not unique and thus when one looks for the one
    ! needs to also verify the string.

    IMPLICIT NONE

    CHARACTER(LEN=*) str
    INTEGER sig

    INTEGER i
    INTEGER, DIMENSION(30):: prime = (/1, 2, 3, 5, 7, 11, 13, 17, 19, 23, 29, &
         31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 101, &
         103, 107, 109/)

    !---------------------------------------------------------------------

    sig = 0
    DO i=1, MIN(len_trim(str), 30)
       sig = sig  + prime(i)*IACHAR(str(i:i))
    ENDDO

  END SUBROUTINE gensig

end module gensig_m
1	guez	32	module gensig_m
2
3	guez	51	implicit none
4	guez	32
5			contains
6
7	guez	51	SUBROUTINE gensig (str, sig)
8	guez	32
9	guez	51	! Generate a signature from the first 30 characters of the string
10			! This signature is not unique and thus when one looks for the one
11			! needs to also verify the string.
12
13			IMPLICIT NONE
14
15			CHARACTER(LEN=*) str
16			INTEGER sig
17
18			INTEGER i
19			INTEGER, DIMENSION(30):: prime = (/1, 2, 3, 5, 7, 11, 13, 17, 19, 23, 29, &
20			31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 101, &
21			103, 107, 109/)
22
23			!---------------------------------------------------------------------
24
25			sig = 0
26			DO i=1, MIN(len_trim(str), 30)
27			sig = sig + prime(i)*IACHAR(str(i:i))
28			ENDDO
29
30			END SUBROUTINE gensig
31
32	guez	32	end module gensig_m