same2.c

Go to the documentation of this file.

#include "arith.h"

same2(w,en,hashtab)
REAL w[MAXRANK][MAXEDGE];
int en;
TABLE hashtab;
{
    VECTOR w1,w2;
    REAL error;
    int i,k,hashkey,hashval;

    for(i=0; i<MAXRANK; i++)
        w1[i]= w[i][en];

    hashval=hash5(w1);
    for(k=hashval; k<HASHNO; k++){
        hashkey= hashtab[k];
        if(hashkey == EMPTY){
            return(k);
        }
        else{
            error= 0.0e0;
            for(i=0; i<MAXRANK; i++){
                w2[i] = w[i][hashkey];
                error += fabs(w1[i] - w2[i]);
            }
            if(error < EPS * MAXRANK)
                return(COLLISION);
        }
    }

    for(k=0; k<HASHNO; k++){
        hashkey= hashtab[k];
        if(hashkey == EMPTY){
            return(k);
        }
        else{
            error= 0.0e0;
            for(i=0; i<MAXRANK; i++){
                w2[i] = w[i][hashkey];
                error += fabs(w1[i] - w2[i]);
            }
            if(error < EPS * MAXRANK)
                return(COLLISION);
        }
    }
}