JWS-112 Bumping version of Mafft to version 7.310.

[jabaws.git] / binaries / src / mafft / core / getlag.c

diff --git a/binaries/src/mafft/core/getlag.c b/binaries/src/mafft/core/getlag.c
index d37c2d8..3ef15d6 100644 (file)
--- a/binaries/src/mafft/core/getlag.c
+++ b/binaries/src/mafft/core/getlag.c
@@ -159,7 +159,7 @@ void treebase( char **name, int nlen[M], char **seq, char **aseq, char **mseq1,
        int i, j, l;
        int clus1, clus2;
        int s1, s2, r1, r2;
-       float pscore;
+       double pscore;
        static char *indication1, *indication2;
        static char **name1, **name2;
        static double **partialmtx = NULL;
@@ -243,7 +243,7 @@ void treebase( char **name, int nlen[M], char **seq, char **aseq, char **mseq1,
                fprintf( stderr, "\n" );
 */
 
-               pscore = Fgetlag( mseq1, mseq2, effarr1, effarr2, clus1, clus2, alloclen );
+               pscore = Fgetlag( n_dis_consweight_multi, mseq1, mseq2, effarr1, effarr2, clus1, clus2, alloclen );
 
                for( i=0; (r2=topol[l][1][i])>-1; i++ ) 
                {