sub pr_order {
my $t = shift;
my $nrepl = shift;
- printf(NDX "%-8g",$t);
+ printf(NDX "%-20g",$t);
for(my $k=0; ($k<$nrepl); $k++) {
my $oo = shift;
printf(NDX " %3d",$oo);
sub pr_revorder {
my $t = shift;
my $nrepl = shift;
- printf(TEMP "%-8g",$t);
+ printf(TEMP "%-20g",$t);
for(my $k=0; ($k<$nrepl); $k++) {
my $oo = shift;
printf(TEMP " %3d",$oo);