fix: sub should re-adj to 0

This commit is contained in:
kuoi 2023-10-09 01:11:27 +08:00
parent b2c852eabe
commit 0332d175fd
1 changed files with 6 additions and 0 deletions

View File

@ -347,6 +347,9 @@ if (argnumber<=5)
sub 5; hold +5000; bbreak=fill;
sub 7; hold +7000; bbreak=fill;
/*adjust to zero following Goloboff*/
sub 0;
/*get the consensus tree number*/
var: nsubpars;
set nsubpars ntrees;
@ -383,6 +386,9 @@ else
sub 5; hold +5000; bbreak=fill;
sub 7; hold +7000; bbreak=fill;
/*adjust to zero following Goloboff*/
sub 0;
/*get the consensus tree number*/
var: nsubpars;
set nsubpars ntrees;