C -+-+-+-+-+  H A E M K H . F T -+-+-+-+-+ C C HERE WE GENERATE THE HASH TABLE USED BY ESAM C *OR 7-OCT-82 C C SUBROUTINE MKHASH INCLUDE HAEBUF.FI INCLUDE HAEHAS.FI INCLUDE HAETTY.FI C INTEGER T,R,I,J,ALLCHS C INTEGER NCOND EXTERNAL NCOND C ALLCHS=CHNLS+STRIGS @ TOTAL NUMBER OF CHANNELS TO SAMPLE IF (PCKMAX*ALLCHS.GT.16*7) GOTO 50 @ TEST TO PREVENT SUBSCRIPT ERROR IN HASH TABLE T=0 DO 20 R=1,PCKMAX DO 20 I=1,ALLCHS T=NCOND(MOD(R,PACK(I)),T,T+1) 20 HASH(I,R)=NCOND(MOD(R,PACK(I)),0,T) C DO 40 I=1,ALLCHS DO 40 J=1,PCKMAX @ WE USE DECREMENTING COUNTER R=PCKMAX+1-J @ SO WE COMPUTE THIS T=NCOND(HASH(I,R),HASH(I,R),T) 40 HASH(I,R)=T HSHSIG=HASH(ALLCHS,PCKMAX) @ DATA WORDS FOR PCKMAX SAMPLES OF ALL CHANNELS C HSHDON=.TRUE. RETURN C 50 WRITE (TTO,1) HSHDON=.FALSE. RETURN 1 FORMAT (' PRODUKT AUS KANALANZAHL (A/D+STRIG) UND ', * 'MESSRATENVERHAELTNIS ZU GROSS') END