fix: sub should re-adj to 0
This commit is contained in:
parent
b2c852eabe
commit
0332d175fd
1 changed files with 6 additions and 0 deletions
|
@ -347,6 +347,9 @@ if (argnumber<=5)
|
||||||
sub 5; hold +5000; bbreak=fill;
|
sub 5; hold +5000; bbreak=fill;
|
||||||
sub 7; hold +7000; bbreak=fill;
|
sub 7; hold +7000; bbreak=fill;
|
||||||
|
|
||||||
|
/*adjust to zero following Goloboff*/
|
||||||
|
sub 0;
|
||||||
|
|
||||||
/*get the consensus tree number*/
|
/*get the consensus tree number*/
|
||||||
var: nsubpars;
|
var: nsubpars;
|
||||||
set nsubpars ntrees;
|
set nsubpars ntrees;
|
||||||
|
@ -383,6 +386,9 @@ else
|
||||||
sub 5; hold +5000; bbreak=fill;
|
sub 5; hold +5000; bbreak=fill;
|
||||||
sub 7; hold +7000; bbreak=fill;
|
sub 7; hold +7000; bbreak=fill;
|
||||||
|
|
||||||
|
/*adjust to zero following Goloboff*/
|
||||||
|
sub 0;
|
||||||
|
|
||||||
/*get the consensus tree number*/
|
/*get the consensus tree number*/
|
||||||
var: nsubpars;
|
var: nsubpars;
|
||||||
set nsubpars ntrees;
|
set nsubpars ntrees;
|
||||||
|
|
Loading…
Reference in a new issue