1 C -+-+-+-+-+
\ e H A E M K H . F T -+-+-+-+-+
3 C HERE WE GENERATE THE HASH TABLE USED BY ESAM
12 INTEGER T,R,I,J,ALLCHS
17 ALLCHS=CHNLS+STRIGS @ TOTAL NUMBER OF CHANNELS TO SAMPLE
18 IF (PCKMAX*ALLCHS.GT.16*7) GOTO 50 @ TEST TO PREVENT SUBSCRIPT ERROR IN HASH TABLE
22 T=NCOND(MOD(R,PACK(I)),T,T+1)
23 20 HASH(I,R)=NCOND(MOD(R,PACK(I)),0,T)
26 DO 40 J=1,PCKMAX @ WE USE DECREMENTING COUNTER
27 R=PCKMAX+1-J @ SO WE COMPUTE THIS
28 T=NCOND(HASH(I,R),HASH(I,R),T)
30 HSHSIG=HASH(ALLCHS,PCKMAX) @ DATA WORDS FOR PCKMAX SAMPLES OF ALL CHANNELS
38 1 FORMAT (' PRODUKT AUS KANALANZAHL (A/D+STRIG) UND ',
39 * 'MESSRATENVERHAELTNIS ZU GROSS')