new alex()

[ape.git] / src / dist_dna.c

diff --git a/src/dist_dna.c b/src/dist_dna.c
index 289be088b37878de150195605ce39241be6bb539..ab630a9c0b6fcad71b87e0a410c5e6d597b328c5 100644 (file)
--- a/src/dist_dna.c
+++ b/src/dist_dna.c
@@ -93,14 +93,6 @@ void distDNA_indel(unsigned char *x, int *n, int *s, double *d)
 
 #define X(i, j) i - 1 + *n * (j - 1)
 
-#define DINDEX(i, j) n * (i - 1) - i*(i - 1)/2 + j - i - 1
-
-int give_index(int i, int j, int n)
-{
-       if (i > j) return(DINDEX(j, i));
-       else return(DINDEX(i, j));
-}
-
 void distDNA_indelblock(unsigned char *x, int *n, int *s, double *d)
 {
        int i1, i2, s1, s2, target, N, start_block, end_block;