X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=src%2Fdist_dna.c;h=ab630a9c0b6fcad71b87e0a410c5e6d597b328c5;hb=984f527e672e911c74f5c2f09ad98a934312fe2f;hp=289be088b37878de150195605ce39241be6bb539;hpb=06e83c6878153f8e7999c0470263c40aad4db258;p=ape.git

diff --git a/src/dist_dna.c b/src/dist_dna.c
index 289be08..ab630a9 100644
--- 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;